Comment envoyer valeur textbox dans cellule vides [Résolu/Fermé]

Signaler
Messages postés
5
Date d'inscription
dimanche 2 février 2014
Statut
Membre
Dernière intervention
11 février 2014
-
Messages postés
5
Date d'inscription
dimanche 2 février 2014
Statut
Membre
Dernière intervention
11 février 2014
-
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

Messages postés
16311
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
26 novembre 2020
3 079
Bonjour

Pour trouver la 1° cellule vide

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


Michel
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
Messages postés
5
Date d'inscription
dimanche 2 février 2014
Statut
Membre
Dernière intervention
11 février 2014

Merci a vous :D ca marche bien ca me permet d'avancer sur mon fichier :) bonne soirée :)