Alimenter base de données à partir d'un userform avec des conditions

'Je veux récupérer l'indice de la ligne si les données renseignées par le conducteur dans le userform sont identiques à ceux lui correspandant dans la 'base de données (meme nom, immatricule, peris, villes départ et arrives et date et heure de départ). à partir de cette indice, quand on clique sur le 'bouton valider, la ligne sera modifiée en ce qui concerne la colonne de nombre de places disponibles.
'Si une valeur est différente, alors on doit écrire une nouvelle ligne avec les données renseignées dans le userform.
'Le code pour cette partie 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
Private Sub bt_ok_Click()
 
lr = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 'récuperer la derniere ligne vide
ligne_cible = lr ' la ligne cilbe dans le cas où les données existent dans la bdd
 
' vérifier si les données existent déjà dans la BDD
    For a = 2 To DCLA
    If Me.nom = Ws.Cells(a, 1) Then
        For b = 2 To DCLA
        If Me.prénom = Ws.Cells(b, 2) Then
            For c = 2 To DCLA
            If Me.Type_véhicule = Ws.Cells(c, 3) Then
                For d = 2 To DCLA
                If Me.immatricule = Ws.Cells(d, 4) Then
                    For e = 2 To DCLA
                    If Me.Npermis = Ws.Cells(e, 5) Then
                        For f = 2 To DCLA
                        If Me.Ville_de_départ = Ws.Cells(f, 6) Then
                            For g = 2 To DCLA
                            If Me.Ville_arrivée = Ws.Cells(g, 7) Then
                                For i = 2 To DCLA
                                If Me.Date_de_départ = Ws.Cells(i, 9) Then
                                    For j = 2 To DCLA
                                    If Me.heure_de_départ = Ws.Cells(j, 10) Then ligne_cible = j
                                    Else: ligne_cible = lr
                                    End If
                                    Next j
                                End If
                                Next i
                            End If
                            Next g
                        End If
                        Next f
                    End If
                    Next e
                End If
                Next d
            End If
            Next c
        End If
        Next b
    End If
    Next a
 
'Ecriture des données dans la BDD
Ws.Cells(ligne_cible, 1) = Me.nom
Ws.Cells(ligne_cible, 2) = Me.prénom
Ws.Cells(ligne_cible, 3) = Me.Type_véhicule
Ws.Cells(ligne_cible, 4) = Me.immatricule
Ws.Cells(ligne_cible, 5) = Me.Npermis
Ws.Cells(ligne_cible, 6) = Me.Ville_de_départ
Ws.Cells(ligne_cible, 7) = Me.Ville_arrivée
Ws.Cells(ligne_cible, 8) = Me.places_disponible
Ws.Cells(ligne_cible, 9) = CDate(Me.Date_de_départ)
Ws.Cells(ligne_cible, 10) = CDate(Me.heure_de_départ)
Ws.Cells(ligne_cible, 11) = Me.Tarif

Bonjour,
Je viens de trouver cette solution mais le programme ne prend pas en compte toute les conditions dans la boucle while !!! il ne prend que les deux première :

Code:

1
2
3
4
5
x = 2
While x < lr And Me.nom <> Ws.Cells(x, 1) And Me.nom <> Ws.Cells(x, 1) And Me.prénom <> Ws.Cells(x, 2) And Me.Type_véhicule <> Ws.Cells(x, 3) And Me.immatricule <> Ws.Cells(x, 4) And Me.Npermis <> Ws.Cells(x, 5) And Me.Ville_de_départ <> Ws.Cells(x, 6) And Me.Ville_arrivée <> Ws.Cells(x, 7) And CDate(Me.Date_de_départ) <> Ws.Cells(x, 9) And Me.heure_de_départ <> Ws.Cells(x, 10)
x = x + 1
Wend
If x = lr Then ligne_cible = lr Else ligne_cible = x