Bonjour!

Je suis en train de faire un projet VBA sur la location des voitures. Je rencontre des problèmes au niveau des combobox dans mon user form "utilisateur" pour vérifier la disponibilité des voitures que le messieur peut loue.
Pour le combobox "Version" ça marche de remplir la liste mais il rajoute aussi des voitures qui ne sont pas disponible pour un certain période. Pour le combobox modèle il m'affiche rien. J'ai rajoute aussi le fichier XLSM (et oui je sais que dans le code j'ai désactive le code pour combobox modèle ).

Si qq un a des petits conseilles quoi faire merci beaucoup en avance!!

(pour vérifier la version utiliser les dates "11/05/2016 - 13/05/2016" il ne doit pas affiche la version "Mini")

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
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
Private Sub typev_DropButtonClick()
 
Dim version As String
 
If Len(Me!dated & vbNullString) = 0 Or Len(Me!datef & vbNullString) = 0 Then
Call MsgBox("Toutes les informations doivent être renseignées.", vbOKOnly, "Information requise")
 
ElseIf dated.Text > datef.Text Then
Call MsgBox("La date de fin doit être superieure à la date de départ!", vbOKOnly, "Erreur")
 
Else
 
 
For i = 2 To Range("A65536").End(xlUp).Row
If (dated.Text < Sheets("Disponibilité").Cells(i, 5) And datef.Text < Sheets("Disponibilité").Cells(i, 5)) Or (dated.Text > Sheets("Disponibilité").Cells(i, 6) And datef.Text > Sheets("Disponibilité").Cells(i, 6)) Then
version = Sheets("Disponibilité").Cells(i, 1)
 
For j = 2 To Range("A65536").End(xlUp).Row
If Sheets("Version").Cells(j, 1) = version And Sheets("Version").Cells(j - 1, 1) <> Sheets("Version").Cells(j, 1) Then
utilisateur.typev.AddItem Sheets("Version").Cells(j, 2)
End If
 
Next j
 
End If
 
Next i
 
End If
 
End Sub
 
 
Private Sub modèle_DropButtonClick()
 
Dim version1 As Variant
Dim modéle As Variant
 
Sheets("Version").Activate
For i = 2 To Range("A65536").End(xlUp).Row
If Sheets("Version").Cells(i, 2) = typev Then
version1 = Cells(i, 1)
End If
Next i
 
Sheets("Disponibilité").Activate
For j = 2 To Range("A65536").End(xlUp).Row
If Cells(j, 1) = version1 And ((dated.Text < Cells(j, 5) And datef.Text < Cells(j, 5)) Or (dated.Text > Cells(j, 6) And datef.Text > Cells(j, 6))) Then
modèle = Cells(j, 2)
End If
Next j
 
Sheets("Modèle").Activate
For k = 2 To Range("A65536").End(xlUp).Row
If Cells(k, 1) = modèle Then
utilisateur.modèle.AddItem Sheets("Modèle").Cells(k, 2)
End If
Next k
 
End Sub