Programme VBA avec fonction remise bloquée

Version imprimable

1 pièce(s) jointe(s)

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:

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 jointePièce jointe 609843 de ce que ressemble la feuille Excel liée au code

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

Merci d'avance :D

Essayez ceci, mais il faut prévoir les cas où l'utilisateur encode une lettre, un espace, un blanc ou autre chose qu'un nombre, sinon votre code ne fonctionnera pas comme voulu:

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
Function remise(statut As String) As Double
 
    Dim r           As Double
 
    If UCase(statut) = UCase("etudiant") Then
 
        r = 0.7
 
    ElseIf UCase(statut) = UCase("enfant") Then
        r = 1
 
    Else
 
        r = 0
 
    End If
 
    remise = r
 
End Function
 
Sub calcultotal()   'version améliorée !
 
    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 d'" & maplage.Cells(i, 1) & "s :")
        maplage.Cells(i, 2) = n
        maplage.Cells(i, 4) = pu * n * (1 - maplage.Cells(i, 3))
    Next
 
End Sub

08/12/2021, 18h49
NANTFLR2020

1 pièce(s) jointe(s)

Merci beaucoup pour ta réponse, je n'avais même pas pensé au codage des erreurs utilisateurs.

Cependant mon problème est au niveau du screen que j'ai mis au dessus. J'aimerai que mon code colle la remise dans les cases du milieu de mon tableau correctement et me colle le calcul remisé dans le tableau dans la colonne de droite. Pour l'instant cela marche pour enfant et adulte mais pas le étudiant. Je ne sais pas d'ou cela pourrait provenir le seul indice que je pense peut avoir un lien est le fait que ça soit la seule remise avec un nombre décimal.

Peux tu m'aiguiller sur ce point s'il te plait ?

(Je remets le screen après que l'algol ai tourné)

Merci à toi

Pièce jointe 609920
13/12/2021, 21h53
Qwazerty

Salut

Vu que c'est un exercice, je suppose que passer par VBA est une obligation? Parce que j'avoue ne pas comprendre la démarche.
Excel est un tableau, au pire faire les demande de nombre de personne par catégorie via une inputbox, pourquoi pas, bien que je ne trouve pas ça très ergonomique mais admettons.
Par contre le reste devrait être géré directement dans le tableau avec des formules basiques.

Partons sur l'obligation d'utiliser VBA...
Visiblement le problème vient de l'appel à la function Remis, le mieux pour comprendre d'où vient l'erreur, c'est d'exécuter le code en mode "pas à pas".

1/Place un point d'arrêt sur la ligne

Code:

maplage.Cells(i, 3) = remise(maplage.Cells(i, 1))

Clique sur la ligne et utilise la touche F9 (il est aussi possible de cliquer directement dans la gouttière où apparaitra le point rouge)

2/Utilise la touche F8 pour exécuter un pas. Le pointeur jaune va passer dans la Function Remise. Enchaine les F8 et regarde la valeur des différents élément en les survolant avec la souris.

3/Si tu ne trouves pas regarde peut-être du coté de 0.7 en le remplaçant par 0,7

Je te souhaite une bonne soirée
Qwaz