Problème avec Select case sous VB Résolu

Question

Bonjour, 
J'ai écrit un programme sous VBA qui est censé calculer un pourcentage de ristourne selon le montant des achats. Le problème est que je rentre une valeur positive, et il me calcule systématiquement que le net financier est égal a zéro. 
J'utilise la fonction Do pour faire une boucle et relancer le programme automatiquement et la fonction If pour exclure tout chiffre négatf.
Voici le code source : 
Option Explicit
Private Sub CommandButton1_Click()
Dim netfin As Currency
Dim netcom As Currency
    Do
    netfin = InputBox("Saisir le net financier, cliquer sur Annuler pour quitter", "Entrée du net financier", 0)
    If netfin <= 0 Then
    MsgBox ("Veuillez resaisir, valeur incorrecte !")
    Else
    Select Case netfin
    Case netfin <= 1500
    netcom = netfin * 97 / 100
    Case netfin <= 3000
    netcom = netfin * 95 / 100
    End Select
    End If
        MsgBox ("Net commercial : " & netcom & " €.")
    Loop
End Sub
J'ai planché sur le problème tout l'après midi, et de ne trouve pas de solution :(
Merci d'avance a tous ceux qui pourront m'aider a résoudre ce problème ! =)

Configuration: 
 PC 2 : AMD Athlon x64  3,1 Ghz
4Go DDR2
Nvidia GeForce 9600GT 630Mo PCI
TV 22'
Clavier + Souris Wireless
Joystick Saitek ST90
Chaîne Hifi Sony pour la sortie son (PC Down)

ccm81 · Answer

bonjour

je crois que je l'écrirais comme ça

Option Explicit

Private Sub CommandButton1_Click()
Dim netfin As Single
Dim netcom As Single
Do
  netfin = Val(InputBox("Saisir le net financier, cliquer sur Annuler pour quitter", "Entrée du net financier", 0))
  While netfin < 0
    netfin = Val(InputBox("Donnée incorrecte, saisir le net financier, cliquer sur Annuler pour quitter", "Entrée du net financier", 0))
  Wend
  If netfin > 0 Then
    Select Case netfin
      Case 0 To 1500
        netcom = netfin * 97 / 100
      Case 1500 To 3000
        netcom = netfin * 95 / 100
    End Select
    MsgBox ("Net commercial : " & netcom & " €.")
  End If
Loop Until netfin = 0
End Sub
bonne suite

Problème avec Select case sous VB

1 réponse

Discussions similaires

Newsletters