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]

Bonjour


je joins un fichier ... suiviG (profil glycémique expérimental).


Merci

 

[Gégé-45550]

Bonjour
Une proposition

If Target.Count = 1 Then
   Target.AddComment
   Target.Comment.Visible = True
   Target.Comment.Shape.Select
End If

cordialement,

 

[sousou]

Bonjour
Modifie comme ceci
' Ajoute un nouveau commentaire vide prêt à être saisi
If Target.Count = 1 Then
Target.AddComment ""
Target.Comment.Visible = True
Target.Comment.Shape.Select
End If
End If

 

[anthoYS]

impeccable, merci à tous les deux !

 

[Gégé-45550]

impeccable, merci à tous les deux !

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

Target.AddComment

suffit, pas besoin d'écrire :

Target.AddComment ""

😉

 

[anthoYS]

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

Target.AddComment

suffit, pas besoin d'écrire :

Target.AddComment ""

😉

Non, j'ai testé en premier celle-ci ! Mais après, je suis sûr qu'elle fonctionne aussi votre proposition de solution... :=) Pas de soucis !!

 

[anthoYS]

Je reviens par ici, un clic droit ailleurs qu'un F, doit permettre d'afficher ça :

Or là avec le code ça ne permet rien, rien ne se passe :

Merci

 

[sousou]

ajoute
Cancel = False
à la fin de ta de private.....befor....

 

[anthoYS]

Merci encore une fois :=)

 

[patricktoulon]

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à

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

 

[anthoYS]

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à

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

Merci beaucoup