Instruction AutoFit en VBA
Bonjour à tous
Dans une application qui imprime avec des boucles sur des lignes successivement
un titre
un sous titre
une désignation d'ouvrage
avec des formats et des contenus différents
Je souhaite ajuster les hauteurs de lignes avec l'instruction suivante
Code:
WorkSheets("Devis").UsedRange.EntireRow.AutoFit
Cette instruction ne fonctionne que si je ferme et ré ouvre mon fichier, mais pas quand la macro se termine.
Ce n'est pas une gène absolue, mais comme l'ensemble de mon application est parfaitement automatisée grâce à VBA, excepté bien sur la saisie des informations, je souhaiterais que cette dernière instruction fonctionne.
J'ai essayé avec une autre écriture
Code:
1 2 3
| For Each Row In ActiveCell.Rows("5:" & Selection.Rows.Count)
Row.EntireRow.AutoFit
Next |
Qui fonctionne aussi mais également en fermant et re'ouvrant mon fichier.
J'espère que quelqu'un pourra me donner la solution
Cordialement
J'ai trouvé la solution avec l'écriture ci-après
'Ajustement de la hauteur réelle de la ligne
Rows(lngRow & ":" & lngRow).RowHeight = dblHeight
'Protection et refresh de l'écran
Application.ScreenUpdating = True