Commentaire à saisir après double clic (cadre vierge)

Voici le code permettant ceci, or les dimensions du cadre ne me conviennent pas ;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
    Cancel = True
        If Target.Comment Is Nothing Then
            Target.AddComment
        End If
    SendKeys "%im"
    End If
End Sub

Comment faire pour qu'après le double clic les dimensions du cadre soient les suivantes :

• hauteur de 3,53 cm
• largeur de 8,23 cm ?

Merci par avance à ceux qui auront une idée et me la transmettront.

Bonjour à tous,

C'est bizarre ! on arrive à enregistrer une macro pour dimensionner le Commentaire,

mais je n'arrive pas à l'incorporer dans le Private Sub

désolé

Amicalement

Claude

Bonsoir,

peut-être ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 1 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

Nota, les valeurs sont en "Points", et correspondent à tes valeurs en "cm"

bonne soirée

Bonjour Nouméa,

me manquait le With Target

Bonne journée

laude

Merci à cousinhub, dubois...

Bonsoir,