Autres Mise en forme automatique des Commentaires sous Excel 2007

J

Jybe

XLDnaute Nouveau

• 13 Octobre 2019

• #31

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Octobre 2019

• #32

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]

 

Vote positif 0 Vote négatif

J

Jybe

XLDnaute Nouveau

• 13 Octobre 2019

• #33

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

 

Pièces jointes

• Avant-Après.xlsx

  13 KB · Affichages: 11

Vote positif 0 Vote négatif

J

Jybe

XLDnaute Nouveau

• 13 Octobre 2019

• #34

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2019

• #35

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?

 

Vote positif 0 Vote négatif

J

Jybe

XLDnaute Nouveau

• 13 Octobre 2019

• #36

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2019

• #37

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

 

Vote positif 0 Vote négatif

J

Jybe

XLDnaute Nouveau

• 13 Octobre 2019

• #38

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é

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Octobre 2019

• #39

Jybe à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

J

Jybe

XLDnaute Nouveau

• 13 Octobre 2019

• #40

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2019

• #41

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

 

Dernière édition: 13 Octobre 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Octobre 2019

• #42

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

 

Vote positif 0 Vote négatif

J

Jybe

XLDnaute Nouveau

• 13 Octobre 2019

• #43

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2019

• #44

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Octobre 2019

• #45

Jybe à dit:

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

Cliquez pour agrandir...

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]

 

Vote positif 0 Vote négatif