Autres Mise en forme automatique des Commentaires sous Excel 2007

[Jybe]

Bonjour,

J'ai pas mal fouillé dans ce site (sans avoir trouvé Graal) avant de me décider à poster ma question :
Existe-t-il sous Excel 2007 un moyen de mettre en forme - sur plusieurs feuilles - tous les commentaires : largeur fixe, hauteur automatique ?
Je vous précise que je suis une bille en VBA )
Merci d'avance pour vos réponses

JB

 

[Jybe]

J'ai bien vu ton msg où tu me dis qu'il faut mixer un peu toutes ces solutions mais je suis une bille en VBA, j'arrive tout juste à voir à quel endroit rentrer la largeur que je veux et mettre un ' devant la ligne qui règle la couleur

 

[Staple1600]

Re

Jybe
Relire le message#30, on a posté en même temps.

[Selon mon humble avis]
Personne n'est une bille en VBA.
Qui sait lire et mobiliser sa curiosité en utilisant les ressources du net est obligé de ranger sa bille dans sa poche.
[/Selon mon humble avis]

 

[Jybe]

Bonne idée
J'ai fait un mini extract avant-après sur 2 feuilles séparées

 

[Jybe]

Pour te dire à quel point je suis une bille, je sais pas ce que ÇA signifie :
Dim c As Excel.Comment
For Each ws In Worksheets
For Each c In ws.Comments

 

[patricktoulon]

re
oui donc en gros adapter la taille au texte quoi (a la vue de ton exemple)

et
.Shape.OLEFormat.Object.AutoSize = True ne suffit pas?

 

[Jybe]

Bah nan parce que ça fait une ligne super longue (comme la longueur de la plus grande phrase)

 

[patricktoulon]

re
tes lignes sont bien des lignes et non l’opération de wraptext dans tes commentaires ??????

 

[Jybe]

je sais ce que c'est Wraptext, mais les lignes, c'est moi qui les ai rentré (presque) a main.
Qd je dis "presque" c'est parce que j'ai fait la "mise en forme" sous Word puis j'ai copié/collé

 

[Staple1600]

Pour te dire à quel point je suis une bille, je sais pas ce que ÇA signifie :
Dim c As Excel.Comment
For Each ws In Worksheets
For Each c In ws.Comments

Ne pas le savoir, n'est pas un problème
Persister à ne pas le savoir, c'est un léger souci
Il suffit d'utiliser G..gle Translate pour avoir une petit traduction, non?
Enfin, je dis cela, je dis rien
NB: j'ai choisi c comme Comment pour nom de variable
et ws comme WorkSheet pour nom de variable
(Comment =Commentaire et Worksheet = feuille en anglais)

patricktoulon
Pas évident, cette histoire
L'AutoSize te fait des commentaires maousse
Je suis parti sur un Split (pour compter le NB de ligne du TextFrame)
Mais pour le moment, c'est pas probant.

 

[Jybe]

On peut mettre du code dans G Translate ????
J'y aurai jamais pensé

 

[patricktoulon]

re
je viens de tester c'est effectivement le wraptext qui fait tes lignes tu n'a pas vraiment le nombres de lignes que tu vois a l'ecran
demonstartion

comme tu peux le voir les sauts de lignes change au niveau des lignes qui n'en sont pas vraiment

on en a un après card , un après word

donc
il va te falloir traiter différemment ton problème
diviser le nombre de caractères par exemple par un certain nombre au choix et splitter ton texte avec cet interval par un saut de ligne (un vrai)

dans tout les cas tu n'a que cette solution
le seul problème c'est que les 2/3 vrai sauts de lignes seront plus
conclusion soit tu fait avec le "donc" soit tu reformate tes textes dans word ou toute app que tu voudra

@Staple1600 oui je viens de voir avec son fichier c'est foutu a part avec le donc cité ci dessus
sinon usine a gaz en perspective surtout si il veux garder les vrai sauts de ligne déjà existants

donc donc donc
boucle sur split vbcrlf
sousboucle sur les morceaux de texte
split les sub a un nombre défini RAISONNABLE
réinjection du new texte
ensuite AUTOSIZE

 

[Staple1600]

Re

On peut faire tout ce qu'on veut sur le net
Suffit d'être un tantinet curieux
On peut aussi sélectionner le code dans le message (sur le forum) et clic-droit Rechercher avec le moteur par défaut
(Cela permets de tomber des fois sur des infos intéressantes)
Bref aucune limite que le temps à consacré à Excel et au web

 

[Jybe]

Je comprends pas, tous mes changements de lignes ont été fait avec "ENTER" soit une soit 2 fois (pour les "titres)

 

[patricktoulon]

je vous donnerais bien une astuce mais c'est hard et surtout tordu original,rocambolesque

 

[patricktoulon]

Je comprends pas, tous mes changements de lignes ont été fait avec "ENTER" soit une soit 2 fois (pour les "titres)

et bien visiblement le copier coller world/excel a déraillé
c'est des chr(10) et tu en a 6 dans le commentaires de [B1]