usf a chaque entree passer a la ligne suivante

[noon]

bonjours a tous et toute

j ai crée un userform qui me permet de renvoyer le texte en A1

se que je veux a chaque fois que je fais une une nouvelle
entrer que sa passe a la ligne suivante

merci

 

[Eric C]

Bonsoir le Forum
Bonsoir noon

Petit fichier, s'il se doit, basé sur la saisie interminable de données de dates & heures (saisir uniquement 010203 pour avoir un format 01/02/03 - Idem avec les heures). Sinon, fichier à modifier mais il faut impérativement dans celui joint, saisir toute la ligne pour que le passage à la ligne suivante se fasse après saisie de la cellule montant.
@ ++ Eric C

 

[LP]

Bonsoir à tous

Dis moi Eric, il est où ton USF ??

@ +

 

[evelynetfrancois]

la bonne blague !!!
e et f

 

[Eric C]

Bonjour le forum
Bonjour noon, LP & evelynetfrancois

Oups, il est vrai que j'ai du louper quelque chose. Mais en fait la question est peut être soit mal formulée ou peut être, comme disait Thierry, il y a une semaine, la bière est de mauvaise qualité hips ... lol. Bon je retourne dans ma coquille pour en sortir que demain lundi.
Bon dimanche.
@ ++ Eric C

 

[noon]

BONJOUR A TOUS
je vous joint un exemple de ce que je veut faire


ca sera plus facile a comprendre

a+

noon

 

[Michel_M]

Bonjour à everybody

Noon,

Avant l'apéro du Dimanche, Avale ce médicament pour ton mal à l'usf


Private Sub CommandButton1_Click()
Dim lig As Long

Sheets("feuil1").Activate

If Application.CountA(Range("A:A")) = 0 Then
Range("a1") = TextBox1.Value
Range("b1") = TextBox2.Value
Else
lig = Columns(1).Find("", [A1], , , xlByRows).Row
Cells(lig, 1) = TextBox1.Value
Cells(lig, 2) = TextBox2.Value
End If

End Sub

Bon dimanche
Michel

 

[noon]

merci michel