Modification code

[UJAP]

Bonjour,

Je viens de trouver un code sur Internet par rapport à la gestion d'une liste.

Je voulais juste savoir comment je pouvais modifier ce code afin d'ajouter une nouvelle zone cad A2:A2 et M9:M1000 ?

Merci d'avance pour vos réponses,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A2], Target) Is Nothing Then
UserForm3.Show
End If
End Sub

 

[pierrejean]

Re : Modification code

bonjour UJAP

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Union(Range("A2"), Range("M9:M100")), Target) Is Nothing Then
UserForm3.Show
End If
End Sub

 

[UJAP]

Re : Modification code

Merci pr la réponse,