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