enregistrer avec userform

[gerardd3617]

bonjour
comment enregistrer sans ecraser
cordialement

 

[Compte Supprimé 979]

Re : enregistrer avec userform

Bonjour

Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'ici je repère la dernière ligne vide pour la Collections des données
[B][COLOR=blue]L[/COLOR][/B] = Sheets("saisie").Range("a65536").End(xlUp).Row + 1
'Pour voir se qui se passe je bascule sur la feuille "saisie"
Sheets("saisie").Activate
'Ici c'est le report de la saisie dans la feuille
With Sheets("saisie")
Range("B"[B][COLOR=blue] & L[/COLOR][/B]).Value = TextBox2.Value
' Etc ...

A+

 

[gerardd3617]

Re : enregistrer avec userform

merci bruno ton aide me permet d'avancer un peu plus
cordialement
a+