C@thy
XLDnaute Barbatruc
Bonjour le forum,
je cherche à compléter le titre de mes colonnes avec des espaces jusqu'à 30 caractères, puis à formater la largeur des mes colonnes ayant un titre sur cette largeur (celle des titres) et faire un renvoi à la ligne automatique lorsque ça dépasse 30 car.
j'ai écrit ceci :
le problème c'est que ça me tronque lorsque le titre a + de 30 car, et ça, il ne faut pas, il faut un renvoi à la ligne auto.
Une idée pour corriger ma macro???
Merci à vous
C@thy
je cherche à compléter le titre de mes colonnes avec des espaces jusqu'à 30 caractères, puis à formater la largeur des mes colonnes ayant un titre sur cette largeur (celle des titres) et faire un renvoi à la ligne automatique lorsque ça dépasse 30 car.
j'ai écrit ceci :
Code:
Sub Macro1()
Range("A1", Range("A1").End(xlToRight)).Select
For Each cel In Selection
cel.Value = Left(cel.Value & Space(30), 30)
Next cel
Selection.Columns.AutoFit
Selection.CurrentRegion.Select
With Selection
.VerticalAlignment = xlCenter
.WrapText = True
End With
End Sub
Une idée pour corriger ma macro???
Merci à vous
C@thy