Valeurs inputbox annulée ou validée / Valeur Null en VBA

Version imprimable

Bonjour à tous,

Cette discussion est basée sur ma lecture de ce sujet.

Suite à la découverte (merci Jacques) des fonctions cachées (StrPtr entres autres), je m'interroge sur les "retours" de l'InputBox et sur l'existence de la valeur Null en VBA.

Que renvoie une InputBox validée sans saisie?
Que renvoie une InputBox annulée?

Selon ce test, on se rend bien compte qu'une annulation et une validation de saisie vide n'est pas la même chose :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub test()
Dim c As String, entree As String, b1 As Boolean, b2 As Boolean, b3 As Boolean
'comparaison entre c (String vide) et InputBox annulée
entree = InputBox("Annulez SVP !!!")
b1 = (StrPtr(c) = StrPtr(entree))
b2 = (StrPtr(c) = 0)
b3 = StrPtr(entree) = 0
MsgBox "comparaison entre c (String vide) et InputBox annulée" & vbCrLf & _
    "StrPtr(c) = StrPtr(entree) : " & b1 & vbCrLf & _
    "StrPtr(c) = 0 : " & b2 & vbCrLf & _
    "StrPtr(entree) = 0 : " & b3
 
'comparaison entre c (String vide) et InputBox validée sans saisie
entree = InputBox("Validez sans saisie !!!")
b1 = (StrPtr(c) = StrPtr(entree))
b2 = (StrPtr(c) = 0)
b3 = StrPtr(entree) = 0
MsgBox "comparaison entre c (String vide) et InputBox validée sans saisie" & vbCrLf & _
    "StrPtr(c) = StrPtr(entree) : " & b1 & vbCrLf & _
    "StrPtr(c) = 0 : " & b2 & vbCrLf & _
    "StrPtr(entree) = 0 : " & b3
 
c = ""
'comparaison entre c = "" et InputBox annulée
entree = InputBox("Annulez SVP !!!")
b1 = (StrPtr(c) = StrPtr(entree))
b2 = (StrPtr(c) = 0)
b3 = StrPtr(entree) = 0
MsgBox "comparaison entre c = """" et InputBox annulée" & vbCrLf & _
    "StrPtr(c) = StrPtr(entree) : " & b1 & vbCrLf & _
    "StrPtr(c) = 0 : " & b2 & vbCrLf & _
    "StrPtr(entree) = 0 : " & b3
 
'comparaison entre c = "" et InputBox validée sans saisie
entree = InputBox("Validez sans saisie !!!")
b1 = (StrPtr(c) = StrPtr(entree))
b2 = (StrPtr(c) = 0)
b3 = StrPtr(entree) = 0
MsgBox "comparaison entre c = """" et InputBox validée sans saisie" & vbCrLf & _
    "StrPtr(c) = StrPtr(entree) : " & b1 & vbCrLf & _
    "StrPtr(c) = 0 : " & b2 & vbCrLf & _
    "StrPtr(entree) = 0 : " & b3
End Sub

Quid également de la valeur Null? Existe t'elle en VBA???
Oui, Non, pas vraiment...
Testons donc...

