Pb Boucle while et range

Bonjour
J'ai un soucis dans une boucle while. Je lui demande d'effectuer une boucle tant que la cellule (t,1) avec t=108 est différente d'une case vierge. Or il me détecte une erreur dans cette ligne. Faut il utiliser une autre fonction de .value ???? (il est à noter que cette ligne fonction sous la forme If Range("c10").Value = "" Then). Or dans mon cas j'ai besoin de lma variable t. Pouvez vous m'aider ?
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim t t = 108 While Range(Cells(t, 1)).Value <> "" t = t + 63 Wend Range("CA1:CI55").Select Selection.Copy Range(Cells(t - 2, 3)).Select ActiveCell.FormulaR1C1 = "RAPPORT" Range(Cells(t - 2, 4)).Select ActiveCell.FormulaR1C1 = "=R19C4" ActiveWindow.SmallScroll Down:=75 Range(Cells(t, 1)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Balises ajoutées par ouskel'n'or
Bouton #

Si tu enlèves le range ça marche :

Code:

---

1 2 3 4 5

While Cells(t, 1).Value <> ""   t = t + 63   Wend

---

Cwain

Rien à ajouter à ton code, cwain, mais je crois que notre ami fmris a besoin d'une explication
Range("A1") est l'équivalent de Cells(1,1)
Cells(NoLigne,NoColonne) est l'équivalent de Range("A1") si Noligne = 1 et NoColonne = 1
Range("A1:Z12") est l'équivalent de Range(Cells(NoLigne1,NoColonne1),Cells(NoLigne2,NoColonne2))
si
....NoLigne1 = 1
....NoLigne2 = 12
....NoColonne1 = 1
....NoColonne2 = 26

En espérant ne pas allourdir ;)

il me semble d'ailleurs, (en tout j'ai tjrs rencontré un bug quand je l'ai pas fait), que pour un range, il faut deux adresses cells, et la meme si le range ne fait que 1 cellule.

Soit

Code:

---

range(cells(t,1),cells(t,1))

---

merci cells(1.1).value<>""