Bonjour,
Je souhaite programmer des commentaires. Pour cela j'ai créé une macro pour récupérer les instructions correspondantes.
- Je pars d'une cellule sans commentaire (B2)
- Clic droit Insérer un commentaire
- Effacement du commentaire par défaut, frappe du nouveau commentaire "Toto"
- Redimensionnement de la fenêtre.
Ce qui donne la macro suivante :
Quand j'exécute cette macro ça fonctionne, sauf pour le redimensionnement de la fenêtre (les 2 instructions Selection.ShapeRange. . . .) qui m'affiche un message d'erreur : Propriété ou méthode non gérée par cet objet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Range("B2").Select Range("B2").AddComment Range("B2").Comment.Visible = False Range("B2").Comment.Text Text:="Toto" Selection.ShapeRange.ScaleWidth 0.37, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft Range("B4").Select
Comment dois-procéder pour redimensionner la fenêtre du commentaire ?
Merci
Partager