Discussion :

[sincenono]

Bonjour,

J'aimerais faire un test sur une variable que je rentre via un InputBox.
Le problème c'est que quand je rentre un nombre via un InputBox il considère que c'est un string et pas un double.

J'ai besoin de faire ce test car si l'utilisateur rentre autre chose qu'un double il doit resaisir et j'affiche pour cela un nouveau InputBox.

Voilà ce que j'ai fait pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim inter() As Variant
 
inter(1) = InputBox("Pondération du moins bon performer")
 
Do Until VarType(inter(1)) = vbDouble
inter(1) = InputBox("Pondération du moins bon performer", "Erreur lors de la saisie précédente")
Loop

Et quand je saisis 1 par exemple ca boucle alors que ca devrait pas car 1 est bien un Double.

Merci d'avance,
Arnaud.

[drakkar_agfa]

Bonjour,

Avec ceci, tu peux convertir ton String en double

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CDbl(Toto)

[sincenono]

Je ne veux pas convertir mon string en Double.

J'explique un peu plus ce que j'aimerais faire.

- Je demande à l'utilisateur de me rentrer la pondération qu'il souhaite, mais il faut que cette donnée soit un nombre (idéalement un double pour vba),
- Puis faire un test pour savoir si ce qu'il a rentré est bien un Double ou pas
- Si c'est un Double pas de problème on passe à la suite
- Si ce n'est pas un Double on lui demande de rerentrer ce qu'il voulait rentrer.

Typiquement cela permet d'éviter les erreurs de frappes sont relancé à chaque fois tout le programme.

Si quelqu'un à une solution on souhaite des compléments d'informations, demandez.

Merci d'avance,
Arnaud.

[ucfoutu]

Bonjour,
la caractéristique d'un double est d'être un numérique et d'inclure les single, les integer et les long .... Donc, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command1_Click()
  inter = "on ne s'en préoccupe pas"
  While Not IsNumeric(Replace(inter, ".", ","))
    inter = InputBox("Pondération du moins bon performer")
  Wend
End Sub

