1er pas en UserForm

Bonjour à tous,

Je suis en train de travailler sur un projet pour ma société et j'aimerais pouvoir simplifier l'insertion de données dans une base excel. Je suis donc en train de mettre en place un formulaire de saisi mais je débute en VBA donc il y a des trucs que je ne comprends pas encore. Et pourtant j'ai bouffé des tuto mais bon, je coince quand même.

Grâce aux fameux tutos, j'ai réussi à créer un UserForm et à lui donner la gueule que je voulais. Maintenant ce qui se complique c'est de pouvoir utiliser les données du formulaire.


Pour commencer, voici ce que j'aimerais faire:


http://img13.imageshack.us/img13/4020/sanstitrezv.jpg

Et en fonction de ce qui est coché, ca renvoit à tel ou tel formulaire. Alors je me suis essayé à écrire le code suivant mais ca ne fonctionne pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Suivant_Click()   Dim Planification As Boolean Dim effectives As Boolean Dim Production As Boolean Dim Travailleurs As Boolean Dim ModifDonnees As Boolean   If Planification = True And Production = True Then FormulaireDeSaisieProdPlan.Show If effectives = True And Production = True Then FormulaireDeSaisieProdEff.Show If Planification = True And Travailleurs = True Then FormulaireDeSaisieTravPlan.Show If effectives = True And Travailleurs = True Then FormulaireDeSaisieTravEff.Show     End Sub

---

Est ce que vous pouvez me donner un petit coup de main. Merci mille fois d'avance, ca me débloquerait pour que je puisse poursuivre ensuite la création des formulaires suivants qui seront sur le même modèle.

Bonjour

Un peu (beaucoup) de lecture
http://excel.developpez.com/cours/?page=prog#userform

Pour ton problème il faudrait savoir comment tu as nommé tes optionbuttons (dans les proprité de l'objet la ligne avec le (Name)

en gardant les nom d'origine

Code:

---

1 2 3 4

If OptionButton1= True And OptionButton3= True Then FormulaireDeSaisieProdPlan.Show If OptionButton2 = True And OptionButton3= True Then FormulaireDeSaisieProdEff.Show If OptionButton1= True And OptionButton4= True Then FormulaireDeSaisieTravPlan.Show If OptionButton2= True And OptionButton4= True Then FormulaireDeSaisieTravEff.Show

---

A partant du principe qu'ils s'appelle

Code:

---

1 2 3

OptionButton1 OptionButton3   OptionButton2 OptionButton4

---

Hello Krovax,

Merci pour ton aide et pour le lien. J'avais déjà repéré ces différents tutos et j'en ai imprimé pas mal que je suis en train de potassé. Mais malgré ca, je reste coincé sur mon problème.

Mes OptionButton ont exactement les noms qui sont mentionnés dans le code que j'ai envoyé, c'est bien ca que je trouve bizarre en fait.

J'ai remplacé les intitulés OptionButton1,2,... par des termes qui me parlaient plus pour éviter de faire des erreurs.

Je viens encore de les vérifier, il y avait une faute de frappe pour effectives qui est en fait effectif mais le reste est juste. Donc j'ai ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Suivant_Click()   Dim Planification As Boolean Dim Effectif As Boolean Dim Production As Boolean Dim Travailleurs As Boolean Dim ModifDonnees As Boolean   If Planification = True And Production = True Then FormulaireDeSaisieProdPlan.Show If Effectif = True And Production = True Then FormulaireDeSaisieProdEff.Show If Planification = True And Travailleurs = True Then FormulaireDeSaisieTravPlan.Show If Effectif = True And Travailleurs = True Then FormulaireDeSaisieTravEff.Show   End Sub

---

Mais ca ne marche pas non plus, en cochant mes options et en cliquant sur suivant, rien ne se passe. Est ce que j'ai oublié de faire quelque chose?

Bon alors je viens de changer les intitulés comme tu me le conseillais et maintenant ca fonctionne. Je ne comprends pas puisque si tes intitulés sont cohérents dans le code je pensais qu'on pouvait mettre ce qu'on voulait eh ben non.

Donc c'est tout bon, merci beaucoup :ccool:

Tu peux mettre ce que tu veux (évite les mot protégé) mais dans ce cas ne fait pas de déclaration de variable avec le nom de tes objets
sans le

Code:

---

1 2 3 4 5

Dim Planification As Boolean Dim Effectif As Boolean Dim Production As Boolean Dim Travailleurs As Boolean Dim ModifDonnees As Boolean

---

cela devrait être bon.

Ah ouai en effet. Je pensais qu'il fallait toujours définir quel genre de données allaient être insérées via quel type de formulaire. Ok, j'ai compris. Merci beaucoup ;)

J'attaque la suite :aie:

Il faut définir tes variable mais les boutons sont des objet qui existe déjà puisque dans ton userform. Si tu défini un variable du même nom c'est la variable qui va primer