Créer une combobox puis récupérer l'info Fermé

Question

Bonjour,

Je souhaiterai créer un formulaire pour contrôler que des actions sont faites avant de lancer une procédure. Avec :

2 cases à cocher 
1 combobox avec une liste déroulante de mois (les informations de la liste sont dans la feuille1 en A1:A20)
Je bloque sur la combobox

1) Lors de l'appui sur un bouton dans le formulaire je souhaiterai que le code vérifie que 

a) les deux cases à cocher sont remplies
b) la comboxbox est renseignée.
c) Que la feuille intitulée feuille mois s'appelle MOIS  et le mois sélectionné dans la combobox
d) Que la feuille intitulée feuille période s'appelle PERIODE et le mois sélectionné dans la combobox

Ma demande est peut être trop longue mais je serais déjà content d'avoir des petits bouts de solutions. Cela fait 3 jours que je suis sur ce truc.

Merci pour votre aide

BloodyAngel · Answer

Hello,
tu peux nous envoyer ce que tu as déjà fais ?
Histoire qu'on ne perde pas de temps sur des problèmes que tu as déjà résolus...

BloodyAngel · Answer

Hello,
tu peux nous envoyer ce que tu as déjà fais ?
Histoire qu'on ne perde pas de temps sur des problèmes que tu as déjà résolus...

melanie1324 · Answer

Bonjour,

déjà pour l'initialisation de ta combobox, lorsque tu es sur le code du formulaire, en haut tu as écrit général avec une liste déroulante et choisit formulaire (ou quelque chose qui y ressemble)
à droite, tu as une autre liste déroulante avec quelque chose qui contient initialize formulaire.

Je n'ai pas les mots exacts car je n'ai pas vba chez moi.
Deux lignes sont apprues avec kke chose qui ressemble à sb formulaire_initialize.
entre ces deux lignes, tu mets :
nomCombo.additem "elementcombobox1"
nomCombo.additem "elementcombobox2"
et tu enmets autant que tu veux de valaurs dans ta combobox

Pour le bouton, quand tu es sur le formulaire, cliques dessus et tu as deux lignes qui sont apparues du genre sub button_click, tu mets :
if nomcheckbox1.value = True and nomcheckbox2.value = true and nomcombo.value <>"" and isnumeric(nomcombo.value) then
if nomcombo.value >=1 and nomcombo.value <=12 then
worksheets.add
sheets("Feuil1"). name = "MOIS" & nomcombo.value
worksheets.add
sheets("Feuil2").name = "PERIODE" & nomcombo.value
'si tout est bon mais ce qu'il y a a faire
else
'le mois entré n'est pas compris entre 1 et 12mets ce qu'il convient de faire
end if
else
' au moins une de tes deux cases à cocher ne l'est pas ou le mois entré n'est pas numériquemets ce qu'il convient de faire
end if

j'ai changé un peu ta manière de faire
car lecode tel qu'il est te permet si tout estbin d'ajouter une feuille et de l'appeler mois janvier et d'ajouter une feuille et de l'appeler période janvier.

janvier étant la valeur correspondant à la combobox

si tu as besoin de précisions n'hésite pas

melanie1324 · Answer

RE,

pour la combobo,ce doit etre
sub userform_initialize
nomCombo.additem "elementcombobox1"
nomCombo.additem "elementcombobox2" 
end sub

ou quelque chose qui y ressemble

FRANK · Answer

Merci pour vos réponses mais je me rends compte que je ne suis pas encore prêt à faire cela. 

En effet je n'arrive même pas à mettre en oeuvre les propositions de Mélanie1324, merci à elle d'avoir essayer.

Bloody Angel, je ne sais même pas comment t'envoyer ce que j'ai fait (de toutes façons j'ai tout viré) et je ne pense pas que le principe soit que tu fasses à ma place.

Je vais donc faire un fichier automatiquement "manuel"

Merci néanmoins pour vos tentatives.

Créer une combobox puis récupérer l'info

5 réponses

Discussions similaires