J'ai ici utilisé le Replace car je ne sais pas comment tu imposes la saisie (avec quel séparateur de décimales, puisque isnumeric aura besoin de la virgule)
Et j'ai évité une gestion d'erreur
L'exemple ci-dessus est donc polyvalent.
Que faire ensuite du résultat (inter) saisi ?
Simple ===>> l'inverse si tu dois l'utiliser en valeur numérique pouir des opérations, genre, donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
valinter = val(replace(inter,","".))
' et pour preuve ====>>
 MsgBox valinter & "  " & valinter + 2.3

et ainsi, ce sera toujours vrai et toujours bon, que l'utilisateur saisisse avec une virgule ou avec un point.

[sincenono]

Bon en fait j'ai essayé la solution de uctofu est cela à l'air de marcher.
J'essaierai avant de poster la prochaine fois (pas encore les réflexes d'un bon développeur).

Merci de votre aide,
Arnaud.

[sincenono]

Re salut à tous,

J'ai remis ce topic en non résolu, car j'ai une autre question sur le sujet.

Comment puis je modifié le code pour que le test que je veux effectuer teste si la valeur rentrée par l'utilisateur est un entier ou pas ?

Merci d'avance,
Arnaud.

[ouskel'n'or]

"une" méthode (à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Ok as boolean
  inter = "on ne s'en préoccupe pas"
  While Not ok
    inter = InputBox("Pondération du moins bon performer")
    ok = IsNumeric(Replace(inter, ".", ","))
    ok = ok and inter = Int(inter)
    ok = ok or inter = ""
  Wend
End Sub

[ucfoutu]

Bonjour,

ou encore en jouant sur la division par \1 (notons bien \1 et non /1), en s'inspirant de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
toto = "1,1"
 titi = Val(Replace(toto, ",", "."))
 MsgBox IIf(titi \ 1 = titi, "entier", "pas entier")

[sincenono]

"une" méthode (à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Ok as boolean
  inter = "on ne s'en préoccupe pas"
  While Not ok
    inter = InputBox("Pondération du moins bon performer")
    ok = IsNumeric(Replace(inter, ".", ","))
    ok = ok and inter = Int(inter)
    ok = ok or inter = ""
  Wend
End Sub

Voila ce que j'ai essayé de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim nbActifsBest as Variant
Dim ok as Boolean
 
nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", "nombre d'actifs")
While Not ok
    nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", "Vous devez saisir un entier")
    ok = IsNumeric(Replace(nbActifsBest, ".", ","))
    ok = ok And nbActifsBest = Int(nbActifsBest)
    ok = ok Or nbActifsBest = ""
Wend

Quand je saisis 3 (un entier) je boucle quand même. Pour sortir de la boucle je clique sur annuler et la ligne suivante est surlignée en jaune :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ok = ok And nbActifsBest = Int(nbActifsBest)

Merci d'avance,
Arnaud.

[ouskel'n'or]

Ok. A lire tes posts précédents je n'avais pas déduit que tu voulais simplement un entier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim nbActifsBest As Variant
Dim ok As Boolean
 
    Do While Not ok
        nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", "Vous devez saisir un entier")
        ok = IsNumeric(nbActifsBest)
        ok = ok And nbActifsBest = Int(Val(nbActifsBest))
        ok = ok Or nbActifsBest = ""
    Loop
MsgBox nbActifsBest
End sub

Une explication : La ligne suivante demande un variant ou un string (= "")

ok = ok Or nbActifsBest = ""

Or la ligne précédente demande un nombre. Le problème est le mélange des "genres"
En utilisant Variant comme type et val pour récupérer la valeur, ça devrait pouvoir aller... "devrait" sauf si tu rentres 0, auquel cas ok = true
Tu dis

[sincenono]

Ca marche.

Merci.

J'ai posté un Topic hier qui est toujours sans réponse si tu as une idée je suis preneur.

http://www.developpez.net/forums/d67...onnees-tracer/

[ouskel'n'or]

Si c'est résolu, un petit clic sur pour qu'on sache que c'est résolu
(Je jetterai un oeil sur l'autre url mais pas tout de suite)

[sincenono]

Salut,

J'avais pas touché à cela depuis longtemps, mais en faisant tourner le programme je me suis rendu compte que même si on saisissait un entier du premier coup, on avait encore un boucle pour ressaisir l'entier.
Cette boucle n'apparait qu'une fois et après c'est bon.

Quelle serait la modification à faire ?

Merci d'avance,
Arnaud.

[sincenono]

Rebonjour,

J'aurais besoin de même de faire un test sur une Date.
Je m'explique : il y a un msgBox qui demande une date à l'utilisateur et je voudrais que dans le cas où la date n'existe pas, le programme considère la date d'après existante.
Par exemple, si l'utilisateur rentre le 31/04/2009, le programme doit comprendre le 01/05/2009.

Si cela n'est pas possible, j'aurais juste besoin que cela boucle en demandant une autre date.

Voici ce que j'ai codé pour le moment pour demander la date à l'utilisateur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dateDebut = InputBox("Quelle est la date de début du zoom ?", "Date de début")

Päs grand chose je sais lol

Merci d'avance,
Arnaud.

[AnneCa]

pour vérifier si c'est un nombre, tu as utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not isNumeric(nbActifsBest) then Msgbox "error"

De même, pour vérifier si c'est une date, tu utilises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not isDate(dateDebut) then Msgbox "error"

Courage!

[sincenono]

pour vérifier si c'est un nombre, tu as utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not isNumeric(nbActifsBest) then Msgbox "error"

De même, pour vérifier si c'est une date, tu utilises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not isDate(dateDebut) then Msgbox "error"

Courage!

Salut,

J'ai essayé d'adapter les solutions que l'on m'avait donnée précédemment avec un test utilisant isDate, mais le programme s'arrête si je rentre une date qui n'existe pas comme par exemple un 30/02 avant même d'avoir effectuer le test.

Voilà ce que j'ai codé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dateDebut = InputBox("Quelle est la date de début du zoom ?", "Date de début")
While Not IsDate(dateDebut)
  dateDebut = InputBox("Quelle est la date de début du zoom ?", "Erreur lors de la saisie précédente")
Wend
dateDebut = CDate(dateDebut)

Si tu vois comment je peux m'en sortir ça serait cool.

Merci,
Arnaud.

[ucfoutu]

Bonsoir, sincemono,

Voici une réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command1_Click()
  datedebut = "on s'en moque !"
  While Not (IsDate(datedebut) And datedebut Like "##/##/####" And Val(Mid(datedebut, 4, 2)) <= 12)
    datedebut = InputBox("Quelle est la date de début du zoom ?")
  Wend
  datedebut = CDate(datedebut)
End Sub

Pourquoi ce qui est en rouge dans le code ?
Tout simplement parce que VB est ainsi conçu qu'il accepterait comme valide la saisie de "12/31/2001" et la transformerait spontanément en "31/12/2001" (donc source d'erreur)...
Voilà .

[sincenono]

Merci pour cette réponse et désolé d'avoir posté trop de questions sur le même topic.
Arnaud.