Bonjour,

je veux trier des lignes dont la hauteur est ajustée à la saisie par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim actRow As Integer
actRow = Target.Row
 
ActiveSheet.Rows(actRow).AutoFit
ActiveSheet.Rows(actRow).RowHeight = 5 + ActiveSheet.Rows(actRow).RowHeight
 
End Sub
mon tri :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
With Cells(Rows.Count, "C").End(xlUp).MergeArea: derLigbook = .Cells(.Cells.Count).Row: End With
Range("C3:J" & derLigbook).Sort key1:=Range("C3:C" & derLigbook), order1:=xlAscending, Header:=xlNo
à la sortie du tri, j'ai perdu les hauteurs de lignes ajustées.

Surement un paramètre à ajouter mais lequel ?