Adapter taille commentaires à cellule

Bonjour le forum

Lorsque je fait insertion commentaires j'adapte par les poignées à la taille de ma cellule. taille cellule largeur 70 hauteur 16

Y aurait-il une autre méthode

Macro?

Merci pour vos éventuels retours

Bonjour,
Un exemple à adapter.
Cdlt.

Public Sub InsertComment()
Dim cmt As Comment
    Set cmt = Selection.AddComment
    With cmt.Shape
        .Width = 70
        .Height = 16
    End With
End Sub

Bonjour Jean-Eric

Je ne suis pas un "grand spécialiste" des macros je mets ça où ?

Les bordures par défaut droite et en bas sont plus épiassent. Pas moyen de les modifier?

Feuille? , ThisWorkbook?

Il ne faut pas déclarer une variable?

Merci à toi

Bonjour,
La procédure est à placer dans un module standard. Elle crée un commentaire à partir de la cellule sélectionnée dans la feuille de calcul et applique une hauteur et largeur au commentaire (Question posée).
Pour un complément d'informations, précise clairement ta demande.
A te relire.
Cdlt.

Bonjour Jean-Eric

Oui je viens de trouver à l'instant et ça fonctionne à merveille.

Merci à toi

Bon WE

Cordialement

Re Jean-Eric ou un autre

Complément d'informations

Quand on met la hauteur de la ligne (dans cette exemple .Height = 16)

Largeur colonne = 70

Pour 16 ou autre hauteur ça le fait bien mais pour la largeur colonne (70) il faut tâtonner plusieurs fois approximativement 370)

Y a t-il une astuce pour le faire directement.?

Merci à vous

Bonjour le forum

Y aurait-il un "as" pour faire ceci avec msg box qui demande largeur colonne et hauteur de ligne?

C'est à dire : Pour une colonne de 70 de largeur il faut mettre 371. Donc connaissant largeur colonne (30) et hauteur de ligne (14)

Règle de trois. 371/70*30 (pour largeur colonne 30 et hauteur de ligne 14

Public Sub InsertComment()
Dim cmt As Comment
    Set cmt = Selection.AddComment
    With cmt.Shape
        .Width = 371
        .Height = 14
    End With
End Sub

Re le forum

Voilà

Merci à vous

Bonne fin de WE

Cordialement