Bonjour, je suis nouveau sur ce forum et débutant en VBA...
je vous explique le problème:
 
dans ma feuil2 j'ai un bouton qui effectue un tri dans ma feuil1(base), en fonction d'une catégorie.
jusque là tout va bien.
 
encore dans ma feuil2 je fais apparaître une listbox, et là c'est le drame...
je veux faire apparaître le tri déjà effectué dans ma feuil1(base) mais ce qui s'affiche c'est toute la feuil1, sans tri.
 
Mon code pour le tri :  
 
Private Sub CommandButton1_Click()
 
Feuil2.Cells(3, "k" ) = ListBox1.Text
 
If ListBox1.Text = "Charpente Bois" Then
 
    Sheets("base" ).Select
    Range("a300" ).Select
 
    Selection.AutoFilter Field:=6, Criteria1:="charpente bois"
     
End If
 
If ListBox1.Text = "Couverture Bardage" Then
 
    Sheets("base" ).Select
    Range("a300" ).Select
 
    Selection.AutoFilter Field:=6, Criteria1:="Couverture Bardage"
     
End If
 
Sheets("feuil2" ).Activate
 
UserForm2.Hide
 
End Sub
 
Mon code pour la listbox :attention pas les mêmes listbox!
 
Private Sub UserForm_Activate()
Dim i
i = 3
Do While Feuil1.Cells(i, "a" ) <> ""
ListBox1.AddItem Feuil1.Cells(i, "a" )
i = i + 1
Loop
End sub
 
 
Je sais que la solution est super simple mais j'arrive à la trouver!
 
Merci pour votre aide!
 

Private Sub UserForm_Activate()
Dim i
i = 3
Do While Feuil1.Cells(i, "a" ) <> ""
ListBox1.AddItem Feuil1.Cells(i, "a" )
i = i + 1
Loop
End sub
 
Ce bout de code te copie toutes tes cells de feuil1 de colonne A non vide.
donc fatalement  

Ce bout de code te copie toutes tes cells de feuil1 de colonne A non vide.
donc fatalement  [/quotemsg]
 
Je sais bien! Mais ce que je ne comprends pas c'est que normalement dans ma feuil1 le tri est déjà effectué, donc dans la listbox il ne devrait y avoir que la colonne A déjà triée!!
Je sais que ce code est pas bon puisque ça marche pas...  
 
Si t'avais une solution...
Merci d'avance.

Personne peut m'aider?
 
Snif...

Bonjour,
 
Il me semble que "autofilter" ne fait pas de tri mais ajoute un filtre.
Si tu veux trier "Sort" semble plus approprié.