macro copier une cellule dans toutes feuilles

macro copier une cellule dans toutes feuilles - VB/VBA/VBS - Programmation

Marsh Posté le 17-01-2011 à 22:06:38    

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.
 
 

Reply

Marsh Posté le 17-01-2011 à 22:06:38   

Reply

Marsh Posté le 18-01-2011 à 11:49:58    

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 :
  1. Option Explicit
  2. '
  4. Private Sub Worksheet_Change(ByVal Target As Range)
  6.   Dim oSh As Worksheet
  8.   ' Test si a valeur de A1 est modifiée
  9.   ' (Rien faire si valeur des autre cellule est modifiée)
  10.   If Target.Address(False, False) = "A1" Then
  11.     For Each oSh In Worksheets        ' pour chaque feuille du classeur ...
  12.       If oSh.Name <> "planning" Then  ' Si non feuille <> "planning" colle valeur
  13.         oSh.Cells(1, 1) = Target
  14.       End If
  15.     Next
  16.   End If
  17. End Sub


 
C tout
--Mcdx


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

Marsh Posté le 18-01-2011 à 13:55:41    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed