![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
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... |
| ANNONCES | |||
|
|
|
|
#4 (permalink) |
|
Guest
Messages: n/a
|
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 |
| ANNONCES | |
| Liens sociaux |
| Outils de la discussion | |
|
|