Problème de dépassement de capacité
Bonjour à tous
je suis nouveau sur le forum car je commence petit à petit à m'intéresser à VBA.
j'utilise des livres supports pour me former petit à petit mais ils n'ont hélas pas toutes les réponses.
j'ai essayé de trouver une réponse à mon problème dans les différents sujets, mais mon manque de connaissances ne m'a pas permis de trouver mon bonheur.
aller, je me lance mais on ne se moque pas.😉
je m'essayais à la fonction "select case" et j'ai fais ces quelques lignes de cod
Sub Resultat_examens()
Dim Resultats As Double
Resultats = InputBox("quelle est ta note?", "Resultats")
Select Case Resultats
Case 0 To 9, 99
Cells(1, 2) = "t'es nul,dégage"
Case 10 To 11, 99
Cells(1, 2) = "Ca va, ca passe"
Case 12 To 13, 99
Cells(1, 2) = "c'est pas mal"
Case 14 To 15, 99
Cells(1, 2) = "bravo, c'est bien"
Case Else
Cells(1, 2) = "t'es une bete"
End Select
End Sub
dès que je rentre ma note, j'ai l'erreur "dépassement de capacité", si je déclare ma variable en "variant", je n'ai plus l'erreur.
quelqu'un peut-il me donner une explication?
merci d'avance
Bonjour
ton code fonctionne très bien
dans ton InputBox tu saisie bien une , et non pas un . (avec InputBox le . du pavé numérique n'est pas transformé en ,)
ce qui ferait que avec Double le format n'est pas reconnue alors que Variant l'accepte
A plus sur le forum
Bonjour le fil, bonjour le forum
D'accord avec Papyg. Pour éviter le bug, remplace par :
Resultats = Replace(InputBox("quelle est ta note?", "Resultats"), ".", ",")Bonjour Papyg, Bonjour ThauThème
merci pour votre réponse.👍
la modification de ThauThème fonctionne.
sans celle-ci, que je mette une virgule ou un point ne change rien.
j'avoue que je j'ai du mal à comprendre. je pensais que c'était une subtilité de "input box" qui m'avait échappée.
est ce que ça pourrait être une subtilité lié à la version MAC de VBA?
c'est perturbant mais tant pis.
si j'ai de nouveau le problème j'utiliserai ton astuce.
merci encore
a bientôt