Enoyer valeur textbox dans un Tableau

[TonTonCarton]

heu je crois que j'ai pas bien compris ....

en faites dans l'userbox1 , j ai un textbox , la valeur de celui ci est renvoyer a une cellule grace au bouton valider

Private Sub CommandButton1_Click()

[a1] = UserForm1.TextBox1
[b1] = UserForm1.TextBox2

end sub

comment je dois ericre le code pour que la valeur de textbox1 que je vais entrer n'aille pas que en A1 mais a la suite si A1 et deja pris??

merci encore 🙂

 

[peper-eliot]

Salut le forum, bonjour tontoncarton

Ce que tu veux faire, c'est une petite base de donnée ? Alors, petit conseil :
-Regarde dans la rubrique 'télécharger' Il y a forcement ce que tu recherches
-Fais également une recherche sur le forum ;-)

Autrement, si tu est pressé :

Option Explicit
Dim WS As Worksheet 'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de ce UserForm
Dim L As Integer 'Variable pour connaitre le numéro de derniere ligne

Et voilà le code pour ajouter ta donnée lorsque tu valides ton Userform
Private Sub CmdAjouter_Click()
Set WS = ThisWorkbook.Sheets("Feuil1") 'On identifie l'objet pour la feuille de travail
L = WS.Range("A65536").End(xlUp).Row + 1 ' On identifie la dernière ligne vide en partant du bas
'ici avec la Feuille WS On écrit dans chaque colonne les valeurs des différents controls :
With WS
.Range("A" & L) = TextBox1 'donnée 1
.Range("B" & L) = TextBox2 'et la suite...


Bon courage

@+ peper-eliot