Discussion :

[Sempre5]

Salut à vous,

C'est la première fois que j'écris

Je début en vba donc pardonnez-moi

Ce que je voudrais faire:

- J'ai une base des données où rechercher une information (fichier ci-joint)

- j'ai crée un bouton de recherche où je souhaite faire des recherches dans ma BDD selon plusieurs critères


J'ai réussi à faire la recherche par un critère mais pas pour les 3 ensemble (code client, nom et responsable)


Merci beaucoup à vous tous

[Invité]

Bonjour,

Il semble que dans ce cas la programmation n'apporte rien. L'utilisation du filtre élaboré répond largement à la question. On peut aisément appliquer un critère dans chaque colonne.
Par ailleurs, ma version d'Excel ne m'a pas permis de lire ton code. Il faudrait un enregistrement en .xlsm et ensuite retirer le m pour que le forum l'accepte.
Peut-être à plus tard pour plus ample informé.

Cordialement.
Jean-Claude

[Theze]

Bonjour,

Comme le dit jcDSoft, tu peux utiliser un filtre élaboré mais si tu veux utiliser VBA pour t'initié, regarde du coté d'AutoFilter avec un filtrage successif. Un petit exemple :

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
 
Sub Filtrage()
 
    Dim Plage As Range
 
    With ActiveSheet
 
        'de A1 à Fx...
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 6).End(xlUp))
 
    End With
 
    'filtrages successifs
    Plage.AutoFilter 1, "code_client" 'sur colonne 1 de la plage
    Plage.AutoFilter 2, "Nom" 'sur colonne 2
    Plage.AutoFilter 3, "Responsable" 'sur colonne 3
 
    'le reste de ton code...
 
    'sans argument, suppression du filtre
    Plage.AutoFilter
 
End Sub

Hervé.

[Sempre5]

Bonjour,

Merci beaucoup pour vos réponses, cependant je n'arrive pas à faire marcher ta macro Theze: quant tu écris le reste de ton code je ne sais pas comment modifier ma macro par rapport à la tienne.

Ma macro est la suivante:

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
'récupération de la valeur de la textbox
 
codeimplant = Worksheets("Accueil").TextBox1.Text
 
'verification de la valeur du code implant
 
If codeimplant = "" Then codeimplant = "<>0"
 
If (codeimplant = "<>0") Then
 
MsgBox "Merci de saisir un code", vbExclamation, "Liste des sites"
 
Else
Sheets("bdd").Select
 
ActiveWindow.DisplayWorkbookTabs = True
 
With Worksheets("BDD")
 
    If .FilterMode = True Then .ShowAllData
 
End With
 
    Selection.AutoFilter Field:=4, Criteria1:=codeimplant, _
            Operator:=xlAnd
 
    'sans argument, suppression du filtre
    Plage.AutoFilter
 
End Sub

Merci encore à vous

voila mon tableau ci-joint

en fait je n'arrive pas à "retirer le m pour que le forum accepte"

Désolé!! Merci encore à vous

[Theze]

Bonjour,

Juste un petit exemple par rapport à ton fichier. Dans un premier temps, le filtrage se fait sur la colonne B (les prénoms) et ensuite, le filtrage se fait sur la colonne C. Dans l'exemple, il ne restera que les "Véronique" ayant en colonne C "R13". Tu colle le code dans ton module, tu place le curseur dans le code puis F5, tu n'as plus qu'à regarder le résultat en feuille BDD :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim codeimplant As String
 
    With Worksheets("BDD")
 
        'de A1 à Fx...
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 3).End(xlUp))
 
    End With
 
    With Plage
 
        'supprime un éventuel filtre
        .AutoFilter
 
        'filtre sur la colonne B puis ensuite sur la colonne C
        .AutoFilter 2, "Véronique"
        .AutoFilter 3, "R13"
 
    End With
 
End Sub

Hervé.

[clementmarcotte]

Bonjour

en fait je n'arrive pas à "retirer le m pour que le forum accepte"

Désolé!! Merci encore à vous

"Comprimes-le" en zip avant de l'envoyer. Cela va faire pareil.

Ou bien tu fais un clic-droit sur le fichier dans l'Explorateur de Windows et tu choisis Renommer.

[Sempre5]

Merci beaucoup à vous!


C'est super de pouvoir être accompagné dans la découverte du VBA

Merci encore!

A bientôt

[Invité]

Bonjour,

Un petit exemple basé sur le filtre élaboré.
N'hésite pas à lire l'aide Excel concernant le filtre élaboré et la façon de l'utiliser.
Note que les critères saisis sur la même ligne sont lus comme des ET alors que ceux sur des lignes différentes sont des OU.
Fais autant d'essais que nécessaire.
Reviens sur le forum si vraiment quelque chose bloque.

Cordialement.
Jean-Claude

Forum.xls

Pense à rajouter le m de l'extension.