Bonjour,
voici mon probl=E8me : je demande =E0 l'utilisateur de saisir=20
un chiffre N . Je r=E9cup=E8re cette valeur dans un for...next
Mais dans la boucle je souhaite stocker les N valeurs
Ex :
N=3Dval(inputbox("Combien de chiffres ?"))
for i=3D1 to N
toto=3Dinputbox("Quelle valeur ?")
next
La question va =EAtre pos=E9e N fois. Comment stocker chaque=20
r=E9ponse toto dans une variable diff=E9rente =E0 chaque fois?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour Gueridon, Le plus simple : stocker dans une feuille :
Sub plusval() Dim i As Integer For i = 1 To 3 toto = InputBox("Quelle valeur ?") Cells(i, 1).Value = toto Next End Sub -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "gueridon" a écrit dans le message de news:861a01c34545$5ca6ef90$ Bonjour, voici mon problème : je demande à l'utilisateur de saisir un chiffre N . Je récupère cette valeur dans un for...next Mais dans la boucle je souhaite stocker les N valeurs
Ex :
N=val(inputbox("Combien de chiffres ?"))
for i=1 to N toto=inputbox("Quelle valeur ?") next
La question va être posée N fois. Comment stocker chaque réponse toto dans une variable différente à chaque fois?
Merci beaucoup pour votre aide Gueridon :-)
Bonjour Gueridon,
Le plus simple : stocker dans une feuille :
Sub plusval()
Dim i As Integer
For i = 1 To 3
toto = InputBox("Quelle valeur ?")
Cells(i, 1).Value = toto
Next
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"gueridon" <pguerard@noos.fr> a écrit dans le message de news:861a01c34545$5ca6ef90$a401280a@phx.gbl...
Bonjour,
voici mon problème : je demande à l'utilisateur de saisir
un chiffre N . Je récupère cette valeur dans un for...next
Mais dans la boucle je souhaite stocker les N valeurs
Ex :
N=val(inputbox("Combien de chiffres ?"))
for i=1 to N
toto=inputbox("Quelle valeur ?")
next
La question va être posée N fois. Comment stocker chaque
réponse toto dans une variable différente à chaque fois?
Bonjour Gueridon, Le plus simple : stocker dans une feuille :
Sub plusval() Dim i As Integer For i = 1 To 3 toto = InputBox("Quelle valeur ?") Cells(i, 1).Value = toto Next End Sub -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "gueridon" a écrit dans le message de news:861a01c34545$5ca6ef90$ Bonjour, voici mon problème : je demande à l'utilisateur de saisir un chiffre N . Je récupère cette valeur dans un for...next Mais dans la boucle je souhaite stocker les N valeurs
Ex :
N=val(inputbox("Combien de chiffres ?"))
for i=1 to N toto=inputbox("Quelle valeur ?") next
La question va être posée N fois. Comment stocker chaque réponse toto dans une variable différente à chaque fois?
Merci beaucoup pour votre aide Gueridon :-)
Ellimac
Bonjour,
Il faut passer par une variable tableau. Dans l'exemple on insère en colonne A le contenu des différentes valeur de tableau :
Sub toto() n = InputBox("combien?") For cpt = 1 To n Dim tableau() ReDim Preserve tableau(n) tableau(cpt) = InputBox("valeur") Cells(cpt, 1) = tableau(cpt) Next End Sub
Camille
-----Message d'origine----- Bonjour, voici mon problème : je demande à l'utilisateur de saisir un chiffre N . Je récupère cette valeur dans un for...next Mais dans la boucle je souhaite stocker les N valeurs
Ex :
N=val(inputbox("Combien de chiffres ?"))
for i=1 to N toto=inputbox("Quelle valeur ?") next
La question va être posée N fois. Comment stocker chaque réponse toto dans une variable différente à chaque fois?
Merci beaucoup pour votre aide Gueridon :-) .
Bonjour,
Il faut passer par une variable tableau. Dans l'exemple on
insère en colonne A le contenu des différentes valeur de
tableau :
Sub toto()
n = InputBox("combien?")
For cpt = 1 To n
Dim tableau()
ReDim Preserve tableau(n)
tableau(cpt) = InputBox("valeur")
Cells(cpt, 1) = tableau(cpt)
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
voici mon problème : je demande à l'utilisateur de saisir
un chiffre N . Je récupère cette valeur dans un for...next
Mais dans la boucle je souhaite stocker les N valeurs
Ex :
N=val(inputbox("Combien de chiffres ?"))
for i=1 to N
toto=inputbox("Quelle valeur ?")
next
La question va être posée N fois. Comment stocker chaque
réponse toto dans une variable différente à chaque fois?
Il faut passer par une variable tableau. Dans l'exemple on insère en colonne A le contenu des différentes valeur de tableau :
Sub toto() n = InputBox("combien?") For cpt = 1 To n Dim tableau() ReDim Preserve tableau(n) tableau(cpt) = InputBox("valeur") Cells(cpt, 1) = tableau(cpt) Next End Sub
Camille
-----Message d'origine----- Bonjour, voici mon problème : je demande à l'utilisateur de saisir un chiffre N . Je récupère cette valeur dans un for...next Mais dans la boucle je souhaite stocker les N valeurs
Ex :
N=val(inputbox("Combien de chiffres ?"))
for i=1 to N toto=inputbox("Quelle valeur ?") next
La question va être posée N fois. Comment stocker chaque réponse toto dans une variable différente à chaque fois?
