Excel VBA copier la valeur d'une textbox
Fermé
Adaimar
-
15 nov. 2007 à 09:22
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 - 18 mars 2008 à 17:19
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 - 18 mars 2008 à 17:19
A voir également:
- Excel VBA copier la valeur d'une textbox
- Liste déroulante excel - Guide
- Copier une vidéo youtube - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
4 réponses
Chriscam8786
Messages postés
19
Date d'inscription
mercredi 3 octobre 2007
Statut
Membre
Dernière intervention
18 mars 2008
8
25 févr. 2008 à 15:45
25 févr. 2008 à 15:45
Bonjour,
Dans un registre différent, je souhaiterai pouvoir alimenter les différentes cellules d'une feuille avec le contenu des textbox d'un userform.
Est-ce possible (je pense que oui) mais par quel miracle?
Exemple : une textbox contenant la raison sociale alimenterait automatiquement (après avoir cliqué sur le commandbutton "valider") une cellule déterminée (de préférence en créant une nouvelle ligne dans la fameuse feuille).
D'avance merci,
Chris
Dans un registre différent, je souhaiterai pouvoir alimenter les différentes cellules d'une feuille avec le contenu des textbox d'un userform.
Est-ce possible (je pense que oui) mais par quel miracle?
Exemple : une textbox contenant la raison sociale alimenterait automatiquement (après avoir cliqué sur le commandbutton "valider") une cellule déterminée (de préférence en créant une nouvelle ligne dans la fameuse feuille).
D'avance merci,
Chris
Chriscam8786
Messages postés
19
Date d'inscription
mercredi 3 octobre 2007
Statut
Membre
Dernière intervention
18 mars 2008
8
25 févr. 2008 à 16:51
25 févr. 2008 à 16:51
Ne cherchez plus, j'ai fini par y parvenir avec cette commande
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Merci à tous
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Merci à tous
Chriscam8786
Messages postés
19
Date d'inscription
mercredi 3 octobre 2007
Statut
Membre
Dernière intervention
18 mars 2008
8
18 mars 2008 à 17:19
18 mars 2008 à 17:19
Bonjour,
Je m'aperçois que j'ai posté une énormité !
Le bon code pour alimenter automatiquement les cellules d'une feuille excel depuis les combobox d'un userform ressemble plutôt à ça :
Private Sub CommandButton1_Click()
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Dim Lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("Feuil1").Cells(Lg, "A").Value = Userform1.ComboBox1.Value
Sheets("Feuil1").Cells(Lg, "F").Value = Userform1.TextBox1.Value
End Sub
Cette commande permet également d'ajouter lesdites informations dans la dernière ligne vide de la feuil1
Bon courage,
Moi? je VBA bien
Je m'aperçois que j'ai posté une énormité !
Le bon code pour alimenter automatiquement les cellules d'une feuille excel depuis les combobox d'un userform ressemble plutôt à ça :
Private Sub CommandButton1_Click()
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Dim Lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("Feuil1").Cells(Lg, "A").Value = Userform1.ComboBox1.Value
Sheets("Feuil1").Cells(Lg, "F").Value = Userform1.TextBox1.Value
End Sub
Cette commande permet également d'ajouter lesdites informations dans la dernière ligne vide de la feuil1
Bon courage,
Moi? je VBA bien
ShaBoo
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
5 septembre 2009
50
15 nov. 2007 à 09:43
15 nov. 2007 à 09:43
Bonjour,
Je ne comprend pas trop ta demande. Tu veux stocker la valeur de ta textbox dans une variable ? La copier à un autre endroit ?
Sinon :
te renvoie la valeur de ta TextBox
Je ne comprend pas trop ta demande. Tu veux stocker la valeur de ta textbox dans une variable ? La copier à un autre endroit ?
Sinon :
NomDeTaUserForm.NomDeTaTextBox
te renvoie la valeur de ta TextBox
Je veux copier la valeur de la textbox pour 2 choses(j'ai donc 2 textbox) :
- Tester si cette valeur est bien une date
- Prendre la valeur qui se trouve dans cette texbox pour ouvrir un fichier
J'espère que c'est plus clair maintenant.
- Tester si cette valeur est bien une date
- Prendre la valeur qui se trouve dans cette texbox pour ouvrir un fichier
J'espère que c'est plus clair maintenant.
ShaBoo
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
5 septembre 2009
50
15 nov. 2007 à 10:33
15 nov. 2007 à 10:33
IsDate(NomDeTaUserForm.NomDeTaTextBox) => test la valeur de ta textbox pour voir si c'est une date.
Tu peux construire le chemin pour l'acces à ton fichier de cette façon :
Attention : si ton ton chemin comporte des espaces, il faudra lui affecter des doubles quotes.
Tu peux construire le chemin pour l'acces à ton fichier de cette façon :
Dim sPath As String sPath = "C:\Temp\" sPath = sPath & NomDeTaUserForm.NomDeTaTextBox
Attention : si ton ton chemin comporte des espaces, il faudra lui affecter des doubles quotes.
sPath = "C:\Documents and Settings\" sPath = Chr(34) & sPath & NomDeTaUserForm.NomDeTaTextBox Chr(34)
