Discussion :

[casefayere]

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]

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]

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

[casefayere]

Bonjour owarzerty,

Merci du conseil

a+

[casefayere]

re bonjour,

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

???????

[Qwazerty]

Salut
Désolé c'est

Code :

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

  Application.ScreenUpdating =

"ma tromper "
A++
Qwaz

[casefayere]

re rebonjour,

Excuses du retard mais ça marche

Merci
a+