Lancement de macro des qu'une cellule est modifié

[Julien69]

Bonjour,

Je souhaiterai lancer une macro lorsqu'une cellule est modifié. Jusque la tout va bien j'ai trouver le code qui marche nickel.
Voici le code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("b7")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
toto.Show
End If
End Sub

La ou cela se complique, c'est que sur cette même feuille je souhaite que la macro toto se déclenche des que la cellule b7 est modifié, mais aussi que la cellule tata se déclenche des que la cellule h7 est modifié et pour finir que la macro titi se déclenche des que la cellule r7 est modifié.

Si quelqu'un as une idée ?, je suis preneur.
En vous remerciant par avance

 

[laetitia90]

Re : Lancement de macro des qu'une cellule est modifié

bonjour julien

comme je comprends

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B7,H7,R7]) Is Nothing And Target.Count = 1 Then
 If Target.Address = "$B$7" Then 'ton code
 If Target.Address = "$H$7" Then 'ton code
 If Target.Address = "$R$7" Then 'ton code
End If
End Sub

 

[Julien69]

Re : Lancement de macro des qu'une cellule est modifié

Grand merci à toi ca fonctionne super bien