Ajustement hauteur de ligne VBA

[gibtoul]

Bonjour à Tous

J'ai un tableau sur lequel je souhaite appliquer un ajustement de ligne
j'ai créé avec enregistrement macro le code suivant declenché par un bouton.

Elle fonctionne , mais bizarrement après enregistrement et réouverture du fichier
le renvoi ne fonctionne plus

Y a t il une erreur dans mon code ?

merci pour votre aide

a+




Sub renvoiauto()
Range("A22:AE1515").Select
Selection.Rows.AutoFit
With Selection
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

 

[CBernardT]

Re : Ajustement hauteur de ligne VBA

Bonjour gibtoul,

Essaye cette syntaxe :

Sub renvoiauto()
With Sheets("NomDeLaFeuille").Range("A22:AE1515")
.Rows.AutoFit
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

Remplacer "NomDeLaFeuille" par le nom de la feuille concernée

 

[gibtoul]

Re : Ajustement hauteur de ligne VBA

Merci bernard pour ta reponse

je teste de suite la modif

je te tiens au courant

a+