Aide pour corriger une macro

Bonjour tout le monde

Voila ci-dessous j'ai une macro qui fonctionne très bien au seul inconvénient c'est que celle là insert les données à partir de la cellule A2 or moi je veux que le départ soit de A12

Voici la macro :

Code:

---

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

Private Sub CommandButton1_Click() Dim LigneDebut As Long Dim Ctrl As Control Dim r As Integer Dim t As Integer Dim Derligne As Integer   With Worksheets("feuil1") LigneDebut = 10 Derligne = .Range("A10000").End(xlUp).Row + 1 For Each Ctrl In UserForm1.Controls r = Val(Ctrl.Tag) If r > 0 Then Feuil1.Cells(Derligne, r) = Ctrl Next End With TextBox1 = "" Unload Me End Sub

---

Que faudrait-il modifié pour avoir le résultat voulu

Merci à vous tous

Cordialement ;)

Bonjour

Dans les deux lignes suivantes, LigneDebut ne sert à rien par la suite
Et si La feuille est vide derligne renvoie obligatoirement "A2"

Code:

---

1 2	LigneDebut = 10 Derligne = .Range("A10000").End(xlUp).Row + 1

---

Pour débuter en A12, il faut que la Cellule "A11" contienne quelque chose (quitte à l'effacer après)

Cordialement

Bonjour,

Code:

---

1 2	LigneDebut = 10 Derligne = .Range("A" & cells.rows.count).End(xlUp).Row + 1

---

rdurupt et piotr76 Merci beaucoup vous deux pour votre

Merci c'est le résultat voulu

Cordialement ;)