VBA aide à coder

Salut

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G6")) Is Nothing Then
UserForm1.Show
End If
End Sub

Comment faire pour ajouter le même code mais appliqué à la cellule G7 et G8 ?

Lunamaii

Bonjour

Essaye :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G6:G8")) Is Nothing Then
UserForm1.Show
End If
End Sub

Amicalement

Nad

Simple Rapide Efficace,

Merci Nad