Discussion :

[retraite83]

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 ?

[unparia]

Bonjour
Si personne ne sort du chapeau une méthode que j'ignore, tu as toujours la ressource d'ajouter avant le tri une colonne (que tu peux masquer) contenant la hauteur de chacune des lignes, puis de te servir de ces valeurs pour redimensionner en boucle tes lignes.

[retraite83]

Oui merci, c'est une bonne idée par défaut

[boisgontierjacques]

Bonsoir,

Exemple de tri qui conserve les hauteurs de ligne et la mise en forme


Boisgontier

[retraite83]

Post #2

comme j'ai après le tri une boucle de traitement ton post m'a donné l'idée pour chaque ligne de faire :

Code :

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

Range("A" & i) = Range("A" & i)

cela déclenche bien :

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

et ma hauteur de ligne est remise, mais c'est long... toutes les lignes y passent...

Par contre seule la colonne "A" est susceptible d'avoir une hauteur de ligne ajustable.

une astuce ?

[unparia]

Par contre c'est long... toutes les lignes y passent...

Une boucle sur toutes les lignes demeure dans ce cas indispensable
Cf mon message antérieur :

puis de te servir de ces valeurs pour redimensionner en boucle tes lignes.

Je ne vois personnellement pas comment l'éviter

EDIT : les choses ne pourraient revêtir un aspect différent que si (et il st peu vraisemblable que tel soit le cas), à la fois :
- les lignes de hauteur différentes pouvaient être répétitives et identifiées (pour chaque "cas") par un "flag"
- le nombre de ces "cas" différents (et donc des flags ddistincts) n'était pas pléthorique
- tu assortissais, au moment de leur création, chacune de ces lignes du "flag" correspondant

Un traitement par groupes de même "flag" serait alors envisageable. Le jeu en vaut-il vraiment la chandelle (je ne le crois pas. On ne trie pas tous les jours et la durée du traitement n'est donc pas si pénalisante qu'elle justifierait tout ce travail...) ?

Je ne comprends pas cette phrase -->>

Par contre seule la colonne "A" est susceptible d'avoir une hauteur de ligne ajustable.

Une ligne étant une ligne, c'est toute la ligne, qui est impactée, et pas seulement les cellules de cette ligne en colonne A

(j'espère que tu n'as pas fusionné des cellules...)