inputbox

[zumba]

Bonjour, voici quelques lignes de code que je veux améliorer.
saisie_2:
valeur = InputBox("entrer le numero de la ligne.....")
If valeur < 6 or valeur > 10 Then
MsgBox ("valeur incorrecte")
GoTo saisie_2
je souhaiterai interdire en plus, la saisie d'une valeur 'vide', j'ai donc écris :
If valeur = "" or valeur < 6 or valeur > 10 Then
mais cela ne fonctionne pas , j'ai aussi essayé la fonction :do while.....loop; problème identique
avez_vous une solution Merci

 

[stefan373]

Bonsoir zumba et le forum.

Normalement cela devrait fonctionner avec le code d'origine.

If valeur < 6 or valeur > 10 Then

A +

 

[Papou-net]

Re : inputbox

Bonsoir zumba,

Etonnant ce que tu dis, car si la valeur saisie est vide, elle inférieure à 6 donc elle répond bien à la condition.

Tu peux le constater sur le fichier exemple ci-joint.

Espérant avoir répondu.

Cordialement.

 

[zumba]

Re : inputbox

ok peux tu m'envoyer le code de la macro 'tester'
Merci

 

[Papou-net]

Re : inputbox

ok peux tu m'envoyer le code de la macro 'tester'
Merci

Bonjour zumba,

La macro est dans l'événement Click du bouton "N° de ligne" :

Private Sub CommandButton1_Click()
saisie_2:
Valeur = InputBox("entrer le numero de la ligne.....")
If Valeur < 6 Or Valeur > 10 Then
  MsgBox ("valeur incorrecte")
  GoTo saisie_2
End If
End Sub

J'en profite pour te proposer une autre solution :

Private Sub CommandButton1_Click()
Call Tester
End Sub

Sub Tester()
Dim Valeur
Valeur = InputBox("entrer le numero de la ligne.....")
While Valeur < 6 Or Valeur > 10
  MsgBox ("valeur incorrecte")
  Valeur = InputBox("entrer le numero de la ligne.....")
Wend
End Sub

Cordialement.

 

[zumba]

Re : inputbox

J'ai essayé le code il marche nickel .Merci
Une petite question encore , quand la valeur est déclarée ( dim valeur ) elle n'est classée dans aucune catégorie string, integer.... par défaut ou se situe-t-elle ?

 

[Papou-net]

Re : inputbox

J'ai essayé le code il marche nickel .Merci
Une petite question encore , quand la valeur est déclarée ( dim valeur ) elle n'est classée dans aucune catégorie string, integer.... par défaut ou se situe-t-elle ?

Elle est du type "Variant", elle peut contenir n'importe quelle valeur (cf définition ci-dessous, extraite du site Développez.com) :

Variant : Type de données particulier pouvant contenir des données numériques, des chaînes ou des dates, des types définis par l'utilisateur ainsi que les valeurs spéciales Empty et Null.
Le type de données Variant est doté d'une taille de stockage numérique de 16 octets et peut contenir la même plage de données que le type Decimal, ou d'une taille de stockage de caractère de 22 octets (plus la longueur de la chaîne). Dans ce dernier cas, il peut stocker tout texte.

Cordialement.

Utiliser les variables en VBA Excel

 

[zumba]

Re : inputbox

Je te remercie Papou-net pour ta disponibilité et les différents renseignements + liens que tu m'as communiqués.
A+ Sujet RESOLU