Retour à la ligne

Bonjour à tout le forum,

J'ai une question mais je ne sais pas si cela est réalisable :

voila j'ai un tableau dans lequel ma première colonne contient des chaines de caractères trop longues et toutes différentes. J'aimerai automatiser un retour à la ligne pour la colonne A et E. En gros améliorer le code enregistreur suivant (qui ne fonctionne pas sur une boucle d'onglet) :

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Range("E6:E200").Select

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

le nombre de ligne est variable.

Merci pour votre soutien !

Bonjour,

.Range("E6:E200").WrapText = True

La seule ligne utile est celle-ci.

Tu la retiens et tu supprimes le reste.

Et tu construis une boucle pour boucler sur tes onglets.

Si la même plage est concernée ce sera facile, sinon il faudra adapter...

Pour la boucle tu peux te contenter de :

Dim ws As Worksheet

ça pour ne pas oublier de déclarer ses variables...

For Each ws In Worksheets
   .Range("E6:E200").WrapText = True
Next ws

Si toutes les feuilles ne sont pas concernées, une condition sur le nom de la feuille permettra d'éliminer celles à ne pas traiter.

Et passer un peu de temps à apprendre à lire le code, cela peut servir !

Cordialement.

Bonjour,

Parfait ta solution marche très bien ! merci MFerrand.

Rechercher des sujets similaires à "retour ligne"