Discussion :

[Kopanpan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Pour ton code, tu as oublié un Set

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kopanpan]

Merci beaucoup !