erreur ds le redimentionnement d'une fenêtre deCommentaire

[Solange]

Bonsoir le forum,

Suite aux réponces de jmps et de ThierryR précédemment, j'ai une erreur qui c'est glissée...:

Range("A1").AddComment
Range("A1").Comment.Text Text:="Excel:" & Chr(10) & "Mon commentaire"
Selection.ShapeRange.ScaleWidth 1.85, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.95, msoFalse, msoScaleFromTopLeft

quand j'execute ce code, j'ai une Erreur 1004; Erreur Définie par l'Application ou par l'objet, avec la 1ère ligne en jaune.

D'où cela peut il provenir ???
Merci de vos remarques.
Bonne Soirée
Solange

 

[Yeahou]

Bonjour Solange, le forum

on ne peut pas ajouter un commentaire si il y en a déja un
ajoute en première ligne

Range("A1").ClearComments

Cordialement, A+

 

[Jean-Marie]

Bonsoir Solange

Cela vient qu'une cellule ne peut posséder qu'un commentaire.

Utilise la gestion d'erreur,
On Error Resume Next
ou
Range("A1").ClearComments

@+Jean-Marie

 

[Yeahou]

oups, désolé Jean Marie

 

[Solange]

Bonsoir Jean-Marie, Re bonsoir le Forum,

Merci Jean-Marie pour ta réponce, je viens effectivement de trouver la réponce tte seule comme une grande, avant de revenir sur le Forum pour une autre question liée au même Pb.

il me met maintenant erreur 438, Propriété ou méthode non gérée par l'objet ???

Merci pour vos réponces.

Solange

 

[Solange]

désolé Yeahou ...

 

[Yeahou]

un lien sur le paramètrage de commentaires, tu devrais y trouver ton bonheur.

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=123045&t=123015>

A+

 

[Solange]

Re bonsoir Yaehou, le forum,

j'ai survolé les explications, mais je ne comprend pas tout par rapport a mon besoin. la 3ème ligne est maintenant en jaune...avec erreur 438, Propriété ou méthode non gérée par l'objet

Range("A1").AddComment
Range("A1").Comment.Text Text:="Excel:" & Chr(10) & "Mon commentaire"
Selection.ShapeRange.ScaleWidth 1.85, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.95, msoFalse, msoScaleFromTopLeft

Help !
Solange

 

[Yeahou]

Bonjour

exemple adapté à ton cas

A+

With Range("A1")
.ClearComments
With .AddComment
.Text "Excel:" & Chr(10) & "Mon commentaire"
.Shape.Height = 15
.Shape.Width = 100
End With
With .Comment
.Shape.TextFrame.Characters.Font.Bold = True
.Shape.TextFrame.Characters.Font.Size = 20
.Shape.ScaleWidth 1.53, msoFalse, msoScaleFromTopLeft
.Shape.ScaleHeight 3.36, msoFalse, msoScaleFromTopLeft
End With
End With

 

[ThierryR]

Bonjour Solange et au forum =)

Il est bon de garder le meme fil de discussion.

Ma réponse était partielle car, excuse moi, tu n'as pas été assez précise sur ce que tu voulais c'est à dire le créer et le modifier.
Je répondais simplement a ta question qui était comment redimensionner un commentaire donc, pour moi, existant au départ. Mon exemple marche dans ce cas.

En tout cas je suis content que tu ais trouvé ce qu'il te fallait.

A plus

ThierryR