VBA- Boucle

Bonjour à tous,

Alors en fait j'ai testé de faire une boucle, mais je n'arrive pas à faire ce que je veux

Private Sub CommandButton1_Click() [A2] = TextBox1.Text [I3] = TextBox2.Text Dim i As Integer Dim j As Integer i = [A2] j = [I3] While i <= j Cells(i, 1) = i i = i + 1 Wend

En réalité, j'aimerais que la boucle se réalise à partir de la cellule A2 à partir de la valeur écris en A2 provenant de la userform.

De plus, la valeur de I3 correspond à la valeur qui permet d'arrêter la boucle (exemple: j'aimerais qu'en A2 j'ai 1215 renseigné dans la textbox1 et en A17, j'aimerais avoir 1230 renseigné dans la textbox2).

Merci d'avance.

Damien

Bonjour

Avec une boucle For serait plus adaptée je pense :

Private Sub CommandButton1_Click()

Dim i As Integer

For i = Me.TextBox1 To Me.TextBox2
Cells(i + 1, 1) = i
Next i

End Sub

Bonjour,

peut-être:

Private Sub CommandButton1_Click()
Dim i As Integer, Deb as Integer, Fin as Integer, Dif as Integer
Deb= CInt(TextBox1.Text)   'text converti en integer
Fin = CInt(TextBox2.Text)    ' text converti en integer
Dif = Fin - Deb
For i = 1 to Dif
      Range("A" & i + 1) = Deb + i
Next
End Sub

ou

Private Sub CommandButton1_Click()
Dim i As Integer, Deb as Integer, Fin as Integer, x as Integer
Deb= CInt(TextBox1.Text)   'text converti en integer
Fin = CInt(TextBox2.Text)    ' text converti en integer
x = 1
For i = Deb to Fin
      x = x + 1
      Range("A" & x) =  i
Next
End Sub

A+

Edit : Bonjour GGautier . Heu... a priori ça ne débute pas l'écriture en A2 ?

Non effectivement, j'ai tapé ça un peux vite, mais c'était surtout pour donner l'idée de passer par un boucle For

Un grand merci à vous deux, ça marche!!!