Bonsoir!

Alors, l’idée est que je doit calculer le prix de location d'une voiture par rapport au nombre de jours et la saison (haute, baisse, moyenne). comme code j'ai fait ça mais il m'affiche pas dans le label "Prix" le montant..... et j'avoue que je sais plus ou c'est le problème...j'ai mis en gras se que je pense que c'est les problèmes et il y a aussi le fait que dans ma feuille excel quand vba remplie les cellules avec les date de départ et date de fin il les change en format anglais

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
Private Sub UserForm_Activate()
 
Dim shC As Worksheet
Dim shS As Worksheet
Dim shM As Worksheet
Dim shPM As Worksheet
Set shC = ThisWorkbook.Sheets("Commande")
Set shS = ThisWorkbook.Sheets("Saison")
Set shM = ThisWorkbook.Sheets("Modele")
Set shPM = ThisWorkbook.Sheets("Prix_Modelejour")
 
Dim nbj As Integer
Dim modele As String
Dim prix As Integer
 
If shS.Cells(1, 2) < shC.Cells(2, 1) And shC.Cells(2, 1) < shS.Cells(2, 2) And shS.Cells(1, 2) < shC.Cells(2, 2) And shC.Cells(2, 2) < shS.Cells(2, 2) Then
 
nbj = shC.Cells(2, 2) - shC.Cells(2, 1)
 
For i = 2 To shM.Range("A65536").End(xlUp).Row
If utilisateur.modele.Text = shM.Cells(i, 2) Then
modele = shM.Cells(i, 1)
End If
 
For j = 2 To shC.Range("A65536").End(xlUp).Row
If modele = shPM.Cells(j, 2) Then
prix = shPM.Cells(j, 3)
prixv = nbj * prix
 
devis.prixv.Caption = prixv
 
End If
 
Next j
Next i
End If
 
End Sub