Données dans userform insertion dans ecxel
Résolu
guyanais
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
guyanais Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
guyanais Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à faire apparaître dans le combobox d'un form une liste provenant d'une colonne d'une feuille excel.
Ensuite avec le choix fait je veux insérer la valeur choisi dans une cellule d'une autre feuille.
Ex: dans Feuil1 j'ai des donnée dans la colonne B4:B20. L'utilisateur ouvre un formulaire FORM1 dans lequel il y doit choisir une des valeurs par le COMBOBOX1. Ensuite en validant le formulaire la donnée choisi va dans la Feuil2 celulle F5.
Voilà cela vous paraît peut-être simple mais j'ai besoin d'un petit coup de main.
Cordialement
Je cherche à faire apparaître dans le combobox d'un form une liste provenant d'une colonne d'une feuille excel.
Ensuite avec le choix fait je veux insérer la valeur choisi dans une cellule d'une autre feuille.
Ex: dans Feuil1 j'ai des donnée dans la colonne B4:B20. L'utilisateur ouvre un formulaire FORM1 dans lequel il y doit choisir une des valeurs par le COMBOBOX1. Ensuite en validant le formulaire la donnée choisi va dans la Feuil2 celulle F5.
Voilà cela vous paraît peut-être simple mais j'ai besoin d'un petit coup de main.
Cordialement
A voir également:
- Données dans userform insertion dans ecxel
- Fuite données maif - Guide
- Touche insertion clavier - Guide
- Insertion sommaire word - Guide
- Insertion filigrane word - Guide
- Insertion liste déroulante excel - Guide
2 réponses
Bonjour,
Je me répond tout seul pour apporter une soluytion au problème.
Pour le chargement de la zone B4:B20 je nomme la plage de données en liste
Private Sub UserForm_Initialize()
ComboBox1.List = Range("liste").Value
End Sub
Puis pour insérer la données de ma liste dans une nouvelle feuille j'insére le code:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("L5") = ComboBox1.Value
End Sub
Voilà ce que j'ai pu trouver ici et là.
Je me répond tout seul pour apporter une soluytion au problème.
Pour le chargement de la zone B4:B20 je nomme la plage de données en liste
Private Sub UserForm_Initialize()
ComboBox1.List = Range("liste").Value
End Sub
Puis pour insérer la données de ma liste dans une nouvelle feuille j'insére le code:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("L5") = ComboBox1.Value
End Sub
Voilà ce que j'ai pu trouver ici et là.