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
16571
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
27 juin 2022
3 280
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