passer de 2 lignes en 2 ligne

[noon]

bonjour a toute et tous

j aimerais savoir si il est possible de passer de ligne a la fois
je m explique

j entre des donner dans un userform qui me les revoie sur ma feuille
et donc si il y a deja des donner ecrit en a1 il envoie donc en a2 et ainsi de suite

moi se que je souhaite c est si il y a quelque chose en a1
qu il les prochaine entrée soit envoyé en a3 donc toujours 2 lignes en 2 lignes

ci joint un essai

merci

 

[Pascal76]

Salut Noon

Dans ton

Private Sub CmdValider_Click()

modifie ta ligne

lig = Columns(2).Find("", [b2], , , xlByRows).Row

comme ceci

lig = Range("B65536").End(xlUp).Row + 2

Bon courage

Pascal

 

[noon]

bravo pascal

mais encore une petite question
ma 2eme textbox2(txtprenom) renvoie en C1 donc a droite de la textbox 1 (txtnom)
et moi j aimerais quelle soit envoyer en dessous la textbox1
soit B2

je ne sais pas comment faire !!!

as tu une idée

merci

 

[Pascal76]

re

il faut que ta ligne de code

Cells(lig, 3) = Txtprenom.Value

devienne

Cells(lig+1, 2) = Txtprenom.Value

dans ce cas fait attention la ligne que je te donnais tout à l'heure te laissera une ligne vide pour le nom suivant
si tu veux qu'il soit juste en dessous ecris

lig = Range("B65536").End(xlUp).Row + 1

Bon courage

Pascal

 

[noon]

exellent pascal76

le 76 pour seine maritime ?

je ne sais pas si c est ca ?
en tous cas cas moi je suis bien de seine maritime

enfin bref

merci encore

 

[Pascal76]

et oui gagné

remarque il vaut mieux que ce soit mon département que mon âge; d'un autre côté je préfèrerais que ce soit mon année de naissance (snif snif).

Bonne journée

Pascal