passer de 2 lignes en 2 ligne

P

Pascal76

Guest

• 23 Juillet 2004

• #2

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

 

Vote positif 0 Vote négatif

N

noon

Guest

• 23 Juillet 2004

• #3

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

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 23 Juillet 2004

• #4

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

 

Vote positif 0 Vote négatif

N

noon

Guest

• 23 Juillet 2004

• #5

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

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 23 Juillet 2004

• #6

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

 

Vote positif 0 Vote négatif