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
