Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives

Advertisement

 
 
LinkBack Outils de la discussion
Vieux 26/11/2002, 19h11   #1 (permalink)
Pichon
Guest
 
Messages: n/a
Par défaut récupérer le contenu d'une textbox

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
Vieux 26/11/2002, 19h52   #2 (permalink)
@+Thierry
Guest
 
Messages: n/a
Par défaut Re: 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
 
Vieux 28/11/2002, 11h27   #3 (permalink)
Pichon
Guest
 
Messages: n/a
Par défaut Re: récupérer le contenu d'une textbox

Ok merci pour ton aide précieuse, j'espère avoir été assez précis dans mon énoncé
 
Vieux 28/11/2002, 12h56   #4 (permalink)
@+Thierry
Guest
 
Messages: n/a
Par défaut Re: récupérer le contenu d'une textbox

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

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 04h16.


(C) 2006 Excel Downloads