Bonjour mes amis ;
afin d'avoir une executtion automatique d'un macro (X) lors de changement du contenu d'une cellule bien determinée(Y)
il suffit d'inserer sur VBA :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Y")) Is Nothing Then
Call X
End If
End Sub
Mon probleme ;cest que je veux avoir; sur une meme feuille ;plussieurs macro , chacun executer automatiquement lors de changement d'une cellule bien determinée
par exemple macro X s'sexecute lors de changement de contenu de la cellule Y
macro B s'sexecute lors de changement de contenu de la cellule C
macro D s'sexecute lors de changement de contenu de la cellule P
j ai inseré le modele ci-dessous VBA :3 fois ( une fois pour chaque macro) en cliquant sur la touche "entrée" du clavier pour separer chaque macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("y3")) Is Nothing Then
Call X
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3")) Is Nothing Then
Call B
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("P3")) Is Nothing Then
Call D
End If
End Sub
Mais ca ne marche que pour le premier macro ; les deux autres j ai un message d erreur lors de l'execution.
afin d'avoir une executtion automatique d'un macro (X) lors de changement du contenu d'une cellule bien determinée(Y)
il suffit d'inserer sur VBA :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Y")) Is Nothing Then
Call X
End If
End Sub
Mon probleme ;cest que je veux avoir; sur une meme feuille ;plussieurs macro , chacun executer automatiquement lors de changement d'une cellule bien determinée
par exemple macro X s'sexecute lors de changement de contenu de la cellule Y
macro B s'sexecute lors de changement de contenu de la cellule C
macro D s'sexecute lors de changement de contenu de la cellule P
j ai inseré le modele ci-dessous VBA :3 fois ( une fois pour chaque macro) en cliquant sur la touche "entrée" du clavier pour separer chaque macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("y3")) Is Nothing Then
Call X
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3")) Is Nothing Then
Call B
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("P3")) Is Nothing Then
Call D
End If
End Sub
Mais ca ne marche que pour le premier macro ; les deux autres j ai un message d erreur lors de l'execution.