Recherche User Form - ComboBox en cascade

Version imprimable

2 pièce(s) jointe(s)

Bonjour tout le monde,

J'essai depuis de faire ma recherche en fonction de mes combobox en cascade mais j'y arrive pas.
Voici mes codes :

Deux combobox pour le critère de recherche : cbo_dossier et cbo_demande

J'aimerai que si l'utilisateur choisi un numéro de dossier(ID dans cet exemple) il affiche le nombre de demande lier a cet numéro de dossier(ID).
Ensuite avec le bouton rechercher il affiche la ligne correspondante dans mon txtbox et autrre combobox en fonction des valeurs qui se trouvent dans cbo_dossier et cbo_demande

Cela marche les numéros de dossiers comme (ANCÉ3, ASAS2 et ANAU5), mais pas pour le numéro de dossier (ID) COSI1 ( MsgBox "Aucune donnée correspondante trouvée").

Je ne sais vraiment pas ou se trouve le problème.

Initialisation de mon formulaire :
(remplie la combobox cbo_dossier des ID sans doublons)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Private Sub UserForm_Initialize()
 
Dim v, e
With Sheets("DEMANDES").Range("A2:A65536")
    v = .Value
End With
With CreateObject("scripting.dictionary")
    .comparemode = 1
    For Each e In v
        If Not .exists(e) Then .Add e, Nothing
    Next
    If .Count Then Me.cbo_dossier.List = Application.Transpose(.keys)
End With
 
End Sub

remplissage de la combobox cbo_demande en fonction de la combobox cbo_dossier :

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
 
Private Sub cbo_dossier_Change()
 
Dim J As Long
Dim NbLignes As Integer
 
Set Ws = Worksheets("DEMANDES")
NbLignes = Ws.Range("A65536").End(xlUp).Row
 
  Me.cbo_demande.Clear   'Efface les données de la combobox2
  If Me.cbo_dossier.ListIndex = -1 Then Exit Sub
  With Me.cbo_demande
    For J = 2 To NbLignes
      If Ws.Range("A" & J) = Me.cbo_dossier Then
        .AddItem Ws.Range("B" & J)
        .List(.ListCount - 1, 1) = J
      End If
    Next J
  End With
 
 
 
 
 
End Sub

Bouton de recherche :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
 
Private Sub rechercher_Click()
 
 
  Dim I As Long, NbLignes As Long
    Dim Source As Worksheet
    Dim Trouve As Boolean
 
    Set Source = Sheets("DEMANDES")
 
    Sheets("DEMANDES").Select
 
    NbLignes = Source.Cells(Rows.Count, "B").End(xlUp).Row
 
    For I = 1 To NbLignes
        If Source.Range("B" & I) = cbo_demande.Value Then
            Trouve = True
 
 
        nom_complet.Value = Source.Cells(I, 3).Value
        TextBox33.Value = Source.Cells(I, 4).Value
        TextBox16.Value = Source.Cells(I, 5).Value
        TextBox17.Value = Source.Cells(I, 6).Value
        TextBox18.Value = Source.Cells(I, 7).Value
        TextBox19.Value = Source.Cells(I, 8).Value
        TextBox35.Value = Source.Cells(I, 9).Value
        cbo_lieu_rdv.Value = Source.Cells(I, 10).Value
        TextBox5.Value = Source.Cells(I, 11).Value
        TextBox6.Value = Source.Cells(I, 12).Value
        TextBox7.Value = Source.Cells(I, 13).Value
        cbo_raison_medicale.Value = Source.Cells(I, 14).Value
        cbo_priorité.Value = Source.Cells(I, 15).Value
        cbo_etat_accomp.Value = Source.Cells(I, 16).Value
        TextBox11.Value = Source.Cells(I, 17).Value
        TextBox12.Value = Source.Cells(I, 18).Value
        TextBox13.Value = Source.Cells(I, 19).Value
        TextBox14.Value = Source.Cells(I, 20).Value
        TextBox15.Value = Source.Cells(I, 21).Value
        TextBox34.Value = Source.Cells(I, 22).Value
 
        cbo_nom_benevole.Value = Source.Cells(I, 23).Value
        TextBox21.Value = Source.Cells(I, 24).Value
        TextBox22.Value = Source.Cells(I, 25).Value
        TextBox23.Value = Source.Cells(I, 26).Value
        TextBox24.Value = Source.Cells(I, 27).Value
        TextBox25.Value = Source.Cells(I, 28).Value
        TextBox26.Value = Source.Cells(I, 29).Value
        TextBox27.Value = Source.Cells(I, 30).Value
        cbo_confirmation_paiement.Value = Source.Cells(I, 31).Value
        cbo_paiment_benevole.Value = Source.Cells(I, 32).Value
 
        TextBox28.Value = Source.Cells(I, 33).Value
        TextBox29.Value = Source.Cells(I, 34).Value
        TextBox32.Value = Source.Cells(I, 35).Value
        TextBox30.Value = Source.Cells(I, 36).Value
        TextBox31.Value = Source.Cells(I, 37).Value
            Exit For
        End If
    Next
 
    If Not Trouve Then
        MsgBox "Aucune donnée correspondante trouvée"
    End If
 
    Set Source = Nothing
 
 
 
 
