Bonjour,

J'ai une petite macro qui trie une sélection.
Cependant je voudrai exclure les cellules vides de la sélection.

Merci de votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub Tri2()
Feuil1.Range("D10:G41").Select
Selection.Sort Key1:=Feuil1.Range("D10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Voici le tableau que je veux trier :

Fut WTI Mai Sens Quantité Prix REMARQUE
Vente -1 106,85




Achat 20 106,02
Achat 10 105,95
Vente -1 107,17
Vente -1 107,38
Vente -1 107,22
Vente -1 106,80
Vente -2 106,85
Vente -2 107,20
Vente -2 107,05
Vente -2 107,40
Vente -1 107,61
Vente -1 107,75
Vente -3 108,00
Vente -1 107,85
Vente -1 107,74
Vente -1 108,21
Vente -1 108,27
Vente -1 107,50
Vente -2 107,25
Vente -5 108,00 Assignation
Vente -10 102,00 Assignation
Vente -10 105,50 Assignation
Vente -10 107,50 Assignation
Vente -10 106,50 Assignation
Vente -2 108,20 CAPBS
Vente -2 108,10 CAPBS
Vente -2 108,45 CAPBS