Comment faire pour que mon userform apparaisse après avoir effectué un clic
dans une cellule (ici ab6)
J'ai essayé de faire le code suivant mais çà ne fonctionne pas.
Où me suis-je trompé ?
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("AB6")) Is Nothing Then
UserForm1.Show
Exit Sub
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
fredbzr
Désolé, je viens de trouver mon erreur...... Il fallait que je fasse ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("ab6")) Is Nothing Then UserForm1.Show Exit Sub End If
merci à vous et bonne journée (où peut-être à tout à l'heure.....) "fredbzr" a écrit dans le message de news: 4562be10$0$27389$
Bonjour à tous
Comment faire pour que mon userform apparaisse après avoir effectué un clic dans une cellule (ici ab6) J'ai essayé de faire le code suivant mais çà ne fonctionne pas. Où me suis-je trompé ?
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("AB6")) Is Nothing Then UserForm1.Show Exit Sub End Sub
merci pour votre coup de main -- Fred
Désolé, je viens de trouver mon erreur......
Il fallait que je fasse ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("ab6")) Is Nothing Then
UserForm1.Show
Exit Sub
End If
merci à vous et bonne journée (où peut-être à tout à l'heure.....)
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4562be10$0$27389$ba4acef3@news.orange.fr...
Bonjour à tous
Comment faire pour que mon userform apparaisse après avoir effectué un
clic dans une cellule (ici ab6)
J'ai essayé de faire le code suivant mais çà ne fonctionne pas.
Où me suis-je trompé ?
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("AB6")) Is Nothing Then
UserForm1.Show
Exit Sub
End Sub
Désolé, je viens de trouver mon erreur...... Il fallait que je fasse ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("ab6")) Is Nothing Then UserForm1.Show Exit Sub End If
merci à vous et bonne journée (où peut-être à tout à l'heure.....) "fredbzr" a écrit dans le message de news: 4562be10$0$27389$
Bonjour à tous
Comment faire pour que mon userform apparaisse après avoir effectué un clic dans une cellule (ici ab6) J'ai essayé de faire le code suivant mais çà ne fonctionne pas. Où me suis-je trompé ?
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("AB6")) Is Nothing Then UserForm1.Show Exit Sub End Sub
