récupérer le contenu d'une textbox

[Pichon]

Je désire récupérer le contenu d'une textbox pour l'insérer dans une feuille Excel.
De plus je voudrais qu'a chaque fois que je rentre un contenu dans la textbox que Excel crée automatiquement une ligne.

J'espère que vous pourrez m'aider

Merci d'avance...

 

[@+Thierry]

Salut Pichon,

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

@+Thierry

 

[Pichon]

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

 

[@+Thierry]

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