Discussion :

[tom_the_cat]

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:




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 :

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

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.

[Krovax]

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 :

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

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 :

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

1
2
3
OptionButton1                 OptionButton3
 
OptionButton2                 OptionButton4

[tom_the_cat]

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 :

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

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?

[tom_the_cat]

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

[Krovax]

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 :

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

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.

[tom_the_cat]

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