Discussion :

[NANTFLR2020]

Bonjour,

Je fais dans le cadre de mes études un projet vba de base. J'ai un base de données que je dois traiter.

J'ai fait un code pour avoir une réduction de prix grâce a des remises et j'ai fait un code qui fonctionne pas totalement.

voici le code ci dessous :

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
Option Explicit
 
Function remise(statut As String) As Double
 
    Dim r           As Double
 
    If statut = "etudiant" Then
 
        r = 0.7
 
    ElseIf statut = "enfant" Then
        r = 1
 
    Else
 
        r = 0
 
    End If
 
    remise = r
 
End Function
 
Sub calcultotal()
 
    Dim i           As Integer, n As Double, maplage As Range, pu As Double
    Sheets("Calcul budget").Select
    Set maplage = Range("B11:E13")
    pu = Range("d8")
    For i = 1 To maplage.Rows.Count
        maplage.Cells(i, 3) = remise(maplage.Cells(i, 1))
        n = InputBox("donnez le nombre " & maplage.Cells(i, 1))
        maplage.Cells(i, 2) = n
        maplage.Cells(i, 4) = pu * n * (1 - maplage.Cells(i, 3))
 
    Next
 
End Sub

Pour l'instant, cette fonction et cet algorithme n'arrivent pas a calculer les remises, il arrive juste a rentrer les demandes utilisateurs dans les bonnes cases et il arrive a calculer un prix mais sans la remise et a l'afficher dans la bonne case.


je vous envoie un screen en pièce jointe de ce que ressemble la feuille Excel liée au code


Pouvez-vous m'aider à régler ce problème svp ?


Merci d'avance