Question VBA [Débutant(e)]

**horgon22** · 23/10/2011, 16h32

Bonjour à tous,

je suis actuellement des cours de programmation informatique, et je débute sur VBA Excel. J'ai l'exercice suivant :

L’entreprise PrestoCopie est une société qui réalise des photocopies pour desentreprises. Elle facture ses prestations d’un forfait de 10 € pour les cent premières photocopies en noir et blanc et de 30 € pour les photocopies couleurs (même si la quantité est inférieure à 100 copies). Chaque photocopie suivante est facturée 0,05 € en noir et blanc et 0,20 € en couleur jusqu’à la 500 ème photocopies. Au delà, les tirages supplémentaires sont facturés respectivement 0,03 € pour le noir et blanc et 0,10 € pour la couleur.
1) Ecrire le programme qui calcule le montant à facturer au client en fonction du nombre de copies et du type de copie (N&B ou couleur). Ces deux informations sont saisies par l’utilisateur.

J'y ai répondu :

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
Sub exo23()
Dim nombre As Single, categorie As String, prix As Single
categorie = InputBox("Désirez-vous faire des photocopies couleur ou nb ?")
nb = InputBox("Combien de photocopies désirez-vous faire ?")
 
If categorie = "nb" And nombre <= 100 Then
prix = 10
ElseIf categorie = "nb" And nombre > 100 And nombre <= 500 Then
prix = 10 + ((nombre - 100) * 0.05)
ElseIf categorie = "nb" And nombre > 500 Then
prix = 30 + ((nombre - 500) * 0.03)
ElseIf categorie = "couleur" And nombre <= 100 Then
prix = 30
ElseIf categorie = "couleur" And nombre > 100 And nombre <= 500 Then
prix = 30 + ((nombre - 100) * 0.2)
ElseIf categorie = "couleur" And nombre > 500 Then
prix = 110 + ((nombre - 500) * 0.1)
End If
 
MsgBox "Le montant de vos photocopies est de " & prix
End Sub

Cela ne fonctionne pas, les valeurs 10 et 30 ressortant quelque soit le nombre entré par l'utilisateur. Je ne comprends vraiment pas ou est mon erreur, tout me parait logique, est-ce que vous pourriez m'expliquer ?
Merci !

**SfJ5Rpw8** · 23/10/2011, 16h45

Ajoute l'option indispensable :

Code :

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

Option Explicit

tout en haut de ton code ..

**didivo67** · 23/10/2011, 17h12

Bonjour

Code :

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

1
2
3
4
Sub exo23()
Dim nombre As Single, categorie As String, prix As Single
categorie = InputBox("Désirez-vous faire des photocopies couleur ou nb ?")
nb = InputBox("Combien de photocopies désirez-vous faire ?")

En ligne 2 ne pas déclarer nombre
en ligne 4, Il faut remplacer nb par nombre

Code :

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

1
2
3
4
Sub exo23()
Dim  categorie As String, prix As Single
categorie = InputBox("Désirez-vous faire des photocopies couleur ou nb ?")
nombre = InputBox("Combien de photocopies désirez-vous faire ?")

**SfJ5Rpw8** · 23/10/2011, 17h17

Envoyé par didivo67

...
En ligne 2 ne pas déclarer nombre
...

pourquoi ? il faut déclarer toutes les variables !

**horgon22** · 23/10/2011, 17h32

J'ai trouvé, c'était simple en fin de compte, j'ai confondu nb (noir et blanc) et nombre à la ligne 4, comme l'a souligné didivo67. Et j'ai enlevé la déclaration du prix, qui n'est pas utile (je pense que c'est ça que tu voulais dire didivo67 ?), en tout cas merci à toi et bbil pour la rapidité de la réponse !