High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Excel VBA copier la valeur d'une textbox

Dernière réponse le 18 mar 2008 à 17:19:40 Adaimar, le 15 nov 2007 à 09:22:34 
 Signaler ce message aux modérateurs

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+

Configuration: Office 2003

Posez votre question Répondre

1

ShaBoo, le 15 nov 2007 à 09:43:28

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

   
Répondre à ShaBoo

2

Adaimar, le 15 nov 2007 à 10:22:30

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.

   
Répondre à Adaimar

3

ShaBoo, le 15 nov 2007 à 10:33:29

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)

   
Répondre à ShaBoo

4

Chriscam8786, le 25 fév 2008 à 15:45:58

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

   
Répondre à Chriscam8786

5

Chriscam8786, le 25 fév 2008 à 16:51:54

Ne cherchez plus, j'ai fini par y parvenir avec cette commande

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

Merci à tous

   
Répondre à Chriscam8786

6

 Chriscam8786, le 18 mar 2008 à 17:19:40

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

   
Répondre à Chriscam8786
Posez votre question Répondre
Ils ont besoin de votre aide