End Sub

Ci-joint le fichier xlsm en question.

Merci beaucoup pour votre aide et très bonne année!

08/01/2019, 15h53
BENNASR

bonsoir
Pour faire bouger cette discussion et si tu cherches à alimenter un combobox en fonction d'une autre déja choisie je te propose un exemple dans cette discussion

Citation:

https://www.developpez.net/forums/d1...e-macro-excel/

BONNE CONTINUATION
08/01/2019, 20h59
Siramane

merci

Merci beaucoup BENNASR,

Les codes que tu proposes fonctionne parfaitement.

Merci encore!

Une question

Bonjour,

J'avais une question.

Comment je peux modifier la ligne de ma base de données correspondante au deux critères de recherche?

Par exemple j'aimerai pouvoir modifier la ligne correspondante à : cbo_dossier = ANCÉ3 et cbo_demande = 1.

Je veux éviter de créer une autre variable qui va correspondre à la combinaison de ces 2 critères et ensuite faire ma modification en fonction de cette variable.

Mon code pour modifier une ligne pour un critère est le 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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Dim modif As Integer
 
If MsgBox("Êtes-vous sûr de vouloir apporter les modifications?", vbYesNo, "Confirmation de modification") = vbYes Then
 
If Not cbo_dossier.Value = "" Then
Sheets("DEMANDES").Select
 
modif = cbo_dossier.ListIndex + 2
 
 
 
 
        Cells(modif, 1) = TextBox36.Value
        Cells(modif, 3) = nom_complet.Value
        Cells(modif, 4) = TextBox33.Value
        Cells(modif, 5) = TextBox16.Value
        Cells(modif, 6) = TextBox17.Value
        Cells(modif, 7) = TextBox18.Value
        Cells(modif, 8) = TextBox19.Value
        Cells(modif, 9) = TextBox35.Value
        Cells(modif, 10) = cbo_lieu_rdv.Value
        Cells(modif, 11) = TextBox5.Value
        Cells(modif, 12) = TextBox6.Value
        Cells(modif, 13) = TextBox7.Value
        Cells(modif, 14) = cbo_raison_medicale.Value
        Cells(modif, 15) = cbo_priorité.Value
        Cells(modif, 16) = cbo_etat_accomp.Value
        Cells(modif, 17) = TextBox11.Value
        Cells(modif, 18) = TextBox12.Value
        Cells(modif, 19) = TextBox13.Value
        Cells(modif, 20) = TextBox14.Value
        Cells(modif, 21) = TextBox15.Value
        Cells(modif, 22) = TextBox34.Value
 
        Cells(modif, 23) = cbo_nom_benevole.Value
        Cells(modif, 24) = TextBox21.Value
        Cells(modif, 25) = TextBox22.Value
        Cells(modif, 26) = TextBox23.Value
        Cells(modif, 27) = TextBox24.Value
        Cells(modif, 28) = TextBox25.Value
        Cells(modif, 29) = TextBox26.Value
        Cells(modif, 30) = TextBox27.Value
        Cells(modif, 31) = cbo_confirmation_paiement.Value
        Cells(modif, 32) = cbo_paiment_benevole.Value
 
        Cells(modif, 33) = TextBox28.Value
        Cells(modif, 34) = TextBox29.Value
        Cells(modif, 35) = TextBox32.Value
        Cells(modif, 36) = TextBox30.Value
        Cells(modif, 37) = TextBox31.Value
 
 
 
 
 
MsgBox ("Les modifications ont été apporté avec succès!")
 
Else
 
 
Exit Sub
 
End If
 
Unload UserForm4
UserForm4.Show
 
 
End If

Merci encore!