Discussion :

[thomassito]

Bonjour à tous,

Je suis novice en VBA et Macro et j'ai vraiment du mal avec ce langage. Je voudrais savoir comment dans un formulaire Excel mettre une liste déroulante avec plus de 50 choix sans tous les écrire, comment mettre une seul case à chocher parmit plusieur, si ce formulaire remplit pourrais remplir un autre tableau sur une autre feuille et j aimerai aussi comprendre le système de bouton au clique. J'ai visité plusieur mais cela ne cible pas assez ma demande, j'espère avoir été assez explicite et que vous saurez m'éclairer.
Je vous en remercie d'avance. S'il y a des fautes d'otographes veuillez m'excuser.

[parmi]

Bonjour,

Commençons avec la 1e question.
Comment entrer 50 items dans une listbox sans les taper...
Où sont les données que tu veux insérer dans cette listbox ?

[thomassito]

Merci.

Elle est déjà saisie, sur la feuille où je veux créer mon formulaire.

Merci comme même mais j ai réussi. J aimerai pouvoir mettre un numero auto à chaque fois que je vais valider le formulaire, je n 'arrive pas mettre en place mes checkboxs car je veux qu'ells s'affichent avec le petit carré coché ou décoché et j aimerai mettre en place le système suivant 'si la valeur de la combobox1(b5 = "autre" alors affiche dans e5 le label17 sinon ne fais rien. Merci

[parmi]

Si tu veux avoir des réponses, il te faudrait expliquer plus clairement tes problèmes.
On ne connait pas ton fichier et on ne sait pas où sont tes données et tes contrôles...

[thomassito]

Je veux juste savoir s'il y a une formule qui me permet d'afficher les optionbuttons cochés. Je veux que lorsque je coche l' 1 des 4 optionbutton que j ai mis sur mon uzerfrom, l'optionbutton coché s'affiche dans la cellule K5.
ex/ optionbutton1 se nome Nord et lorsque je le coche et que j'appuie sur ma commandbutton1 il affiche en K5 Nord.
Je suis arrivé a affiché son label : Sheets("Feuil1").Range("J5") = Label12 'secteur. Et cocher soit Nord soit Sud soit Est soit Ouest et que ce que jai coché (l'optionbutton) affiche en k5 l'une de ces 4 possibilités. Merci..

[parmi]

Dans le code de ton Userform, tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub OptionButton1_Click()
    Sheets("Feuil1").OptionButton1.Value = Me.OptionButton1.Value
End Sub

Et tu changes les noms des feuilles et boutons selon ce que tu as.