XL 2019 Comment empêcher ce message d'erreur en cas de sélection d'une plage et d'un clic droit accidentel ? Seul en F, il doit afficher le commentaire prêt ?

anthoYS à dit:

impeccable, merci à tous les deux !

Cliquez pour agrandir...

Target.AddComment

Target.AddComment ""

Gégé-45550 à dit:

Donc vous préférez la solution de sousou !
C'est vrai qu'elle est bien meilleure que la mienne 😂
Au fait :

VB:

Target.AddComment

suffit, pas besoin d'écrire :

Code:

Target.AddComment ""

😉

Cliquez pour agrandir...

patricktoulon à dit:

non
le cancel doit être dans la condition et la condition doit avoir un else dans le quel on le met a false
une version complete
nb: le "" est obligatoire sinon le select ne marchera pas excel considère qu'il n'y a rien a selectionner
par contre si il y est le trait clignotant (le carêt) va se mettre pres a taper au debut ou a la suite de ce qui a déjà

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim com As Comment
    If Target.Column = [F1].Column Then
        If Target.Count = 1 Then
            Set com = Target.Comment
            If com Is Nothing Then Target.AddComment "" ' si tu met pas un stringvide le commentaire ne prend pas le focus avec le select après
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
            Cancel = True
        End If
    Else
        '////////////////////////////////////////////
        ' si tu veux qu'il disparaise au click droite ailleurs que "F"
        For Each com In ActiveSheet.Comments
            com.Visible = False
        Next
        '////////////////////////////////////////////
       
        Cancel = False
    End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim com As Comment
    ' si tu veux qu'il disparaissent a la selection ailleurs que "F"
    For Each com In ActiveSheet.Comments
        com.Visible = False
    Next
End Sub

Patrick

Cliquez pour agrandir...