Tableau macro Excel

Bonjour @ tous,

j'ai dans une cellule excel une formule qui permet de faire varier des nombres réels et entier, le souci c'est que j'aimerais bien mettre ces nombres dans un tableau à l'aide d'une macro excel. J'ai essayer de la faire mais le problème c'est que ca me prend seulement une valeur à chaque fois:

Voici le code que j'ai écris dans la macro :

Pour mettre les valeurs dans un talbeau :

For i = 0 To 10

ri = Range("B2")

ReDim Preserve ArrayData(0 To i)

ArrayData(i) = ri

i = i + 1

Next i

Pour afficher ces valeurs :

For i = 0 To 10

Range("A11") = ArrayData(i)

Range("A12") = ArrayData(i)

Range("A13") = ArrayData(i)

Range("A14") = ArrayData(i)

Range("A15") = ArrayData(i)

Range("A16") = ArrayData(i)

Range("A17") = ArrayData(i)

Range("A18") = ArrayData(i)

Range("A19") = ArrayData(i)

Range("A20") = ArrayData(i)

i = i + 1

Next i

En espérant une réponse qui me permet d'avancer car je bloque sur ca, et je pense que ca doit être quelque chose de tout bête à faire mais je n'y ai pas pensé.

@++

Bonjour,

Vraiment personne ne sait comment faire fonctionner mon problème ca là ca devient urgent?

Merci beaucoup.

Cordialement.

@++

Bonjour

Je ne comprends pas bien ce que tu veux obtenir

Déjà pour le code

Sub Nicolas()
'prend l'habitude de déclarer tes variables
Dim I As Byte
Dim Ri As Variant
Dim ArrayData() As Variant ' Déclare un tableau de longueur variable

For I = 0 To 10
   Ri = Range("B2")
   ReDim Preserve ArrayData(0 To I)
   ArrayData(I) = Ri
   I = I + 1 'je ne comprends pas cette ligne, I étant incrémenté par l'instruction For ... Next, elle est donc inutile.
Next I

Range("A11:A20") = ArrayData 'Permet décrire le tableau en une seule commande
End Sub

Si tu veux mettre la valeur de B2 en A11, ensuite mettre en A12 la valeur de B2+1, etc, il faut

Sub Nicolas()
'prend l'habitude de déclarer tes variables
Dim I As Byte
Dim Ri As Variant
Dim ArrayData() As Variant ' Déclare un tableau de longueur variable

Ri = Range("B2")
For I = 0 To 10
   ReDim Preserve ArrayData(0 To I)
   ArrayData(I) = Ri
   Ri = Ri + 1
Next I

Range("A11:A20") = ArrayData 'Permet décrire le tableau en une seule commande
End Sub

Si je suis en dehors de la plaque, poste un fichier, en indiquant ce que tu veux obtenir, et le code complet.

Bonne journée

@+Jean-Marie