Modification code

UJAP · 3 Mars 2010

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 · 3 Mars 2010

Re : Modification code

bonjour UJAP

Code:

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 · 3 Mars 2010

Re : Modification code

Merci pr la réponse,

Modification code

UJAP

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

UJAP

XLDnaute Occasionnel

Discussions similaires

Modification code

UJAP

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

UJAP

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency