[VBA-E]Ajout de commentaires

Version imprimable

29/03/2006, 19h18
TOURNIER

[VBA-E]Ajout de commentaires

Bonjour, utilisateur d'excel pour gérer l'emploi du temps de nombreux groupes de personnes, je suis obligé (pour diverses raisons) d'utiliser des formes types rectangles pour ecrire les gros pavés d'activités. Malheureusement je n'arrive pas par macro (du à mon niveau tres moyen) à inserer des commentaires à ce type de formes.
cela est il possible et si oui merci de m'éclairer
30/03/2006, 10h05
Megaxel

Je n'ai jamais fait ça, mais si tu enregistres une macro pendant que tu fais "à la main" ton ajout de commentaire, tu n'obtiens pas à peu près la syntaxe de ce que tu veux faire?

T'as raison, Megaxel, et le même code simplifié donne ça :

Code:

1
2
3
4
5
6
    With Cells(5, 6) 'où tu peux remplacer 5 et 6 par des variables (NoLigne, NoColonne)
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:="Coucou, " & vbLf & "Je suis un commentaire ajouté par TOURNIER"
    End With
    Cells(1, 1).Select

A+

30/03/2006, 11h19
SfJ5Rpw8

Re: [VBA-E]Ajout de commentaires

Citation:

Envoyé par TOURNIER

Bonjour, utilisateur d'excel pour gérer l'emploi du temps de nombreux groupes de personnes, je suis obligé (pour diverses raisons) d'utiliser des formes types rectangles pour ecrire les gros pavés d'activités. Malheureusement je n'arrive pas par macro (du à mon niveau tres moyen) à inserer des commentaires à ce type de formes.
cela est il possible et si oui merci de m'éclairer

je comprends pas bien .. de quels commentaires tu parle

? commentaire au sens commentaire de cellule Excel...

si tes pavés viennent de la palette dessin, et que ton commentaire c'est un texte que tu ve placer à l'intérieur ( visible en permanence..) , utilise plutôt les Zone de Texte , dans la même palette.. :wink:

J'ai encore lu trop vite. Pour insérer une zone de texte là où tu veux dans une feuille Excel, tu as ça
Code:

1 2 3 4 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 379.5, 334.5, _ 111#, 37.5).Select Selection.Characters.Text = _ "Ceci est un texte ajouté dans une zone de texte qu'on peut placer en xy avec top et left"
Syntaxe : expression.AddTextbox(Orientation, Left, Top, Width, Height)

Pour placer ta zone de texte là où tu le souhaites, tu peux prendre pour référence X et Y, le top et le left d'une cellule
Activecell.top 'ou left

A+