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

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.

Bonjour,

L'é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

---

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.

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.

Bonjour,

Oui, désoler, j'ai mal lu ta suite. J'ai crus que c'était 3,9,15,21 ...
Ma solution est donc parfaitement fausse.

ChRB

---

c'est le k qu'il faut transformer en chaîne avant de concaténer:

    MsgBox Int(Str(k) & i)


Daniel