Récupération valeur combobox
Fermé
SylSSet
-
30 nov. 2010 à 15:37
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 - 30 nov. 2010 à 20:25
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 - 30 nov. 2010 à 20:25
A voir également:
- Récupération valeur combobox
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Convertisseur récupération de texte - Guide
- Recuperation compte gmail - Guide
- Valeur ascii - Guide
- Mail facebook code de recuperation ✓ - Forum Facebook
2 réponses
jimmy1120112
Messages postés
619
Date d'inscription
mardi 30 novembre 2010
Statut
Membre
Dernière intervention
7 décembre 2014
54
30 nov. 2010 à 15:58
30 nov. 2010 à 15:58
salut
op op op, pas trop vite.
tu veut récupéré la valeur d'une ComboBox dans un UserForm pour la mettre dans une cellule ?
op op op, pas trop vite.
tu veut récupéré la valeur d'une ComboBox dans un UserForm pour la mettre dans une cellule ?
jimmy1120112
Messages postés
619
Date d'inscription
mardi 30 novembre 2010
Statut
Membre
Dernière intervention
7 décembre 2014
54
Modifié par jimmy1120112 le 30/11/2010 à 20:34
Modifié par jimmy1120112 le 30/11/2010 à 20:34
Alors il faut que dans ta UserForm il y est un bouton qui fait office de validation, tu double clique dessus et tu met se code :
Si tu veut qu'a chaque fois que tu valide un formulaire sa vienne en liste met sa :
Dim Lg As String, i As Long, IntLigne As Long
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("NOM DE TA FEUIL").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("NOM DE TA FEUIL").Cells(Lg, "A").Value = NOM DE TA USERFORM.ComboBox1.Value
Tu peut modifier (Lg, "A") par la colonne que tu veut
Si tu veut que sa vienne remplacer la valeur de la cellule a chaque fois ses sa :
Sheets("NOM DE TA FEUIL").Range("A1").Value = NOM DE TA USERFORM.ComboBox1.Value
MAIS DANS LE BOUTON VALIDER, PAS DANS LA COMBOBOX
Bonne continuation
A+
Cordialement.
Jim
Si tu veut qu'a chaque fois que tu valide un formulaire sa vienne en liste met sa :
Dim Lg As String, i As Long, IntLigne As Long
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("NOM DE TA FEUIL").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("NOM DE TA FEUIL").Cells(Lg, "A").Value = NOM DE TA USERFORM.ComboBox1.Value
Tu peut modifier (Lg, "A") par la colonne que tu veut
Si tu veut que sa vienne remplacer la valeur de la cellule a chaque fois ses sa :
Sheets("NOM DE TA FEUIL").Range("A1").Value = NOM DE TA USERFORM.ComboBox1.Value
MAIS DANS LE BOUTON VALIDER, PAS DANS LA COMBOBOX
Bonne continuation
A+
Cordialement.
Jim
30 nov. 2010 à 19:42
30 nov. 2010 à 20:19