Excel VBA copier la valeur d'une textbox [Fermé]

Adaimar - 15 nov. 2007 à 09:22 - Dernière réponse : Chriscam8786 19 Messages postés mercredi 3 octobre 2007Date d'inscription 18 mars 2008 Dernière intervention
- 18 mars 2008 à 17:19
Bonjour, j'ai un petit problème avec excel et VBA.

J'aimerai connaître la commande qui permet de copier la valeur d'une textbox (dans un userform) pour pouvoir l'utiliser avec VBA.


Merci.
A+
Afficher la suite 

6 réponses

Chriscam8786 19 Messages postés mercredi 3 octobre 2007Date d'inscription 18 mars 2008 Dernière intervention - 25 févr. 2008 à 15:45
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
Chriscam8786 19 Messages postés mercredi 3 octobre 2007Date d'inscription 18 mars 2008 Dernière intervention - 25 févr. 2008 à 16:51
+1
Utile
1
Ne cherchez plus, j'ai fini par y parvenir avec cette commande

IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1

Merci à tous
Cette réponse vous a-t-elle aidé ?  
Chriscam8786 19 Messages postés mercredi 3 octobre 2007Date d'inscription 18 mars 2008 Dernière intervention - 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
ShaBoo 396 Messages postés mercredi 12 septembre 2007Date d'inscription 5 septembre 2009 Dernière intervention - 15 nov. 2007 à 09:43
0
Utile
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 :

NomDeTaUserForm.NomDeTaTextBox 


te renvoie la valeur de ta TextBox
0
Utile
1
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.
ShaBoo 396 Messages postés mercredi 12 septembre 2007Date d'inscription 5 septembre 2009 Dernière intervention - 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 :

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)