A voir également:
- Excel VBA copier la valeur d'une textbox
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Comment copier une vidéo youtube - Guide
- Word et excel gratuit - Guide
- Comment calculer la moyenne sur excel - Guide
4 réponses
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
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
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
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.
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)