Bonjour,
J'ai un soucis que je ne comprends absolument pas.
Je souhaite que lorsque je clic droit sur une case deux choses se passent:
- si la case est vide, une msg box s'affiche, et cela marche très bien.
- si la case n'est pas vide, le userform 2 s'ouvre.
voici le code que j'ai tapé qui me semble des plus simple et que j'ai mis dans la page de code de la feuille concernée.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Text = "" Then
MsgBox " cellule vide"
Else
UserForm3.Show
End If
End Sub
Je ne comprend pas pourquoi je ne m'en sors pas avec un truc aussi simple...
Merci de votre aide!
J'ai un soucis que je ne comprends absolument pas.
Je souhaite que lorsque je clic droit sur une case deux choses se passent:
- si la case est vide, une msg box s'affiche, et cela marche très bien.
- si la case n'est pas vide, le userform 2 s'ouvre.
voici le code que j'ai tapé qui me semble des plus simple et que j'ai mis dans la page de code de la feuille concernée.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Text = "" Then
MsgBox " cellule vide"
Else
UserForm3.Show
End If
End Sub
Je ne comprend pas pourquoi je ne m'en sors pas avec un truc aussi simple...
Merci de votre aide!