Boucle et Offset probleme

Bonjour j'essaye actuellement de faire une macro qui me permet de mettre une colonne de 1 à partir de la cellule E2.
mon code donne :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() dim i as integer dim cellule as Range set cellule = Range("E2") for i=1 to 10 cellule.select ActiveCell.formulaR1C1 = "1" cellule = cellule.offset(1,0) Next i End sub

---

quand je lance la macro j'ai un soucis j'ai bien un 1 qui est écrit en E2 mais il est éffacé immédiatement.

Si quelqu'un peut m'aider

Pour ton code, tu as oublié un Set

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim i As Integer Dim Cellule As Range   Set Cellule = Range("E2") For i = 1 To 10 Cellule.Select ActiveCell.FormulaR1C1 = "1" Set Cellule = Cellule.Offset(1, 0) Next i End Sub

---

Sinon, c'était pas un code optimisé

La même chose tu pouvais la faire directement

Code:

---

1 2 3 4

Sub test()   Range("E2").Resize(10) = 1 End Sub

---

Merci beaucoup !