Gérer le commentaire avec VBA

[Risleure]

Bonjour à tous

J'utilise l'objet commentaire dans une cellule pour apporter des précisions au contenu de la cellule.
Pour cela je récupère le champs texte d'un Userform préalablement renseigné.
Mais mon problème est que ce commentaire se place 'naturellement' à droite de la cellule et il se trouve tronqué si j'ai figé les volets du tableau contenant la dite cellule et je n'aurais pas de problème si il se plaçait à gauche et au dessus.
Je n'arrive pas à trouver (ou à les appliquer !!!) toutes les propriétés qui gèrent l'objet 'Comment' sous VBA et plus particulièreemnt sa place, sa couleur et éventuellement le format du text.

J'ai trouvé comment gèrer sa hauteur
.Comment.Shape.Height =
et sa largeur
.Comment.Shape.Width =
Pour mes essais j'utilise la macro ci dessous

Sub GereCommentaire()

ActiveCell.AddComment
ActiveCell.Comment.Text Text:='Xldnaute' & Chr(10) & 't'es beau' & Chr(10) & 'je suis mieux.' & Chr(10) & ''
ActiveCell.Comment.Shape.Height = 100
ActiveCell.Comment.Shape.Width = 56

End Sub

....... j'espère que vous n'en serez pas frustrés


Merci d'avance
:unsure:

 

[MichelXld]

bonjour

pour modififier la postion par rapport à la cellule , je ne sais pas faire , mais pour le reste tu peux tester


Sub formatCommentaire()
Range('A1').AddComment
Range('A1').Comment.Text Text:='Le Forum :' & Chr(10) & 'XLD' & Chr(10) & ''
With Range('A1').Comment.Shape
.Width = 100 ' dimensions commentaire
.Height = 120
.OLEFormat.Object.Font.Size = 14 ' taille texte
.OLEFormat.Object.Interior.ColorIndex = 3 ' couleur de fond
.TextFrame.Characters.Font.ColorIndex = 4
.TextFrame.Characters.Font.Bold = True ' ecriture gras
.OLEFormat.Object.Font.Name = 'Bangle' ' type de police
End With
End Sub


en recherchant dans les anciens messages du forum , tu trouveras aussi une démo de Celeda pour personnaliser la forme du commentaire
je ne me souviens plus du lien exact mais je ne doute pas qu'une ame charitable nous le rappelera rapidement


bonne soiree
MichelXld

Message édité par: MichelXld, à: 01/06/2005 18:26

 

[Risleure]

Bonjour à tous

Merci MichelXLD pour ces compléments sur la manipulation des commentaires.
Il ne me reste plus qu'à trouver comment gérer l'emplacement.
Je vais refaire un tour dans le 'vieux' forum

Bonne journée

 

[Risleure]

Bonjour et merci José de prendre en compte mon pb.
Mais j'ai essayé la ligne

........
With ActiveCell.Comment.Shape
.IncrementLeft -200
.IncrementTop -100
End With
........

Et ça ne marche pas ???? :sick:
Mais ça ne bug pas non plus !!!

Et l'aide n'est pas plus explicite sur ces propriétés.

Si tu as une idée, merci d'avance.

 

[Risleure]

re Salut José
Et non, mon Activecell n'est pas proche du bord.
A+

 

[Risleure]

Merci José,
Ma question est en fait incomplète car ta solution est bonne si je demande l'affichage permanent du commentaire sur la feuille mais mon souhait est que ce commentaire ne s'affiche qu'au moment où le pointeur de la souris est au dessus de la cellule avec le petit coin rouge !!
Et dans ce cas le commentaire ne s'affiche pas à la place demandée mais à une place par défaut.
La solution est surement dans la gestion du pointeur de la souris qui entraine l'affichage du commentaire à l'endroit souhaité.
Il ne me reste plus qu'à cogiter cela.

Merci pour ton aide
A+

 

[Hervé]

Bonjour tout le monde

je viens pas avec une solution au problème mais juste avec un petit bidule.

Pour faire apparaitre les commentaires d'une manière moins brutales

salut
[file name=Classeur3_20050602152655.zip size=9248]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20050602152655.zip[/file]

 

[ong alain]

Bonjour à toutes et à tous

dans un de mes classeur j' ai utilisé ce lien pour modifier la police ,la couleur ,l'emplacement et le format automatique des commentaires
Ce lien n'existe plus

voir également
http://vlohr.free.fr/Forum_VeriTi/forum_1.php?msg=4326&return=1#top

J 'espère que cela pourra t'être utile

Ong alain