alimenter une listbox avec données filtrées

**casefayere** · 04/12/2007, 21h46

re-bonsoir,

j'ai une feuille excel avec une colonne contenant des produits et je voudrait alimenter une listbox avec des données filtrées de cette colonne (exemple : toutes les cellules contenant le mot "essai")

je sais déjà provoquer le filtre automatique mais je n'arrive pas à inserer le résultat dans ma listbox

Merci de votre aide

**casefayere** · 05/12/2007, 02h58

Tant pis et tant mieux

Comme je n'ai pas eu de réponse, j'ai cherché et recherché car je savais qu'on m'avais déjà donné la réponse et j'ai trouvé, pour mon programme, ça donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub produitfiltre()
Dim Plage As Range, Cel As Range
Dim produit
Dim ERREUR
  With Sheets("references")
  If .AutoFilterMode Then
     .AutoFilterMode = False
End If
 
    produit = TextBoxproduitcherche
    ERREUR = .Range("a2").End(xlDown).Offset(0, 0).Row
 
    .Range("c2").AutoFilter
    .Range("c2").AutoFilter Field:=3, Criteria1:="*" & produit & "*"
    Set Plage = .Range("g2", .Range("g2").End(xlDown))
    Set Plage = Plage.Cells.SpecialCells(xlCellTypeVisible)
 
    If Plage.Count > ERREUR Then
    If .AutoFilterMode Then
     .AutoFilterMode = False
    Exit Sub
    End If
    ListBoxPRODUITS.Clear
    For Each Cel In Plage
    With ListBoxPRODUITS
      .AddItem Cel(1, -3)
      .Column(1, .ListCount - 1) = Format(Cel(1, -2), "#,##0.00 €")
      .Column(2, .ListCount - 1) = Format(Cel(1, 0), "#,##0.00 €")
      .Column(3, .ListCount - 1) = Format(Cel(1, 4), "#,##0.00 €")
      .Column(4, .ListCount - 1) = Format(Cel(1, 5), "###0")
      .Column(5, .ListCount - 1) = Cel(1, 1)
    End With
 
    Next Cel
Selection.AutoFilter
  End With
End Sub

Si quelqu'un veut me l'améliorer, je suis preneur

Bonne nuit et à +

**Qwazerty** · 05/12/2007, 07h20

SAlut
Tu peux mettre en debut et en fin de macro

Code :

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

1
2
Application.Updating := false 'au debut 
Application.Updating := True 'et true a la fin de la macro

c'est un detail et ca n'ameliorera pas la vitesse du code (qui me parait tres bien) mais ca evitera que l'utilisateur voit des flash et des cellule qui se selectionnent toutes seules

A++
Qwaz