libellule85
XLDnaute Accro
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
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