cardre du commentaire

PascalXLD

XLDnaute Barbatruc

• 26 Janvier 2009

• #2

Re : cardre du commentaire

Bonjour

Tu as essayé d'enregistrer une macro au moment de le faire manuellement et d'ajouter ce code à ton transfert ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Janvier 2009

• #3

Re : cardre du commentaire

bonjour Evelyneetfrançois

A tester (et eventuellement a adapter)

Code:

Sub adapt_comment(cellule As Range)
maxlen = 0
x = Split(cellule.Comment.Text, Chr(10))
For n = LBound(x) To UBound(x)
If Len(x(n)) > maxlen Then maxlen = Len(x(n))
Next n
cellule.Comment.Shape.Width = maxlen * 5
cellule.Comment.Shape.Height = (UBound(x) + 1) * 12
End Sub

Edit: Salut Pascal 🙂

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 26 Janvier 2009

• #4

Re : cardre du commentaire

Merci pour vos reponse PascalXLD et pierrejean

l'idée de pascal m'etait bien passé par la tete mais je n'arrive pas a la mettre en oeuvre !!!
actuellement j utilise

Private Sub CommandButton1_Click()
Selection.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Interior.ColorIndex = 5
On Error Resume Next
ActiveCell.Comment.Text Text:=TextBox1.Value
Unload Me
ActiveCell.Offset(0, 1).Activate
End Sub

ca me copie bien le textbox1 dans le commentaire , mais la surface de ce commentaire est trop petite pour permettre une lmecture de la totalite!!

pierre jean , ca bloque de partout lol ..dsl , ou je comprend pas !!!

merci pour tout

E et F

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Janvier 2009

• #5

Re : cardre du commentaire

Re

Peux-tu poster un fichier exemple S.T.P ?

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 26 Janvier 2009

• #6

Re : cardre du commentaire

merci pierrejean
voici un exemple light
un double clic dans la cellule de son choix pour inserer un commentaire

E et F

 

Pièces jointes

• Agenda 2009.zip

  29.9 KB · Affichages: 37
• Agenda 2009.zip

  29.9 KB · Affichages: 37
• Agenda 2009.zip

  29.9 KB · Affichages: 36

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Janvier 2009

• #7

Re : cardre du commentaire

Bonjour Evelyneetfrançois, PierreJean🙂,Pascal🙂


peut être en utilisant la propriété "AutoSize ", comme dans l'exemple ci dessous :

Code:

Dim c As Comment
Set c = Range("A1").Comment
c.Shape.TextFrame.AutoSize = True

bonne soirée
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Janvier 2009

• #8

Re : cardre du commentaire

Re

Ouf !!
Pas evident ton probleme mais il me semble que cela y est
Toutefois il y a une petite contrainte: Il faut faire Entrée en fin de ligne lors de la saisie dans la textbox
En effet j'ai du mettre EnterKeyBehavior a true pour pouvoir mesurer la longueur des lignes
la sub d'adaptation est dans le module et elle est appelée apres entrée du texte dans le commentaire

Edit: Pierrot , si ta proposition est OK je suis ridicule !!!

 

Pièces jointes

• Agenda 2009.zip

  30.6 KB · Affichages: 46
• Agenda 2009.zip

  30.6 KB · Affichages: 43
• Agenda 2009.zip

  30.6 KB · Affichages: 52

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Janvier 2009

• #9

Re : cardre du commentaire

Re

Et comme de coutume notre ami Pierrot 🙂 a bien trouvé la meilleure solution
Priere d'oublier mon usine a gaz

 

Pièces jointes

• Agenda 2009.zip

  31.6 KB · Affichages: 75
• Agenda 2009.zip

  31.6 KB · Affichages: 61
• Agenda 2009.zip

  31.6 KB · Affichages: 60

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Janvier 2009

• #10

Re : cardre du commentaire

Re

aarf, merci PierreJean🙄, mais c'est pas une coutume, il m'arrive souvent de taper à coté. De plus ton code est très interressant. Te souhaitant une bonne soirée. Toujours un plaisir de te croiser

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 26 Janvier 2009

• #11

Re : cardre du commentaire

re

je vous remercie , vraiment fort , c'est genial !!!
bonne soirée à vous
vous etes super !!

E et F

 

Vote positif 0 Vote négatif