Enregistrement du contenu d'un UserForm dans une feuille vierge

Bonjour tout le monde. Je veux créer une base de données et je veux utiliser un UserForm pour cette opération. Je suis bloqué sur le paramétrage du bouton "Ajouter". Je ne sais pas quel code utiliser pour récupérer le contenu du UserForm afin de le stocker dans une feuille vierge. S'il vous plaît pourriez-vous m'aider ? Merci.

Bonjour,

Pour récupérer le contenu d'un textbox1 du USF dans la cellule A2 de la feuille active par exemple :

Range("A2") = Me.TextBox1

S'il vous faut plus d'informations merci de préciser EXACTEMENT le besoin, voir d'y joindre un fichier représentatif et anonymisé avec le résultat attendu.

Cdlt,

Bonjour

Un fichier est TOUJOURS le bienvenu...

Pour avoir la dernière ligne du fichier:

dim dl as long
dl=range("A"&rows.count).end(xlup).row+1 (+1 pour prendre la ligne suivante)
range("A"&dl).value=me.textbox1.value

A+ François

Merci les réponses je vais essayer. Pour plus de précisions, je veux récupérer les données qui se trouve dans :

Textbox 1 pour la cellule a1

Texrbox 2 pour la cellule a2

Textbox 3 pour la cellule a3

Et ainsi de suite.

Bonjour,

Dans ce cas si vous êtes certain des noms des textbox vous pouvez boucler comme suit :

Private Sub CommandButton1_Click()
Dim T%
For T = 1 To 3
    Cells(T, 1) = Me.Controls("TextBox" & T)
Next T
Unload Me
End Sub

Cdlt,

Rechercher des sujets similaires à "enregistrement contenu userform feuille vierge"