Discussion :

[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

[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?

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[SfJ5Rpw8]

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..

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+