Personnaliser un commentaire prêt à être complété

[anthoYS]

Bonjour,

Je souhaite que à ce commentaire vierge qui est déclanché si l'on fait un double clic, on y ajoute à l'intérieur :

"Lieu :" puis à la ligne
"Détails :"

Autrement dit passer de ça :



à ça :



Voici le présent code, qui fait apparaître une case de commentaire, mais pour le coup, vierge.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
End With
End Sub

De plus, je souhaite que le commentaire soit possible non pas seulement en colonne 2 (B) mais pour toute cellule de l'onglet ou le code est présent, et tout ceci après un double clic dans n'importe quelle cellule.

Merci par avance.

 

[Excel-lent]

Re : Personnaliser un commentaire prêt à être complété

Bonjour AnthoYs,

Tu as fait le plus dur, voici ci-dessous la suite.

Mettre ce code sur la feuille voulu et non pas dans "module..." ou "ThisWorkBook"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Comment Is Nothing Then
        .AddComment
        .Comment.Shape.Width = 241.5
        .Comment.Shape.Height = 99.75
        .Comment.Text Text:="Lieu :" & Chr(10) & "Détail :"
        .Select
    End If
    SendKeys "%im"
End With
End Sub

Bon Dimanche

 

[anthoYS]

Re : Personnaliser un commentaire prêt à être complété

Re,

Merci Excel-lent.
Juste une chose, maintenant après le double clic le commentaire n'est pas modifiable directement, ou à compléter dessuite comme l'est mon ancien code.

Merci par avance.

 

[Excel-lent]

Re : Personnaliser un commentaire prêt à être complété

Hello AnthoYS,

Dans ce cas ce code te conviendrais mieux?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Lieu As String
Dim Détail As String

Lieu = InputBox("Veuillez saisir le lieu : ")
Détail = InputBox("Veuillez saisir le détail : ")

With Target
    If .Comment Is Nothing Then
        .AddComment
        .Comment.Shape.Width = 241.5
        .Comment.Shape.Height = 99.75
        .Comment.Text Text:="Lieu : " & Lieu & Chr(10) & "Détail : " & Détail
        .Select
    End If
    SendKeys "%im"
End With
End Sub

A te lire

Cordialement

 

[BOISGONTIER]

Re : Personnaliser un commentaire prêt à être complété

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Comment Is Nothing Then
   With Target
    .AddComment   ' Création commentaire
    .Comment.Shape.Width = 241.5
    .Comment.Shape.Height = 99.75
   End With
   SendKeys "%im"
   SendKeys "Lieu:" & Chr(10) & "Détail:"
   Cancel = True
 End If
End Sub

JB
Formation Excel VBA JB

 

[anthoYS]

Re : Personnaliser un commentaire prêt à être complété

Merci à vous (Excel-lent, BOISGONTIER)