taille commentaire

Question

Bonjour,

Je souhaite qu'à chaque réactualisation (F9), la taille du commentaire de la cellule A soit figée (largeur et longueur spécifiée dans la macro) ou mieux, qu'elle soit "autosize"...  Je précise que ce commentaire change à chaque réactualisation (sinon, aucun intérêt).

Est-ce possible ?

D'avance merci

Greg

Answer 1

Bonjour,

Essaie cette macro.

La macro supprime les commentaires vides.

�??-----------------------------------------------------

Sub test()

Dim C As Comment, Texte As String

Dim L As Integer, W As Long, X As String

For Each C In Feuil1.Comments

Texte = C.Text

L = Len(Texte)

If L > 0 Then

W = (Application.Ceiling(L / 50,

1. • 1. * 12

Texte = Replace(Texte, vbCrLf, " ")

Texte = Replace(Texte, Chr(10), " ")

Texte = Replace(Texte, Chr(13), " ")

X = C.Parent.Address

C.Delete

Set C Range(X).AddComment

With C.Shape

.Height = W

.Width 210

.OLEFormat.Object.Text = Texte

.TextFrame.HorizontalAlignment = xlHAlignCenter

.TextFrame.VerticalAlignment = xlVAlignCenter

.TextFrame.AutoSize = False

End With

Else

C.Delete

End If

Next

End Sub

�??-----------------------------------------------------

Answer 2

Je n'y suis pas arrivé non plus. Désolé. Est-il possible que tu positionnes les retours ligne de façon manuelle ?

Daniel

Answer 3

Bonjour Daniel et merci pour cette réponse.

Je n'ai pas réussi à valider cette macro. Voici mon fichier : http://cjoint.com/?BEjxovwoEJs

Le but est que sur la Feuil2, on puisse voir apparaitre de façon aléatoire les questions de la Feuil1, avec le commentaire à la bonne taille.... Tu verras dans le VBA que j'ai certainement fait un peu au feeling.... sans succès.

J'ai essayé d'intégrer la macro à la feuil1 pour que les commentaires se mettent également à la bonne taille automatiquement.... sans plus de succès.

Merci encore

Greg

Answer 4

Bonjour,

La macro suivante met les commentaires existants à "autosize". Par contre, si tu veux qu'elle s'applique à chaque nouveau commentaire, dis-le :

Dim c As Range

With ActiveSheet

    For Each c In .Cells.SpecialCells(xlCellTypeComments)

        c.Comment.Shape.TextFrame.AutoSize = True

    Next c

End With

Cordialement.

Daniel

Answer 5

Bonjour à tous,

Je cherche à affiner un fichier (voir ici).

Ce que je souhaite, c'est que dans ma feuille 2, en cellule A1, la taille du commentaire soit fixe. En fait, quand je lance ma macro (qui fait référence de façon aléatoire à une autre cellule dans une autre feuille, accompagnée de son commentaire), la taille de dernier reprend son format par défaut.

Auriez-vous une solution ?

D'avance merci

Greg