récupérer le contenu d'une textbox

Salut Pichon,

Oui on va t'aider, là je quitte le bureau je repasserai par là plus tard...

@+Thierry

Ok merci pour ton aide précieuse, j'espère avoir été assez précis dans mon énoncé

Bonjour Pichon...

Comme promis... Je t'explique en détail...

Pour cet exemple il te faut un classeur "vierge" avec une "feuil1".
Un Userform "UserForm1" avec une textbox "TextBox1" et un bouton "CommandButton1"...

(çà je pense que jusque là tu suis...)

Dans la feuil1 en "A1" tu tapes ce que tu veux (il faut un libellé sur le heading de colonne, sinon la macro va planter... Enfin non puisqu'on gère l'erreur)

Dans le "Private Module" du UserForm1 tu copies ce code :
Private Sub UserForm_Initialize()
TextBox1.Value = ""
End Sub

Private Sub CommandButton1_Click()
Dim Ligne As Long
Dim Donnee As String

Donnee = TextBox1.Value
Ligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

If Worksheets("Feuil1").Range("A1").Value = "" Then GoTo Sortie1
If Donnee = "" Then GoTo Sortie2

Worksheets("Feuil1").Range("A" & Ligne).Value = Donnee
TextBox1.Value = ""
TextBox1.SetFocus

Exit Sub
Sortie1:
MsgBox "Cellule A1 sans libéllé, indiquez un heading de colonne"
Unload UserForm1
Exit Sub
Sortie2:
MsgBox "Vous n'avez rien saisi", vbCritical, "Invalide"
End Sub

Ensuite tu fais un bouton sur ta feuille1 depuis la barre de d'outil "Contrôles" tu te mets en mode "design" (premier bouton de cette barre d'outil en forme d'équerre bleue)... Tu doubles click sur le bouton....
Dans le module où tu vas être "propulsé" to colles ce code ...

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Voilà si tu fais tout çà, tu auras ton premier UserForm de saisie (basic)... Mais qui fera exactement ce que tu as demandé..."qu'à chaque fois que je rentre un contenu dans la textbox que Excel crée automatiquement une ligne"

Si tu as des questions... N'hésite pas...
Bonne Journée
@+Thierry