Comment envoyer valeur textbox dans cellule vides
Résolu
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 :)
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
-
Merci a vous :D ca marche bien ca me permet d'avancer sur mon fichier :) bonne soirée :)
-
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 -
ContributeurBonjour
Pour trouver la 1° cellule vide
Dim ligvid as integer
ligvid==columns("A").find("",Range("A1"),xlvalues).row
Cells(Ligvid,"A")=tontextbox
Michel
