tri VBA

[Max]

Bonjour a tous
Cette petite macro sélectionne une plage et classe par ordre alphabétique, mais comment faire pour qu'elle ne me classe pas les lignes vides en premier
merci de votre aide
max


Range('A4:Q137').Select
Selection.Sort Key1:=Range('A4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 4

 

[Jacques87]

Bonjour Max

une solution serait, si tu le peux, de supprimer les lignes vides avant ou après l'exécution de la macro

For I = 4 to 137
If Range('A' & I) = '' Then ' vu que tu trie selon les cellules de la colonne A
Row(I).Delete Shift:=xlUp
Next I

ceci devrait te convenir

 

[max]

Merci Jacques

J'ai fait cela mais ça bloque sur Row

Range('A4:Q137').Select

Selection.Sort Key1:=Range('A4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 4
For I = 4 To 137
If Range('A' & I) = '' Then ' vu que tu trie selon les cellules de la colonne A
Row(I).Delete Shift:=xlUp

 

[Jacques87]

excuse moi, j'ai fais une fot dortaugrafe

il faut écrire Rows (avec un s)

 

[max]

Salut jacques
ça avance..
la il me met NEXT sans FOR



Range('A4:Q137').Select

Selection.Sort Key1:=Range('A4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 4
For I = 4 To 137
If Range('A' & I) = '' Then ' vu que tu trie selon les cellules de la colonne A
Rows(I).Delete Shift:=xlUp
Next I

End Sub

 

[Jacques87]

décidemment, je ferais bien d'aller me coucher et de plus je n'ai pas bu de Duvel (André comprendra)

il manque :

End If

Range('A4:Q137').Select

Selection.Sort Key1:=Range('A4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 4
For I = 4 To 137
If Range('A' & I) = '' Then ' vu que tu trie selon les cellules de la colonne A
Rows(I).Delete Shift:=xlUp
End If
Next I

End Sub

 

[max]

ok,
c'est good
encore merci
max