Récupérer des chiffres dans une inputbox comme caractères

Bonjour à tous : )

Je viens pour un problème de variables... Je suis sous VisualBasic 2005. Je m'explique :

J'ai besoin de récupérer 2 données sur une variable (noté "a" dans notre exemple). Ces données sont en fait des coordonnées.

Dans le cas simple ça donne :

Code:

---

1 2 3 4 5 6 7

dim a as string dim x, y as integer 'définition de la variable en as string a:="14" 'Récupération des données pour traitement x:=left(a,1) y:=right(a,1)

---

Jusque là c'est pas compliqué. Sauf qu'ici la variable "a" est affectée "dans le code" (désolé de mon vocabulaire relativement pauvre)

Et je voudrais affecter cette variable avec une "inputbox" ce qui donne :

Code:

---

1 2 3 4 5 6 7

dim a as string dim x, y as integer 'Définition de la variable a:=inputbox("donner les coordonnées avec x abscisse, y ordonnée de la forme xy") 'Récupération des données pour traitement x:=left(a,1) y:=right(a,1)

---

Et cette méthode ne marche pas car "a" ne récupère pas les données de "inputbox" comme étant des caractères... Enfin, c'est ce que j'ai compris... J'ai essayé de rentrer dans inputbox "13" plutôt que 13 (c'est à dire que j'ai rajouté les " " lors de la saisie des coordonnées) mais ça ne marche pas non plus.

Voila, j'espère avoir été clair, si vous avez une solution, merci d'avance pour votre aide :-)

Bonnes fètes ! :P

utilise plutot 2x de suite inputbox pour demander les 2 nombres
ou une form faite pour ca avec 2 textbox

dans les 2 cas il faut vérifier que ce qui est saisi est bien un nombre

En fait il faudrait que ce ne soit pas un nombre justement, mais une chaine de caractère pour pouvoir le traiter avec left(a,1) et right(a,1)

J'ai essayé avec deux inputbox :

Code:

---

1 2 3 4

For k = 1 To n a(k) = InputBox("a" & k & " x=") a(k) = a(k) & InputBox("a" & k & " y=") Next

---

Et j'ai encore le même message d'erreur :

Citation:

---

Conversion from string "a" to type 'Integer' is not valid.

---

qui apparait à la ligne :

Code:

---

x = Left(a, 1)

---

L'idée des textbox ne m'arrange pas trop, car il y a d'autres données à rentrer et les faire rentrer sur des supports différents (inputbox, textbox...) alourdirait l'aspect du programme.
Il faudrait alors tout refaire sous forme de textbox, j'aimerais pouvoir régler ça sous une/des inputbox si possible...

Peut être que je peux modifier la façon de récupérer les coordonnées ?

tu trouves ca ergonomique un inputbox ??

si tu fais 2 inputbox pas besoin de découper un string !
inputbox retourne un string, il te faut ensuite le convertir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dim tmp as string dim x,y as integer while not isnumeric(tmp) tmp = inputbox ("x") end while x = cint(tmp)   tmp = "" while not isnumeric(tmp) tmp = inputbox ("y") end while y = cint(tmp)

---

Bon daccord c'est moche en inputbox, mais j'ai jamais trop travailler en textbox :oops:

J'ai repris l'idée de conversion et mon code donne alors :

Code:

---

1 2 3 4 5 6 7 8 9

'Je rentre dans l'inputbox 07 par exemple dim a, u, v as string dim x,y as integer a = inputbox("xy") u = Microsoft.VisualBasic.Left(a, 1) v = Microsoft.VisualBasic.Right(a, 1) x = cint(u) y = cint(v)

---

Mais j'ai toujours la même erreur... J'ai du rater une étape, mon inputbox donne bien un string, et c'est du numérique puisque c'est moi qui le rentre. Je vois pas pourquoi il ne le convertit pas :(

http://plasserre.developpez.com/cours/vb-net/