Comment envoyer valeur textbox dans cellule vides

Résolu/Fermé
grandflo59 Messages postés 5 Date d'inscription dimanche 2 février 2014 Statut Membre Dernière intervention 11 février 2014 - 2 févr. 2014 à 16:45
grandflo59 Messages postés 5 Date d'inscription dimanche 2 février 2014 Statut Membre Dernière intervention 11 février 2014 - 2 févr. 2014 à 18:00
Bonjour, je suis assez novice encore au niveau du vba, je bloque sur mon deuxieme fichier avec vba.
En effet j'aimerais afficher mes textbox à la suite du tableau et ainsi de suite.
exemple : nom en A2, une fois que j'ai valider, que le prochain nom soit en A3.

Je ne c'est pas comment je peu joindre le fichier :s l'userform est prêt il me manque ce code pour que ca fonctionne.


Merci a tous :)

3 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 2/02/2014 à 17:18
Bonjour

Pour trouver la 1° cellule vide

Dim ligvid as integer
ligvid==columns("A").find("",Range("A1"),xlvalues).row
Cells(Ligvid,"A")=tontextbox


Michel
0
Bonjour

F01 est le CodeName de la Feuil

Private Sub ButValide_Click()
With F01
Nlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Nlig).Value = TextBox1
.Range("B" & Nlig).Value = TextBox2
End With
End Sub

A+

Maurice
0
grandflo59 Messages postés 5 Date d'inscription dimanche 2 février 2014 Statut Membre Dernière intervention 11 février 2014
2 févr. 2014 à 18:00
Merci a vous :D ca marche bien ca me permet d'avancer sur mon fichier :) bonne soirée :)
0