Peut-on utiliser Nothing pour un Boolean
Résolu
lolokiller91
Messages postés
116
Statut
Membre
-
lolokiller91 Messages postés 116 Statut Membre -
lolokiller91 Messages postés 116 Statut Membre -
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
A voir également:
- Peut-on utiliser Nothing pour un Boolean
- Comment utiliser chromecast sur tv - Guide
- Quel service en ligne peut utiliser elissa pour collecter l'argent ? - Guide
- Utiliser iphone comme webcam - Guide
- Utiliser tablette comme deuxieme ecran - Guide
- Comment utiliser teamviewer - Guide
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 EndifJe 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 IfTu peux garder la variable test en booléen et enlever à ton premier code les lignes:
;o)