Insérer un commentaire

[phyfi]

Bonjour,
Je veux insérer un commentaire par le biais d'un doucle click dans les cellules de E1 à X1.
J'ai trouvé une macro mais je n'arrive pas à l'adapter notamment là où il y a les ???? pour que le commentaires ne puissent être rentrés que dans la plage E1: X1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next

With ??????
.AddComment
With .Comment
.Visible = True
.Text Text:=MyCmt
End With
End With
End Sub

Cela doit être facile mais comme je débute...
Merci de vos coneils
Phyfi

 

[Softmama]

Re : Insérer un commentaire

Bonjour,

Tu peux modifier ton code comme ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[B]If Target.count >1 then exit sub
if not intersect(Target, [E1:X1]) is nothing then[/B]
    MyCmt = InputBox("Inscrivez votre commentaire")
    On Error Resume Next
    With [B]Target[/B]
        .AddComment
         With .Comment
            .Visible = True
            .Text Text:=MyCmt
        End With
    End With
[B]end If[/B]
End Sub

 

[Softmama]

Re : Insérer un commentaire

Bonsoir Phyfi, Bonsoir carcharodon-carcharias,

Je pense en relisant la demande initiale de Phyfi y avoir correctement répondu. Le code de carcharodon-carcharias entre le commentaire dans chaque cellule de la zone E1 à x1. Le mien n'entre le commentaire que dans la cellule sélectionnée si elle appartient à cette même zone E1 à X1.

 

[BOISGONTIER]

Re : Insérer un commentaire

Bonsoir,

Dans un formulaire (création et modif)

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#SaisieCmtForm

http://boisgontierjacques.free.fr/fichiers/Commentaires/CommentaireSaisie2.xls

Avec Input

http://boisgontierjacques.free.fr/fichiers/Commentaires/CommentaireInput.xls

JB

 

[phyfi]

Re : Insérer un commentaire

Merci à vous deux mais...
La méthode de Car... n'était effectivement pas raccord avec ma demande mais bon c'ela me permet d'apprendre
Pour softmama, j'ai une erreur "Erreur de compilation. Bibliothèque ou projet introuvable" en m'indiquant [E1:X1]

Phyfi

 

[phyfi]

Re : Insérer un commentaire

Re,
Finalement le code suivant marche :

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E1:X1")) Is Nothing Then
Dim MyCmt As String
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next
With Target
.AddComment
With .Comment
.Visible = False
.Text Text:=MyCmt
End With
End With
End If

Merci