Peut-on utiliser Nothing pour un Boolean

Résolu/Fermé

lolokiller91 Messages postés 103 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 - 7 août 2010 à 15:58
lolokiller91 Messages postés 103 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 - 7 août 2010 à 17:37

Bonjour,

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
Utiliser chromecast - Guide
Comment utiliser l'ia - Accueil - Guide Intelligence artificielle
Quel service en ligne peut utiliser elissa pour collecter l'argent ? - Guide
Utiliser iphone comme webcam - Guide
Comment utiliser utorrent - Télécharger - Téléchargement & Transfert

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
7 août 2010 à 16:27

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)

lolokiller91 Messages postés 103 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 5
7 août 2010 à 16:47

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

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
7 août 2010 à 17:06

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)

lolokiller91 Messages postés 103 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 5
7 août 2010 à 17:37

Merci beaucoup =)

Discussions similaires

Votre PC ne peut pas utiliser un autre écran.

Impossible d'utiliser ce numéro de téléphone pour la validat

Impossible d'utiliser numéro de téléphone validation

Photographie

Gmail impossible sans numéro de téléphone