Complément pour grille de saisie par macro

[libellule85]

Bonsoir tout le monde,
J'ai trouvé sur le forum un code (ci dessous) que j'ai associé à une userform pour une grille de saisie et celà fonctionne très bien sur les 12 colonnes mais j'aimerais que l'intégration de ma saisie commence à partir de la cellule A5 quand mon tableau est vide !! (actuellement la première ligne de saisie se met dans les colonnes de Titres !!).

Dim i As Integer, Li As Integer
Private Sub CommandButton1_Click()
Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1

For i = 1 To 12
Cells(Li, i).Value = Me.Controls("Textbox" & i).Value
Next i
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 12
Me.Controls("Textbox" & i).Value = ""
Next i
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label12_Click()

End Sub

Merci beaucoup pour vos réponses

 

[Robert]

Re : Complément pour grille de saisie par macro

Bonsoir Libellule, bonsoir le forum,

Remplace la ligne :

Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1

par :

If ActiveSheet.Range("A5").Value = "" Then
     Li = 5
Else
     Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1
End If

 

[kjin]

Re : Complément pour grille de saisie par macro

Bonsoir, salut mon voisin ,

....j'aimerais que l'intégration de ma saisie commence à partir de la cellule A5 quand mon tableau est vide !! (actuellement la première ligne de saisie se met dans les colonnes de Titres !!)

Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1

Zarbi je dis !
A+
kjin

 

[libellule85]

Re : Complément pour grille de saisie par macro

Bonjour Robert, Bonjour kjin

merci beaucoup pour votre réponse c'est vraiment sympa

bonne journée