Test de comparaison entre la saisie vide (ou l'annulation) d'une inputbox et la constante VbNullString :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
Dim bon As Boolean, entree As String, L As Integer
  Do While Not bon
    entree = InputBox("veuillez entrer un nombre entier entre 1 et 20")
    Select Case entree
        Case vbNullString: Exit Do
        Case Else: Bon = True
    End Select
  Loop
  ' voyons ce que nous avons saisi
  MsgBox IIf(bon, "vous avez saisi " & entree, "vous avez annulé")
End Sub

Test de comparaison entre la saisie vide (ou l'annulation) d'une inputbox et un String non rempli :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test2()
Dim bon As Boolean, entree As String, L As Integer, strTest As String
  Do While Not bon
    entree = InputBox("veuillez entrer un nombre entier entre 1 et 20")
    Select Case entree
        Case strTest: Exit Do
        Case Else: Bon = True
    End Select
  Loop
  ' voyons ce que nous avons saisi
  MsgBox IIf(bon, "vous avez saisi " & entree, "vous avez annulé")
End Sub

02/05/2017, 12h46
unparia

Bonjour Franck
l'utilisation de sptr est en fait tout simplement (je n'en connais aucune autre, dans passer par beaucoup de tremplins non VB) la seule manière de distinguer vbEmpty (ou "") de vbNullstring *****.
Et ceci : qu'il s'agisse ou non de ce qui a été saisi dans une inputbox ou dans n'importe quoi d'autre.
***** ne pas confondre Null et VbnULLsTRING;
J'utilise personnellement assez souvent cette fonction (créée à l'origine surtout pour passer un paramètre acceptable à certaines fonctions de l'Api de Windows, dont - et entre autres - la fonction MyUnicodeCall de la librairie "MyUnicodeDll.Dll" de l'Api de Windows) à divers tests (variable initialisée ou non ? Matrice initialisée ou non ? ) etc ...
Je veux dès lors bien que l'on ouvre une discussion sur cette fonction, mais à une seule condition : qu'elle ne soit pas "liée" uniquement à l'analyse du résultat de l'utilisation de la fonction InputBox.
Amitié.

Code:

1
2
3
4
5
6
7
Private Sub test()Dim entree
Do While entree < 1 Or entree > 20
 entree = Application.InputBox("veuillez entrer un nombre entier entre 1 et 20", Type:=1)
 If TypeName(entree) = "Boolean" Then MsgBox "Vous allez sortir de programme", vbCritical: Exit Sub
 If entree < 1 Or entree > 20 Then MsgBox "Vous devez choisi un valeur entre 1 et 20", vbExclamation
Loop
End Sub

Merci Jacques de ta réponse.

Je verrais ultérieurement s'il convient d'ouvrir une autre discussion sur strPtr. Je viens de découvrir, donc je teste au préalable ;-)

Revenons en, si tu le veux bien, à ma question.
Une InputBox annulée renvoie l'équivalant d'un String non remplit :

Code:

1
2
3
4
5
6
7
8
9
10
Dim c As String, entree As String, b1 As Boolean, b2 As Boolean, b3 As Boolean
'comparaison entre c (String vide) et InputBox annulée
entree = InputBox("Annulez SVP !!!")
b1 = (StrPtr(c) = StrPtr(entree))
b2 = (StrPtr(c) = 0)
b3 = StrPtr(entree) = 0
MsgBox "comparaison entre c (String vide) et InputBox annulée" & vbCrLf & _
    "StrPtr(c) = StrPtr(entree) : " & b1 & vbCrLf & _
    "StrPtr(c) = 0 : " & b2 & vbCrLf & _
    "StrPtr(entree) = 0 : " & b3

ça c'est OK, ça marche pour moi.
Mais...
Que renvoie une InputBox validée sans saisie?
Elle ne renvoie ni un String non remplit :

Code:

1
2
3
4
5
6
7
8
9
10
Dim c As String, entree As String, b1 As Boolean, b2 As Boolean, b3 As Boolean
'comparaison entre c (String vide) et InputBox validée sans saisie
entree = InputBox("Validez sans saisie !!!")
b1 = (StrPtr(c) = StrPtr(entree))
b2 = (StrPtr(c) = 0)
b3 = StrPtr(entree) = 0
MsgBox "comparaison entre c (String vide) et InputBox validée sans saisie" & vbCrLf & _
    "StrPtr(c) = StrPtr(entree) : " & b1 & vbCrLf & _
    "StrPtr(c) = 0 : " & b2 & vbCrLf & _
    "StrPtr(entree) = 0 : " & b3

