Faire une boucle sur une suite de valeurs non linéairesRésolu

Question

Bonjour,

Je cherche à faire une boucle pour disons i=1,i=3,i=9,i=25... 
J'ai essayé de déclarer toutes les valeurs dont j'ai besoin comme suit:

k1=3
k2=9
k3=21
...
kn=75

Mais je ne parviens pas à faire fonctionner ma boucle avec

for i=1 to n
...cells(1,ki)...
next i

Quoi que je fasse, au mieux, mon "k" & i est renvoyé en String...

Si quelqu'un pouvait m'indiquer comment transformer un String en Integer, ou mieux encore, comment enregistrer une suite de valeurs dans une variable qui puisse êtr utilisée dans une boucle, ce serait particulièrement urbain.

Merci beaucoup,

E.B.

BasicInstinct · Accepted Answer

'creation d'un tableau de valeur
Dim TableauValeur as Variant
TableauValeur = Array(1, 3, 9, 25)
For I = 0 To UBound(TableauValeur)
Msgbox TableauValeur(I)


Next

'transformer une chaine de caractere en long
Nombre=Clng(Texte)
'transformer une chaine de caractere en Integer
Nombre=CInt(Texte)

 BasicInstinct

Utilisateur anonyme · Answer

Bonjour,



L'&#233;quation de ta suite est: y=6x-3

Il suffit donc de faire une boucle sur les valeurs de x puis de chercher la valeur de y



Dim x As Integer, y As Integer

For x = 1 To 13
  y = 6 * x - 3

  MsgBox (y)

Next x



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

edouard_berth · Answer

Merci infiniment,

Le tableau fonctionne à merveille.
Par contre, je n'en ai plus besoin du coup, mais je pèche toujours sur ma transformation de string en integer. J'avais effetivement trouvé la fonction dans l'aide, mais je n'ai pas réussi à la faire fonctionner...
k1 = consGenre
i = 1
MsgBox (CLng("k" & i))

Merci encore,

E.B.

edouard_berth · Answer

Désolé pour l'équation, mais ces chiffres étaient fictifs, et tu me vois bien surpris de la logique de mon arbitraire...
Merci quand même.

Utilisateur anonyme · Answer

Bonjour,



Oui, d&#233;soler, j'ai mal lu ta suite. J'ai crus que c'&#233;tait 3,9,15,21 ...

Ma solution est donc parfaitement fausse.



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Gobillot · Answer

c'est le k qu'il faut transformer en cha&#238;ne avant de concat&#233;ner:



    MsgBox Int(Str(k) & i)


Daniel

Faire une boucle sur une suite de valeurs non linéaires

6 réponses

Discussions similaires