Bonjour,

J'essaie de faire une macro afin de remplir un nombre prédéfini de cellules vides en commençant à la cellule A2.
J'ai le bout de code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim DerniereColonne As Long
Dim Nb As Double
Dim Numero As Double
Dim I As Integer
Dim Increment As Double
I = 1
 
Increment = TextBox1.Value
Nb = TextBox3.Value
Numero = TextBox2.Value
 
While I <= Nb
 
DerniereColonne = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, DerniereColonne).Offset(0, 1).Select
ActiveCell = Numero
 
I = I + 1
Numero = Numero + Increment
 
Wend
Cependant avec ce code je commence en B2 (à cause de l'offset). J'ai cherché sur le forum mais je n'ai rien trouvé. Comment pourais-je faire pour commencer en A2 ?

En vous remerciant par avance.