VBA User From

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.

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 ?

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

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...

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..

Dans le code de ton Userform, tu mets

Code:

---

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.

Okay merci

ça ne marcher pas mais j'ai trouvé merci comme même.

Code:

---

1 2 3

Private Sub CommandButton1_Click() If OptionButton1 = True Then Sheets("Feuil1").Range("i5").Value = Nord End Sub ()

---

Jai un autre problème c'est que mon numéro auto ne veux s'affiche dans la feuille active et pas en feuil1

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Activate()   TextBox14.Text = Val(Range("H3")) + 1   Range("H3").Value = Val(TextBox14)   End Sub

---

Si tu veux écrire dans une feuille qui n'est pas celle active, tu dois la nommer explicitement

Code:

---

1 2	TextBox14.Text = Val(Sheets("Feuil1").Range("H3")) + 1 Sheets("Feuil1").Range("H3").Value = Val(TextBox14)

---

Merci super ca marche :D:D