Macro pour remplir un nombre prédéfini de cellules vides

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:

---

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.

Bonjour,

Citation:

---

Cependant avec ce code je commence en B2 (à cause de l'offset)

---

, c'est sûr ça? ,parce que là: "Cells(1, DerniereColonne)", ça commencerait plutôt à la ligne 1.

A part ça, ceci devrait aller:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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 DerniereColonne = Cells(1, Columns.Count).End(xlToLeft).Column While I <= Nb Cells(2, I) = Numero I = I + 1 Numero = Numero + Increment Wend

---

Cdlt

Ah oui petite erreur de frappe je commence en A2 au temps pour moi :oops:

Ça marche parfaitement, merci beaucoup d'avoir répondu aussi rapidement !

Salut.

Perso, je ferais ainsi, sans boucle (Vérifier les noms des textbox, et les renommer: TextBox1, TextBox2, ..., ça le fait moyen ^^ )

Code:

---

1 2	Range("xfd1").End(xlToLeft)(1, 2).Value = textbox2.Value Range("xfd1").End(xlToLeft)(1, 1).Resize(1, textbox3.Value).DataSeries rowcol:=xlRows, Type:=xlLinear, step:=textbox1.Value

---

VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA... ;)

• La solution existe dans Excel via Accueil > Edtion > Recpier > Série;
• Un petit coup d'enregistreur de macros pour obtenir la méthode à utiliser (Range.DataSeries...);
• Un remplacement des valeurs saisies côté Excel par les valeurs des Textbox;
• Si on n'est pas à l'aise avec le code condensé que je donne, on peut développer sans soucis avec des variables intermédiaires qui permettent, lors d'un déroulement de la macro pas-à-pas, de vérifier que les plages sont bien définies.

Code:

---

1 2 3 4 5 6 7 8 9

Sub increment() Dim r As Range   Set r = Range("xfd1").End(xlToLeft) ' On détermine la dernière colonne en ligne 1 Set r = r(1, 2) 'on décale d'une colonne à droite (<> Range.Offset) r.Value = TextBox2.Value ' On attribue la valeur à la cellule déterminée Set r = r.Resize(1, TextBox3.Value) ' On redimensionne la plage en fonction du nombre de valeurs à placer r.DataSeries rowcol:=xlRows, Type:=xlLinear, step:=TextBox1.Value ' On créé la série incrémentée sur la plage définie End Sub

---