Ni la "chaine" : ""

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim c As String, entree As String, b1 As Boolean, b2 As Boolean, b3 As Boolean
'comparaison entre c = "" et InputBox validée sans saisie
c = ""
entree = InputBox("Validez sans saisie !!!")
b1 = (StrPtr(c) = StrPtr(entree))
b2 = (StrPtr(c) = 0)
b3 = StrPtr(entree) = 0
MsgBox "comparaison entre c = """" et InputBox validée sans saisie" & vbCrLf & _
    "StrPtr(c) = StrPtr(entree) : " & b1 & vbCrLf & _
    "StrPtr(c) = 0 : " & b2 & vbCrLf & _
    "StrPtr(entree) = 0 : " & b3

EDIT :
@dysorthographie :
Bonjour,
Ton code répond à l'autre discussion, pas à ma question de ce jour.

02/05/2017, 12h59
Invité

regardes ce que j'ai proposé!

Citation:

Valeurs inputbox annulée ou validée / Valeur Null en V

tu ne peux pas avoir de valeur null, soit tu annule soit tu entre un numérique!
02/05/2017, 13h04
pijaku

Salut Robert,

Oui, j'ai bien vu.
Par ailleurs je suis d'accord avec toi.
Si l'utilisateur, en voyant :
"veuillez entrer un nombre entier entre 1 et 20",
saisi n'importe quoi, il faut l'expulser à grand coups de pied dans le derrière : "Vous allez sortir du programme", vbCritical: Exit Sub
(ce que d'ailleurs il faudrait traduire directement par : "Trop c*n pour saisir une bonne valeur...", vbCritical: Exit Sub)

Mais ma question porte essentiellement sur le retour d'une inputbox validée sans aucune saisie.
Voir mes tests... Peut être ne sont-ils pas adéquats par ailleurs...
02/05/2017, 13h12
Invité

tu veux pouvoir ne rien saisir dans ton InputBox?

je t’avouai que je n'ai rien compris!
02/05/2017, 13h17
pijaku

En fait, je ne travaille sur rien de précis, je ne veux rien.

Juste savoir ce que renvoie exactement une InputBox validée sans saisie.
A priori (d'après mes tests), elle ne revoie pas "" ni de String vide.
D’où ma question sur la valeur Null en VBA...
02/05/2017, 13h40
pijaku

Ok.
Mea culpa.
Mes tests étaient foireux.
Une inputbox renvoie bien un VbNullString...

Désolé.

Bon
Lorsque le temps me le permettra, je rédigerai tout un petit laïus que je déposerai en contributions pour exposer plus longuement ce qu'est la fonction strptr et ses utilisations ici et/ou là :
Voici déjà, pour les moins patients, de quoi satisfaire un peu leur soif. Les plus vifs commenceront déjà à extrapoler suffisamment.
Test --->>
Code:

1 2 3 4 5 6 7 Dim a As String, b As String a = vbNullString b = "" MsgBox ("la chaîne a est-elle """"égale"""" à la chaîne b ? ---> ") & (a = b) & vbCrLf & _ "car a = " & """" & a & """" & " et que b = également " & """" & b & """" MsgBox ("strptr(a) est-il égal à strptr(b) ? ----> ") & (StrPtr(a) = StrPtr(b)) & vbCrLf & _ "car strptr(a) retourne " & StrPtr(a) & " tandis que strptr(b) retourne " & StrPtr(b)
Amitiés

02/05/2017, 16h47
pijaku

Citation:

Envoyé par unparia

Voici déjà, pour les moins patients, de quoi satisfaire un peu leur soif. Les plus vifs commenceront déjà à extrapoler suffisamment.

C'est exactement ce que je testais précédemment.
Donc... +1 !

A suivre...

Oui, Franck, en effet (j'avais lu en diagonale).
Je vois que tu t'y intéresses vraiment.
Je vais donc te donner ce petit exemple d'utilisation éventuelle (tu devineras vite vers "quoi" il peut conduire et ce qui se passe exactement lorsque l'on redimensionne purement et simplement) :
Code:

1 2 3 4 5 6 7 8 9 10 ReDim toto(1) As String MsgBox StrPtr(toto(0)) toto(0) = "" MsgBox StrPtr(toto(0)) ReDim Preserve toto(1) MsgBox StrPtr(toto(0)) ReDim toto(1) MsgBox StrPtr(toto(0)) toto(0) = "" MsgBox StrPtr(toto(0))
amitiés

03/05/2017, 07h59
pijaku

Salut Jacques,

Je n'ai pas encore fait ton test avec une variable tableau.
Trop de questions à propos de cette (fantastique) fonction que je découvre.
Je vais de ce pas ouvrir une nouvelle discussion pour lui consacrer tous les tests nécessaires.

Merci à toi et... A tout de suite !
Amicalement