2 macros évènementielles???

[Jacques]

Bonsoir à toutes et à tous,

J'aurai besoin d'un peu d'aide ou tout du moins d'une explication, j'ai besoin de mettre dans le code d'une feuille 2 macros de type :

Private Sub Worksheet_Change(ByVal Target As Range)

Elles sont indépendantes l'une de l'autre, elles marchent l'une et l'autre, mais je n'arrive pas à les faire fonctionner les 2 en même temps.
J'ai essayé des les accoler l'une derrière l'autre, ça ne marche pas, en changeant le nom de l'une ça ne marche pas non plus.

Question : Que puis-je faire????

Merci de votre aide.

Jacques

 

[CBernardT]

Bonsoir Jacques et le forum


Une solution consiste à les conditionner !

Exemple :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D1")) Is Nothing Then
If Range("D1") = "Run" Then
Demarrer
End If
End If
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Programmation
End If
End Sub

Cordialement

CBernardT

 

[Jacques]

Merci beaucoup CbernardT, j'essai dès demain.

@ plus

Jacques