Filtrer un tableau en VBA

Version imprimable

16/04/2015, 14h59
jlduboc

1 pièce(s) jointe(s)

Filtrer un tableau en VBA

Bonjour à tous

Je suis en train d'établir un carnet d'adresses

La première partie concernant la saisie des contacts avec un formulaire fonctionne.

Je bute sur la deuxième partie concernant la recherche d'un contact

1°) à partir du nom
2°) à partir des 3 premiers critères (Secteur - Activité - Service)

La USERFORM utilisée pour la recherche s'appelle "usfRecherche" En cours d'élaboration sur laquelle je bute

Mon idée serait
1°)de faire un filtre en utilisant des COMBOBOX
2°)Récupérer la ligne du contact filtré
3°)Recopier toutes les cellules de la ligne dans mon formulaire de saisie "usfEnregistrement" pour la visualisation du contact

Je suis preneur de toute autre idée pour la visualisation.

Merci d'avance

Cordialement

Ci joint le fichier Excell concerné "Contacts (3)

Solution

Bonjour,

Utilise le code suivant,

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 
Private Sub CommandButton1_Click()
 
Dim contacts As Object
Dim nom As String
Dim ligNom As Integer
Dim cellule As Object
 
Set contacts = Sheets("Contacts")
 
nom = Me.cmbListRecherche
ligNom = False
For Each cellule In Range("rechnom")
    If cellule = nom And ligNom = False Then
        ligNom = cellule.Row
    End If
Next cellule
 
If ligNom <> False Then
    usfEnregistrement.cmbListbra.Value = contacts.Cells(ligNom, 1).Value
    usfEnregistrement.cmbListact.Value = contacts.Cells(ligNom, 2).Value
    usfEnregistrement.cmbListdépart.Value = contacts.Cells(ligNom, 3).Value
    usfEnregistrement.txtNom.Value = contacts.Cells(ligNom, 4).Value
    usfEnregistrement.txtAdres1.Value = contacts.Cells(ligNom, 5).Value
    usfEnregistrement.txtAdres2.Value = contacts.Cells(ligNom, 6).Value
    usfEnregistrement.txtAdres3.Value = contacts.Cells(ligNom, 7).Value
    usfEnregistrement.txtCpost.Value = contacts.Cells(ligNom, 8).Value
    usfEnregistrement.txtVille.Value = contacts.Cells(ligNom, 9).Value
    usfEnregistrement.txtPays.Value = contacts.Cells(ligNom, 10).Value
    usfEnregistrement.cmbListCiv1.Value = contacts.Cells(ligNom, 12).Value
    usfEnregistrement.txtInt1.Value = contacts.Cells(ligNom, 13).Value
    usfEnregistrement.txtTel1.Value = contacts.Cells(ligNom, 14).Value
    usfEnregistrement.txtFax1.Value = contacts.Cells(ligNom, 15).Value
    usfEnregistrement.txtMob1.Value = contacts.Cells(ligNom, 16).Value
    usfEnregistrement.txtMail1.Value = contacts.Cells(ligNom, 17).Value
    usfEnregistrement.cmbListCiv2.Value = contacts.Cells(ligNom, 18).Value
    usfEnregistrement.txtInt2.Value = contacts.Cells(ligNom, 19).Value
    usfEnregistrement.txtTel2.Value = contacts.Cells(ligNom, 20).Value
    usfEnregistrement.txtFax2.Value = contacts.Cells(ligNom, 21).Value
    usfEnregistrement.txtMob2.Value = contacts.Cells(ligNom, 22).Value
    usfEnregistrement.txtMail2.Value = contacts.Cells(ligNom, 23).Value
 
    Unload Me
    usfEnregistrement.Show
 
Else
    MsgBox ("Le nom" & nom & " est introuvable")
End If
 
End Sub

Bonne journée ;)

17/04/2015, 16h37
jlduboc

Bonjour

Merci infiniment pour votre réponse, j'ai enregistré la syntaxe et mon application fonctionne parfaitement, merci encore.

Ma dernière étape serait de pouvoir filtrer les noms dans les niveaux hiérarchiques

1°)Secteur
2°)Activité

Ensuite choisir un nom dans les plages filtrées et l'afficher de la même façon que pour la recherche du nom seul.

Accepteriez vous de m'indiquer comment faire ce filtre et j'essaierais de l'associer avec la syntaxe déjà envoyée.

Vous en remerciant par avance

Très cordialement

Jean Louis Duboc