alimenter une listbox avec données filtrées

Version imprimable

04/12/2007, 21h46
casefayere

alimenter une listbox avec données filtrées

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

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:

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 à +

05/12/2007, 07h20
Qwazerty
SAlut
Tu peux mettre en debut et en fin de macro
Code:

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 :D
A++
Qwaz
05/12/2007, 15h10
casefayere

Bonjour owarzerty,

Merci du conseil

a+
05/12/2007, 15h24
casefayere

je viens d'essayer

re bonjour,

Je viens d'essayer mais la procédure n'est pas acceptée

???????
05/12/2007, 18h12
Qwazerty

Salut
Désolé c'est

Code:

Application.ScreenUpdating =

8-) "ma tromper :)"
A++
Qwaz
05/12/2007, 23h42
casefayere

ca marche

re rebonjour,

Excuses du retard mais ça marche

Merci
a+