Discussion :

[antoine21]

Bonjour à tous,

Je travaille dans une entreprise de transport. J'essaye de mettre au point un petit programme VBA pour Excel.
A partir d'un nombre de kms sur la page "Liste_clients" et du département sur la même page, on doit récupérer un forfait et un coefficient sur la page "Base". Ainsi, si on a entre 21 et 50 kms, on doit avoir un forfait adapté et si on a également le département 21, on doit avoir un coefficient adapté. (le forfait est placé sur la même ligne que la bonne tranche de kms mais une colonne à droite, ce qui est de même entre département et coefficient)
Le prix est donc le produit entre le forfait et le coefficient.
Mon problème est que le programme prend toujours comme forfait celui qui correspond à la tranche de 1 à 20 (donc la première).

Voici le programme :

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
Sub tarif()
'
   Dim ligne_1 As Integer   '1 correspond à la page de liste des clients
   Dim ligne_2 As Integer   '2 correspond à la page "base"
   Dim ligne_inter As Integer
   Dim forfait As Integer
   Dim forfaitDepart As Integer
   Dim coeff As Double
   Dim prix As Double 'prix est le tarif appliqué au client (prix = forfait * coefficient)
 
   ligne_1 = 7
   ligne_2 = 2
   forfaitDepart = 165
 
   Do While (Sheets("Liste_clients").Cells(ligne_1, 1) <> "")
        Sheets("Liste_clients").Select
        If (Cells(ligne_1, 1).Value <> "") Then
            For ligne_2 = 2 To 34
                ligne_inter = ligne_2 - 1
                If ((Sheets("Liste_clients").Cells(ligne_1, 2).Value) <= 20) Then
                    forfait = forfaitDepart
                Else
                    If (((Sheets("Liste_clients").Cells(ligne_1, 2).Value) <= (Sheets("Base").Cells(ligne_2, 1).Value)) And ((Sheets("Liste_clients").Cells(ligne_1, 2).Value) > (Sheets("Base").Cells(ligne_inter, 1).Value))) Then
                        forfait = Sheets("Base").Cells(ligne_2, 2).Value
                    End If
                End If
                ligne_2 = ligne_2 + 1
            Next ligne_2
            For ligne_2 = 2 To 96
                If ((Sheets("Liste_clients").Cells(ligne_1, 3).Value) = (Sheets("Base").Cells(ligne_2, 4).Value)) Then
                    coeff = Sheets("Base").Cells(ligne_2, 5).Value
                End If
            Next ligne_2
            prix = coeff * forfait
            Sheets("Liste_clients").Cells(ligne_1, 5).Value = prix
            ligne_1 = ligne_1 + 1
        End If
    Loop
 
'
End Sub

Merci de votre aide.

[alsimbad]

ton erreur est dans ta boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For ligne_2 = 2 To 34
                ligne_inter = ligne_2 - 1
If ((Sheets("Liste_clients").Cells(ligne_1, 2).Value) <= 20) Then
                    forfait = forfaitDepart
                Else
                    If (((Sheets("Liste_clients").Cells(ligne_1, 2).Value) <= (Sheets("Base").Cells(ligne_2, 1).Value)) And _
                    ((Sheets("Liste_clients").Cells(ligne_1, 2).Value) > (Sheets("Base").Cells(ligne_inter, 1).Value))) Then
                        forfait = Sheets("Base").Cells(ligne_2, 2).Value
                    End If

a chaque occurence, il recalcule le prix du forfait et tu ne l'inscrit nulle part, donc en fait ce que tu obtiens au final, c'est le forfait correspondant a l'occurence 34

[antoine21]

Merci de ton aide.
peux-tu cependant me proposer une solution stp ?
je comprends bien l'erreur mais je ne vois pas comment la résoudre.
merci

[alsimbad]

tu dois inclure ton calcul dans ta boucle, je te donne un exemple, mais là, j'ai plus le temps de te le faire

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
 
For ligne_2 = 2 To 34
ligne_inter = ligne_2 - 1
If ((Sheets("Liste_clients").Cells(ligne_1, 2).Value) <= 20) Then
forfait = forfaitDepart
prix = coeff * forfait
Sheets("Liste_clients").Cells(ligne_1, 5).Value = prix
ligne_1 = ligne_1 + 1
 
Else
If (((Sheets("Liste_clients").Cells(ligne_1, 2).Value) <= (Sheets("Base").Cells(ligne_2, 1).Value)) And _
((Sheets("Liste_clients").Cells(ligne_1, 2).Value) > (Sheets("Base").Cells(ligne_inter, 1).Value))) Then
forfait = Sheets("Base").Cells(ligne_2, 2).Value
prix = coeff * forfait
Sheets("Liste_clients").Cells(ligne_1, 5).Value = prix
ligne_1 = ligne_1 + 1
End If

voila, voila, en fait en le lisant, je me dis qu'on est pas loin de la vérité
bonne soirée

[antoine21]

merci beaucoup
tu me sauves la vie
bonne soirée

[AlainTech]

Un petit clic sur le joli bouton Résolu, peut-être?