Premiere cellule vide ne vba

[David]

Bonjour à tous

Je voulais savoir en vba comment indiquer d'aller à la première cellule vide dans une collone.

J'ai un Userform avec 2 TextBox:

Range("A1").Value = nom.Value
Range("A2").Value = prenom.Value

Comment faire pour que si je resaisie nom et prenom que ça aille en A3 et A4.

Je précise que dans l'exemple il y a 2 TextBox mais qu'il pourrait y en avoir 3, 4, 5 etc, etc... il me faut donc par rapport à la première cellule vide et pas un compteur.

Merci

 

[PascalXLD]

Re : Premiere cellule vide ne vba

Bonjour

dans le style

Dim Maligne as integer
MaLigne=range("A65536").end(xlup).row +1
Range("A" & maligne) = nom.Value
Range("A" & maligne +1)= prenom.Value

 

[porcinet82]

Re : Premiere cellule vide ne vba

Salut David,

Pour trouver la dernière cellule non vide de la colonne A, tu peux utiliser un code de ce genre :
range("a65536").end(xlup).row
Il te suffit donc de mettre le code suivant pour remplir tes textbox:
Range("A" & range("a65536").end(xlup).row+1).Value = nom.Value

Ensuite, tu met le meme code pour les autres textbox et ca devrait le faire également.

@+

Edition : Salut Pascal, pas rafraichit et apparement un peu mou du clavier aujourd'hui le Porcinet...

 

[David]

Re : Premiere cellule vide ne vba

Merci à tous les deux

Vos soluces ont l'air quasi indentique, je vais donc tester les 2 merci encore.

 

[David]

Re : Premiere cellule vide ne vba

Super ça marche parfaitement

j'ai fait un simple copier coller du code à Pascal76 et c'est parfait.

Bravo merci encore