Peut-on utiliser Nothing pour un Boolean
Résolu
Bonjour,
Juste pour savoir
Est ce qu'on a le droit d'écrire la ligne en gras en vba:
Merci d'avance
Juste pour savoir
Est ce qu'on a le droit d'écrire la ligne en gras en vba:
Dim Rnd As New System.Random() 'Crée un système qui génère un nombre au hasard
Dim test As Boolean
Dim valeur As Integer
Dim ATrouver As Integer
ATrouver = Rnd(1,10) 'Un nombre entre un et dix est généré au hasard
valeur= Range("A1") 'La personne doit taper un nombre dans A1 et ce nombre est récupérer
If valeur = ATrouver Then 'Compare avec le nombre a trouver
test=True
Elseif IsEmpty(valeur)
test = Nothing
Else
test = False
Endif
'La suite après que j'ai la flemme de recopier :o) .......
Merci d'avance
1 réponse
-
Bonjour,
Non, une variable booléenne est soit False (Faux par défaut) soit True (Vrai) ou 0 pour Faux et 1 pour Vrai.
;o)-
Donc le mieux c'est que je mette ca (en gras les changements) ?
Dim Rnd As New System.Random() 'Crée un système qui génère un nombre au hasard Dim test As Integer Dim valeur As Integer Dim ATrouver As Integer ATrouver = Rnd(1,10) 'Un nombre entre un et dix est généré au hasard valeur= Range("A1") 'La personne doit taper un nombre dans A1 et ce nombre est récupérer If valeur = ATrouver Then 'Compare avec le nombre a trouver test=2 Elseif IsEmpty(valeur) test = 0 Else test = 1 Endif -
Oui tu peux faire comme ça.
Je suppose que tu utilises un bouton pour valider le nombre en A1 par l'utilisateur. Dans ce cas, place en début d'évènement du bouton:
If Range("A1") = "" Then MsgBox "Vous devez entrer un chiffre entre 1 et 10 dans la cellule A1.",VbExclamation,"Saisie obligatoire" Exit Sub End If
Tu peux garder la variable test en booléen et enlever à ton premier code les lignes:
Elseif IsEmpty(valeur) test = Nothing
;o) -
-
