Incrémentation de cellule

Bonjour le Forum

Je suis présentement en train d'écrire un petit bout de code qui permet de chercher de l'information avec un lien DDE

Voici quelques lignes

Dim freq as range

set freq = range ("B7")

RSICHAN = DDEInitiate("RSLINX", "test")
DDEPoke RSICHAN, "AE_JX_w_A", "freq"

Mon problème est que rien ne me vient à l'esprit pour changer la valeur initiale de freq. Ce qui veut dire que le prochain acquisition de freq la valeur devra être dans la cellule B8 et ainsi de suite. Il ne faut pas oublier que j'ai 24 variables à faire l'acquisition.

Si quelqu'un pourrait m'indiquer et m'expliquer comment incrémenter la valeur de freq.

Merci beaucoup

Gabriel

Bonjour,
essaye un truc du genre :

Dim freq as range
Dim i as byte

for i = 1 to 24
set freq = range ("B" & i-1)
...
...
next i