Commentaires

Bonjour,

http://cjoint.com/?mkvRJmMGsG

Cordialement JB

Merci, c'est OK.
Malheureusement, on ne peut plus utiliser le clic droit pour autre chose.

Tina

Bonjour,

http://cjoint.com/?mkvRJmMGsG

Cordialement JB

Bonjour,

Si la saisie des commentaires ne concerne qu'un champ connu, on peut
limiter l'utilisation du clic droit a ce champ.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
UserForm1.Show
End If
End Sub

JB

Je vais tester, mais la solution précédente me convient.
En fait, j'utilise personnellement beaucoup le clic droit mais ce n'est
apparemment pas le cas de la majorité des utilisateurs.
Merci bcp.
Tina

Bonjour,

Si la saisie des commentaires ne concerne qu'un champ connu, on peut
limiter l'utilisation du clic droit a ce champ.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
UserForm1.Show
End If
End Sub

JB

Bonsoir,
C'est OK, cette macro fonctionne aussi.
Mais j'ai un autre problème. Mon tableau va jusqu'à la colonne AN, et là,
visiblement la zone de commentaire s'éloigne très fort à droite et on ne la
voit plus et donc plus de possibilité de valider ou d'annuler (sauf avec ALT
F4). Pourrait-on lui indiquer que la zone s'affiche toujours au-dessus de la
cellule sélectionnée ?
Merci pour votre aide.
Tina

Bonjour,

Si la saisie des commentaires ne concerne qu'un champ connu, on peut
limiter l'utilisation du clic droit a ce champ.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
UserForm1.Show
End If
End Sub

JB