Comparer dates et changer format
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:
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 |
