Voila j'ai fait un code pour effectuer un tri.
 
J'ai reussi seulement a trier une colonne de mon tableau, mais je voudrais qu'il changent en meme temps les lignes completes.
 
Private Sub CommandButton1_Click()
Worksheets("BDD" ).Select
Dim cpt As Integer
    Dim val As Integer
    cpt = 1
    Do
        cpt = cpt + 1
    Loop While Range("B" & cpt).Value <> ""
    Range("B2:B" & cpt).Select
    Selection.Sort Key1:=Range("B2" ), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
 
 
Merci pour l'aide
 
 
 
 
 
 
 
 
 
 

si ma demande n'est pas claire n'hesiter pas à me demander

ok j'ai resolu mon affaire merci d'avoir reflechi sur mon pb !
 
post a clore