XL 2016 Addcomment / userform

[Bilna]

Bonjour,

Je cherche à crée une macro manipulant les commentaires de cellules (ajout et modification via userform). Mais plutôt que de définir une cellule précise je voudrais que cela se fasse via une sélection à l'aide de la souris. Quelqu'un aurait-il des pistes ?


Merci

 

[sylvanu]

Bonjour Bilna,
Quoique la finalité me laisse perplexe, un essai en PJ.
J'ai choisi le double clic pour creer/modifier le commentaire.

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On error Goto Fin  
If Not Application.Intersect(Target, Range("A1:G20")) Is Nothing Then
        If ActiveCell.Comment Is Nothing Then
            Com = ""
            resultat = InputBox(Com, "Modifiez le commentaire")
            ActiveCell.AddComment
            ActiveCell.Comment.Text Text:=resultat
        Else
            Com = ActiveCell.Comment.Text
            resultat = InputBox(Com, "Modifiez le commentaire")
            If resultat <> Target.Comment.Text Then
                ActiveCell.Comment.Text Text:=resultat
            End If
        End If
    End If
Fin:
End Sub

Pour plus de renseignements, voir :

FAQ Excel

FAQ Excel

excel.developpez.com