Récupération valeur combobox
Fermé
SylSSet
-
30 nov. 2010 à 15:37
jimmy1120112 Messages postés 617 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 617 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
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Pièce 2 euros dessin bonhomme valeur ✓ - Forum Loisirs / Divertissements
- Recuperation compte gmail - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
2 réponses
jimmy1120112
Messages postés
617
Date d'inscription
mardi 30 novembre 2010
Statut
Membre
Dernière intervention
7 décembre 2014
61
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
617
Date d'inscription
mardi 30 novembre 2010
Statut
Membre
Dernière intervention
7 décembre 2014
61
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