Private Sub CommandButton1_Click()
'dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1
With Sheets(2)
.Cells(64, 9) = Me.TextBox1
.Cells(64, 10) = Me.TextBox2
End With
Unload Me
End Sub
ou comme ça pour incrémenter les données à cet endroit
Code:
Private Sub CommandButton1_Click()
dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1
If dercel < 64 Then dercel = 64
With Sheets(2)
.Cells(dercel, 9) = Me.TextBox1
.Cells(dercel, 10) = Me.TextBox2
End With
Unload Me
End Sub
Private Sub CommandButton1_Click()
'dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1
With Sheets(2)
.Cells(64, 9) = Me.TextBox1
.Cells(64, 10) = Me.TextBox2
End With
Unload Me
End Sub
ou comme ça pour incrémenter les données à cet endroit
Code:
Private Sub CommandButton1_Click()
dercel = Sheets(2).Range("i36536").End(xlUp).Row + 1
If dercel < 64 Then dercel = 64
With Sheets(2)
.Cells(dercel, 9) = Me.TextBox1
.Cells(dercel, 10) = Me.TextBox2
End With
Unload Me
End Sub
Bonsoir a tous,
Je m'inspire de ton exemple pour mettre en place un fichier
Est il possible a chaque fois que l'on insère une ligne a l'aide de l'userform d'incrémenter une ligne en colonne C par exemple avec une valeur comme celle ci : AES0001 , la ligne suivante AES0002 et ainsi de suite
Merci beaucoup