macro copier une cellule dans toutes feuilles

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : macro copier une cellule dans toutes feuilles

_dex00001

Bonsoir,

Après avoir réalisé des recherches je ne trouve pas la solution à mon problème. Je vous expose mon cas en espérant que vous puissiez y remédier.
J'ai un classeur Excel dans lequel il existe plusieurs feuilles portant un nom variable sauf le premier "Planning".
Je souhaiterai qu'en cas de modification de la cellule par exemple "A1" de la feuille "planning" toutes les cellules "A1" des autres feuilles (sans distinctions) soient modifiées.

Merci d'avance.

Publicité

mcdx

Bonjour,

Oui C'est possible en utilisant un évènement
' placer dans la feuille "planning" (et pas dans un module):
// Alt F11 / Double clic sur la feuille "plannig" dans la fenêtre des projets ( a gauche )
et copie Le code suivant:

Code :

Option Explicit
'
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oSh As Worksheet
' Test si a valeur de A1 est modifiée
' (Rien faire si valeur des autre cellule est modifiée)
If Target.Address(False, False) = "A1" Then
For Each oSh In Worksheets ' pour chaque feuille du classeur ...
If oSh.Name <> "planning" Then ' Si non feuille <> "planning" colle valeur
oSh.Cells(1, 1) = Target
End If
Next
End If
End Sub

C tout
--Mcdx

Message édité par mcdx le 18-01-2011 à 13:17:50

_dex00001

Merci d'avoir pris le temps de me répondre. je teste ca ce soir.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

macro copier une cellule dans toutes feuilles

Sujets relatifs
Excel 07 / Copier coller dans des sheets	[VBA Excel 2003 - débutant] Macro et renommage d'un classeur Excell
VBA Excel 2003 colorier cellule RGB	Macro VBA Excel SharePoint
Comment copier un string dans un TByteDynArray ?	[Access] Accéder aux champs d'un enregistrement en mode macro
Renvoi du numéro de ligne d'une cellule en VBA	Colorisation d'une cellule suivant la valeur
[BAT]Copier un fichier d'un bureau vers les autres profils	Macro multi sheet
Plus de sujets relatifs à : macro copier une cellule dans toutes feuilles

Page générée en 0.047 secondes