Discussion :

[Ergastule66]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lucasgaetan]

Bonjour,

Est-ce que un AutoFit de la feuille te conviendrait?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorkSheets("Devis").Cells.EntireRow.AutoFit