ListBox Recherche avec plusieurs paramètres

[Provence Vintage]

Bonjour le Forum,


Je cherche à balayer ma bdd et afficher les résultats en fonction de 8 critères,
j'ai défini dans mon code une variable qui prends les 8 valeurs,
l'objectif est de balayer toutes les cellules en colonnes X contenant les valeurs de chaque critère (Label) et d'afficher les résultats ds une ListBox

Prendre Label1 et afficher les résultats contenant Label1, puis ensuite ds la même ListBox résultats contenant Label 2. . .

Je n'arrive pas à écrire apparemment correctement le code. . .

Merci à toutes celles et ceux qui peuvent me permettre de progresser
Good Day🙂

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[pierrejean]

Re : ListBox Recherche avec plusieurs paramètres

bonjour a la Provence

une petite progression
modifs commentées dans le code

 

[Provence Vintage]

Re : ListBox Recherche avec plusieurs paramètres

Bonjour PierreJean,

Lorsque je télecharge le fichier, il n'y a rien dans VBA?

Merci
Bonne journée

 

[pierrejean]

Re : ListBox Recherche avec plusieurs paramètres

Re

Bien des mysteres avec ce fichier
J'ai repris depuis l'origine
Supprimé une listbox1 qui cachait la listbox2
modifié et commenté la sub UserForm_Initialize() de consulterparsecteur

 

[Provence Vintage]

Re : ListBox Recherche avec plusieurs paramètres

Re,

Pierrejean,

Rien à faire,
Peux tu me mettre les codes sur le forum que je les copie en VBA,
pour tester!
lorsque j'ouvre le fichier, je n'ai rien hormis les feuilles....?!

Merci
bonne journée

 

[pierrejean]

Re : ListBox Recherche avec plusieurs paramètres

Re
Tu n'as pas les Userform ?

 

[Provence Vintage]

Re : ListBox Recherche avec plusieurs paramètres

Re,

Non PierreJean, je ne comprends pas pourquoi!

Excell 2007 et Vista


c pour ça que je te demandais les codes. . .

Merci
a+

 

[pierrejean]

Re : ListBox Recherche avec plusieurs paramètres

Re

Seul code modifié (Initialize de Consulterparsecteur)
Ne pas oublier de supprimer la listbox1

Private Sub UserForm_Initialize()
Dim cel As Range
'modif 14/01/2010
Secteur
'etait en fin de su d'ou mavar=vide
''''''''''''''''''''''
mavar = Label1 & Label2 & Label3 & Label4 & Label5 & Label6 & Label7 & Label8

ListBox2.Clear

With Me.ListBox2 'prend en compte la ListBox1
    .ColumnCount = 6 'attribut le nombre de colonnes
    .ColumnWidths = "90;120;90;70;100;120" 'définit la largeur des colonne (la 3ème ne sera pas affichée)
End With 'fin de la prise en compte de la ListBox1
 
With Sheets("bdd vendeurs") 'prend en compte l'onglet "Data"
    For Each cel In .Range("X4:X" & .Range("X65536").End(xlUp).Row) 'boucle sur toute les cellules éditée de la colonne AL
         'modif 14/01/2010
         'If cel.Value = mavar Then
         If InStr(mavar, cel.Value) <> 0 Then
         ' mavar ne peut pas etre= cel.value
         'on error parceque certaines valeurs a ecrire = #VALEUR
         On Error Resume Next
            Me.ListBox2.AddItem cel.Offset(0, -13).Value 'ajoute à la ListBox1 la donnée en colonne B (colonne 0 de la listbox)
            Me.ListBox2.Column(1, ListBox2.ListCount - 1) = cel.Offset(0, -23).Value 'ajoute à la ListBox1 la donnée de la colonne D (colonne 1 de la listBox)
            Me.ListBox2.Column(2, ListBox2.ListCount - 1) = cel.Offset(0, -21).Value
            Me.ListBox2.Column(3, ListBox2.ListCount - 1) = cel.Offset(0, -2).Value
            Me.ListBox2.Column(4, ListBox2.ListCount - 1) = cel.Offset(0, 32).Value
            Me.ListBox2.Column(5, ListBox2.ListCount - 1) = cel.Offset(0, 0).Value
            Me.ListBox2.Column(6, ListBox2.ListCount - 1) = cel.Row
          On Error GoTo 0
        Else
        End If 'fin de la condition
    Next cel
   
    
End With
Me.Height = Application.Height: Me.Width = Application.Width
End Sub

 

[Provence Vintage]

Re : ListBox Recherche avec plusieurs paramètres

Merci Pierrejean,

ça fonctionne à merveille,
bonne fin de journée