Discussion :

[retraite83]

Bonjour,

grace aux conseils de ce forum j'ai pu obtenir ce que je voulais, c'est à dire adapter automatiquement les hauteurs de ligne des mes feuilles par le code suivant dans la feuille "Services"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
 
Worksheets("Services").Rows("5:43").AutoFit
Worksheets("Rates Services").Rows("5:43").AutoFit
 
For i = 121 To 198
Worksheets("Imprimable").Rows(i).EntireRow.AutoFit
Worksheets("Imprimable").Rows(i).RowHeight = 8 + Worksheets("Imprimable").Rows(i).RowHeight
Next i
 
End Sub

cependant il faut environ 5 secondes à chaque modification d'une cellule de la feuille pour exécuter ce code, et cela risque d'agacer les utilisateurs

Peut-on optimiser ce bout de code qui s'exécute à chaque fois qu'une cellule est modifiée

[patricktoulon]

Bonjour retraité

Worksheets("Services").Rows("5:43").AutoFit
Worksheets("Rates Services").Rows("5:43").AutoFit

For i = 121 To 198
Worksheets("Imprimable").Rows(i).EntireRow.AutoFit
Worksheets("Imprimable").Rows(i).RowHeight = 8 + Worksheets("Imprimable").Rows(i).RowHeight
Next i

ben deja tu pourrais te contenter d'autofiter uniquement la plage utilisée au lieu des rows entieres tu gagnerais pas mal je crois
seule ton height ne pourra etre fait autrement que une par une car elle sont pas toutes de la meme hauteur je supose, si c'est pas le cas un calcule de la premiere appliquée a toutes
et encore etant donné que tu double le height c'est que tu a plusieurs lignes dans une cellules non? c'est pas automatique ca si tu coche ""ajuster automatiquement a la ligne"

[retraite83]

Bonjour Patrick,

en fait la saisie est dans la feuille "Services" ensuite les données sont recopiées par Excel dans les 2 autres feuilles (par =cellule de "Services")

Et je veux que les lignes dans ces 2 autres feuilles s'ajustent aussi en hauteur automatiquement, c'est pour ça que j'ai toutes ces lignes

Bien sur les lignes ont une hauteur variable suivant la longueur du texte saisi

Je double le height avec le +8 pour aérer la mise en page en vue d'une impression via un PDF

[patricktoulon]

je repete autrement
quand tu saisi ta feuille avant de copier tu remplis pas toute la feuille ,seulement ce que tu a besoins pour tableau c'est juste celles ci qui faut autofiter sur les copie

Bien sur les lignes ont une hauteur variables suivant la longueur du texte saisi

ca veux dire que tes cellules sont en mode auto ajustement a la ligne il te faut donc mettre celle qui sont collée dans le meme etat

[retraite83]

Ok je vais étudier cela, tu veux dire qq chose dans ce style ?

Code :

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

Worksheets("Services").Range("B5:E43").AutoFit

En réfléchissant je me dis que je dois pouvoir faire l'autofit uniquement sur la ligne courante à chaque fois puisque la macro est déclenchée à chaque modifs dans une cellule

[patricktoulon]

oui sauf que autofit c'est pour les objects column uniquement
du genre

Code :

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

Range("A1:f10").EntireColumn.AutoFit