modif query table : range par cell

[dev_co]

Bonsoir
est il possible de modifier la destination de range dans :
for k=1 to 5
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ficdata(k), Destination:=Range("F1"))
....
next K
par l'instruction Cell(x,y) ceci afin de pouvoir affecter des variables
pour boucler comme par exemple
Si 1ere fois on va en F1 on met cells(6,1)
si 2eme fois on doit aller en H1 on met cells(8,1)
avec Range cela ne va pas !!

 

[youky(BJ)]

Bonjour,
Tester ceci dans un classeur vierge
Sub essai()
'compte de 2 en 2
For col = 1 To 10 Step 2
Cells(1, col + 5) = col
Next
End Sub

Bruno

 

[dev_co]

Bonjour
merci mais non , ec que je cherche est puisque on ne peut pas modifier le parametre RANGE en CELL : comment convertir range en cell
puis mettre les row , col qu'il faut et remettre en range
range : G2 > cells(7,2) ; je veux ensuite I2 donc il faut cell(9,2) puis convertir en range("I2")
mais j'avance ;

 

[youky(BJ)]

Il serait bon de tester les réponses, le code cells(… renvoie à F1 H1 J1 L1 N1
Si maintenant tu veux vraiment un range tu peux mette Range(cells(1 , col+2).address)
Mon exemple de code toujours à tester sur un classeur vierge
Sub essai()
'compte de 2 en 2
For col = 1 To 10 Step 2
Range(Cells(1, col + 5).Address) = "hello"
Next
End Sub

Bruno