Action d'une macro à partir de la cellule active

[degap05]

Bonjour, pourriez-vous m'aider à changer le mode d'action de la partie de macro suivante:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
nbr = CDbl(TextBox5)
For i = 1 To nbr

Set LastRow = Sheets("Feuil1").Range("F65536").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = ComboBox1.Text
LastRow.Offset(1, 2).Value = ComboBox2.Text
Next i
Unload Me
Application.ScreenUpdating = True
End Sub

La validation renseigne les cellules en colonne F à partir de la première ligne non vide en partant du bas et pour un nombre de lignes indiquées dans le textbox5. Je souhaiterais que les données soient écrites à partir de la cellule active incluse.

J'ai essayé plusieurs modifications sans succés.

Merci pour votre aide.

 

[tototiti2008]

Re : Action d'une macro à partir de la cellule active

Bonjour degap05,

Personnellement, je ne comprend pas :

Je souhaiterais que les données soient écrites à partir de la cellule active incluse.

 

[degap05]

Re : Action d'une macro à partir de la cellule active

Bonjour, je vais essayer de compléter mes explications.
Si la cellule active est en F10 par exemple, je souhaiterais que les données s'inscrivent en:
-F10
-G10
-H10
Merci

 

[tototiti2008]

Re : Action d'une macro à partir de la cellule active

Alors ton code devrais plutôt ressembler à :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
nbr = CDbl(TextBox5)
For i = 1 To nbr

Activecell.Offset(i-1,0).Value = TextBox1.Text
Activecell.Offset(i-1,1).Value = ComboBox1.Text
Activecell.Offset(i-1,2).Value = ComboBox2.Text
Next i
Unload Me
Application.ScreenUpdating = True
End Sub

 

[degap05]

Re : Action d'une macro à partir de la cellule active

Merci tototiti2008,
Ta solution fonctionne parfaitement.
Encore merci pour ton aide.