Discussion :

[alexabalica]

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

[pijaku]

Bonjour!

Tu confonds, dans ton code, prix et prixv.
Essaie de remplacer cette partie de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If modele = shPM.Cells(j, 2) Then
   prix = shPM.Cells(j, 3)
   prixv = nbj * prix
   devis.prixv.Caption = prixv
End If

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If modele = shPM.Cells(j, 2) Then
   prix = shPM.Cells(j, 3)
   prix = nbj * prix
   devis.prixv.Caption = prix
End If

Pour les dates, pas d'idée tant que l'on n'aura pas vu ton code de saisie dans les cellules.

[alexabalica]

Pour remplir mes cellules j'utilise ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If MsgBox("Voulez vous valider ?", vbYesNo, "Demande de validation") = vbYes Then
shC.Cells(2, 1) = dated.Value
 
shC.Cells(2, 2) = datef.Value
 
shC.Cells(2, 3) = modele.Text
End If

[pijaku]

1- ma première réponse t'a-t-elle satisfait?
parce que sans "merci", "premier souci résolu", etc... on ne peut pas deviner.

2- Essaie avec CDate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If MsgBox("Voulez vous valider ?", vbYesNo, "Demande de validation") = vbYes Then
    shC.Cells(2, 1) = CDate(dated.Value)
    'etc...
End If

[alexabalica]

j'ai trouve pour la problème pour les dates c'été dans le code pour remplir la feuille c'est change avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
shC.Cells(2, 1) = CDate(dated)
 
shC.Cells(2, 2) = CDate(datef)

et ça marche très bien

désolé j'ai pas encore essaye ton premier conseille parce que je cherche pour la problème des dates sur le forum....c'est pas parce que je suis malpoli que j'ai rien dit......

[alexabalica]

J'ai tout essaye maintenant et ça marche très bien. Merci beaucoup!

Vraiment désole j'ai pas voulu être malpoli c'est just que je travaille sur se projet depuis 2 semaines, le prof a l'univ il a dit qu'il vas nous aider mais il répond pas du tous a nos mails et a part des formules excell il nous a rien appris en cours j'avoue je suis un peu fatigue

[pijaku]

Pas de souci.
Content que cela fonctionne.

N'oublie pas de cliquer sur le bouton "résolu".

A++