Discussion :

[Un Internaute]

Bonjour le forum

Dans la macro ci-dessous
Pour modifier le commentaire il faut mettre false
Si on met True s'affiche ceci


Modifier Commentaire dans Cellules H2:H4 fusionnées
1er Clic droit supprime 1 & affiche couleur
2ème Clic droit affiche 1 & supprime couleur

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'macro pour click droit cellules colonne H
Cancel = True
If Not Application.Intersect(Target, Range("H6:H36")) Is Nothing Then
If Target.Value = "" Then
Target.Value = 1
Else
Target.Value = ""
End If
End If
Cancel = True ' False pour modifier le commentaire
End Sub

Merci pour vos éventuels retours
Cordialement