Discussion :

[NEC14]

Bonjour à tous,

J'ai déjà fait cela, mais je ne retrouve plus le code.

J'aimerai que lorsque je clique sur la cellule A5 d'une feuille de calcul, l'userform UFMenu1 s'affiche et que lorsque je clique sur la cellule B5 il ne soit plus affiché.

Pouvez-vous m'aider s'il vous plait ?

Merci par avance

[ctac_]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A5")) Is Nothing Then
        UFMenu1.Show False
    End If
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        Unload UFMenu1
    End If
End Sub

ctac

[mercatog]

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$5" Then
    UserForm1.Show 0
ElseIf Target.Address = "$B$5" Then
    Unload UserForm1
End If
End Sub

[NEC14]

Bonjour à tous,

Merci beaucoup ça fonctionne bien.
Bonne journée et à plus tard
Amicalement