Programmation VBA par un débutant.

Version imprimable

14/09/2016, 12h12
xoff60

Programmation VBA par un débutant.

Bonjour,

Actuellement entrain de développer un programme VBA sur Excel pour la gestion de notre cantine, je rencontre quelques problèmessur la fonctionnalité des mes Userform.
En pièce jointe mon fichier à l'état de travail.
Je m'explique sur le fonctionnement, le programme servira pour la préparation de nos plateaux repas.
Pour ce faire chauqe personne devra saisir les informations contenus dans les formulaires par période de 4 semaines donc 4 userform.
Mon problème est que je n'arrive pas à lié certains évenements.
En prenant l'exemple de mon Userform2, toutes les données saisies sont rapatriées dans la feuille "DONNEES". Dans cette userform nous avons checkbox et des optionbuttons.
Je voudrais que lorsque mon checkbox1 "ABSENT" est coché tout les optionbuttons contenu dans la frame soit de valeurs nulles lors du rapratiments dans la feuille "Données".
D'autre part lorsque un personne à déja saisie son menu, il ne puisse pas en recréer un pour la même semaine, j'essais de mettre en relation la valeur combobox1 et label2 en relation avec les colonnes A et B de la feuille "données" et de lui mettre un message comme "MENU DEJA FAIT".
D'autre part quand les chekbox9à13 sont cochés, je voudrais avoir le texte inscrit dans ma cellule où celui ci est rapatrié.
J'éspère être clair dans mes explications.

Je précise que je suis un débutant et que le code déjà écrit, est réalisé avec les quelques connaissances que j'ai.

Merci d'avance aux personnes qui pourraient me consacrer de leur temps.
14/09/2016, 12h39
Igloobel

Bonjour,

voici 2 tutos qui peuvent t'intéresser

http://silkyroad.developpez.com/VBA/UserForm/

http://silkyroad.developpez.com/VBA/ControlesUserForm/

Fais attention pas de pièce jointe sur le premier Post peu de gens les ouvrent

http://www.developpez.net/forums/d32...l-lire-poster/

Bonne journée

A+
14/09/2016, 13h36
Menhir

Une constatation (ce n'est pas une critique, juste une constatation) que j'ai fait sur les débutants utilisant des UserForm c'est que, dans la majorité des cas, le recours à un UserForm est inutile. Plus exactement, ça complique énormément l'application sans apporter une réelle plus-value.

La première question à se poser est donc de prendre un peu de recul sur ton projet et de te demander si le UserForm est réellement utile.
Excel, en natif, possède déjà beaucoup d'outils facilitant la saisie (fonctions, listes déroulantes, validation de données, format de cellules, mise en forme conditionnelle, etc.).
La saisie directe dans la feuille de données n'est-elle pas suffisante ?

Je ne dis pas que ce soit le cas pour toi mais la question vaut bien qu'on prenne le temps que tu te la poses au regard de la simplification que ça peut apporter.
14/09/2016, 13h40
xoff60

Pour Menhir,

Merci de t'interesser à mon sujet.
Pourquoi l'userform, car j'ai deja par le passé mis en place un système avec le l'userform et cela plait beaucoup à ma direction qui souhaite utiliser se principe.
D'autre part nous allons utiliser ce programme sur des bornes informatiques avec écran tactile et dans ce cas cela est plus simple pour la visualisation.

Certe avec de la saisie directement dans les feuilles serait plus simple mais cela ne correpsond pas à la demande.

Bonjour,

Code:

1
2
3
if check1=true then
check2=false
check3=false

14/09/2016, 18h55
xoff60

bonjour rdurupt,

Peux tu m'expliquer le code que tu m'a donné.
15/09/2016, 07h17
Invité

Bonjour,
J'ai juste expliquer que tu peux tester un check box et modifier la valeur d'autres composants.

Vu que je n'ai pas accès aux pièces jointes difficile de voir le code
15/09/2016, 07h28
unparia

Bonjour
- Les explications données ne me permettent pas de savoir avec assurance ce dont il s'agit. Surtout sans voir le code (qui devrait être présenté ici, entre balises code)
-

Citation:

Je voudrais que lorsque mon checkbox1 "ABSENT" est coché tout les optionbuttons contenu dans la frame soit de valeurs nulles lors du rapratiments dans la feuille "Données".
D'autre part lorsque un personne à déja saisie son menu, il ne puisse pas en recréer un pour la même semaine,

Constitue la demande d'aide concernant DEUX difficultés complètement distinctes dans cette discussion. Quelle est la demande prioritaire ?
15/09/2016, 07h37
Invité

Et puis si tu rajoute un option bouton visible=false (valeur par défaut true) dans ta frame il te suffit d'un. Lui donne par programme la valeur True pour désélectionner le autres!

Voici mon code écrit pour le moment.
En pièce jointe une copie d'écran de mon userform afin de comprendre un peu mieux mon problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
Private Sub CommandButton1_Click()
Dim Dcel As Range 'variable qui ira chercher la 1ère cellule vide
Dim i As Integer, verif As Byte
verif = 0
For i = 1 To 3
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
  Next i
For i = 4 To 5
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 6 To 7
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 8 To 9
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
 
For i = 10 To 12
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
  Next i
For i = 13 To 14
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 15 To 16
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 17 To 18
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
 
For i = 19 To 21
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
  Next i
For i = 22 To 23
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 24 To 25
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 26 To 27
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
 
For i = 28 To 30
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
  Next i
For i = 31 To 32
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 33 To 34
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 35 To 36
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
 
For i = 37 To 39
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
  Next i
For i = 40 To 41
  If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 42 To 43
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
For i = 44 To 45
 If Me.Controls("OptionButton" & i) Then verif = verif + 1
Next i
 
If ComboBox1 <> "" Then verif = verif + 1
 
If verif <> 21 Then MsgBox "Vérifier vos saisies": Exit Sub
 
With Sheets("DONNEES")
  Set Dcel = .Range("A" & .Rows.Count).End(xlUp)(2, 1)
End With
Dcel(1, 1) = Label2: Dcel(1, 2) = ComboBox1: Dcel(1, 3) = CheckBox9.Value: Dcel(1, 4) = CheckBox4.Value: Dcel(1, 5) = Frame1.Caption:
Dcel(2, 1) = Label2: Dcel(2, 2) = ComboBox1: Dcel(2, 3) = CheckBox10.Value: Dcel(2, 4) = CheckBox4.Value: Dcel(2, 5) = Frame2.Caption:
Dcel(3, 1) = Label2: Dcel(3, 2) = ComboBox1: Dcel(3, 3) = CheckBox11.Value: Dcel(3, 4) = CheckBox4.Value: Dcel(3, 5) = Frame3.Caption:
Dcel(4, 1) = Label2: Dcel(4, 2) = ComboBox1: Dcel(4, 3) = CheckBox12.Value: Dcel(4, 4) = CheckBox4.Value: Dcel(4, 5) = Frame4.Caption:
Dcel(5, 1) = Label2: Dcel(5, 2) = ComboBox1: Dcel(5, 3) = CheckBox13.Value: Dcel(5, 4) = CheckBox4.Value: Dcel(5, 5) = Frame5.Caption
 
For i = 1 To 3
  If Me.Controls("OptionButton" & i) Then Dcel(1, 6) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 4 To 5
  If Me.Controls("OptionButton" & i) Then Dcel(1, 7) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 6 To 7
  If Me.Controls("OptionButton" & i) Then Dcel(1, 8) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 8 To 9
  If Me.Controls("OptionButton" & i) Then Dcel(1, 9) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 10 To 12
  If Me.Controls("OptionButton" & i) Then Dcel(2, 6) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 13 To 14
  If Me.Controls("OptionButton" & i) Then Dcel(2, 7) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 15 To 16
  If Me.Controls("OptionButton" & i) Then Dcel(2, 8) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 17 To 18
  If Me.Controls("OptionButton" & i) Then Dcel(2, 9) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 19 To 21
  If Me.Controls("OptionButton" & i) Then Dcel(3, 6) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 22 To 23
  If Me.Controls("OptionButton" & i) Then Dcel(3, 7) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 24 To 25
  If Me.Controls("OptionButton" & i) Then Dcel(3, 8) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 26 To 27
  If Me.Controls("OptionButton" & i) Then Dcel(3, 9) = Me.Controls("OptionButton" & i).Caption: Exit For
 
Next i
 
For i = 28 To 30
  If Me.Controls("OptionButton" & i) Then Dcel(4, 6) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 31 To 32
  If Me.Controls("OptionButton" & i) Then Dcel(4, 7) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 33 To 34
  If Me.Controls("OptionButton" & i) Then Dcel(4, 8) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 35 To 36
  If Me.Controls("OptionButton" & i) Then Dcel(4, 9) = Me.Controls("OptionButton" & i).Caption: Exit For
 
Next i
 
For i = 37 To 39
  If Me.Controls("OptionButton" & i) Then Dcel(5, 6) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 40 To 41
  If Me.Controls("OptionButton" & i) Then Dcel(5, 7) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 42 To 43
  If Me.Controls("OptionButton" & i) Then Dcel(5, 8) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
 
For i = 44 To 45
  If Me.Controls("OptionButton" & i) Then Dcel(5, 9) = Me.Controls("OptionButton" & i).Caption: Exit For
 
Next i
End Sub

15/09/2016, 10h41
Menhir
Tu devrais déclarer la variable verif comme Integer et non Byte vue qu'elle n'est pas utiliser pour traiter du code hexa.

Je ne comprends pas pourquoi tu as fait une ribambelle de For To au lieu d'écrire :
Code:

1 2 3 For i = 1 To 45 If Me.Controls("OptionButton" & i) Then verif = verif + 1 Next i
Par contre, par la suite, une boucle aurait été bien pour :
Code:

1 2 3 4 5 6 7 For i=1 To 5 Dcel(i, 1) = Label2 Dcel(i, 2) = ComboBox1 Dcel(i, 3) = CheckBox9.Value Dcel(i, 4) = CheckBox4.Value Dcel(i, 5) = Frame1.Caption Next i
Je te déconseille aussi d'abuser des ":" pour multiplier les instructions sur une même ligne. Ca rend le code moins lisible.

comme je trouvais ton code compliqué a lire j'ai joué du cuter!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub CommandButton1_Click()
Dim Dcel As Range 'variable qui ira chercher la 1ère cellule vide
Dim i As Integer, verif As Byte
verif = 0
verif = 0
For i = 1 To 45
    verif = verif + Me.Controls("OptionButton" & i)
Next i
 verif = Abs(verif)
 
If ComboBox1 <> "" Then verif = verif + 1
 
If verif <> 21 Then MsgBox "Vérifier vos saisies": Exit Sub
 
With Sheets("DONNEES")
  Set Dcel = .Range("A" & .Rows.Count).End(xlUp)(2, 1)
End With
Dcel(1, 1) = Label2: Dcel(1, 2) = ComboBox1: Dcel(1, 3) = CheckBox9.Value: Dcel(1, 4) = CheckBox4.Value: Dcel(1, 5) = Frame1.Caption:
Dcel(2, 1) = Label2: Dcel(2, 2) = ComboBox1: Dcel(2, 3) = CheckBox10.Value: Dcel(2, 4) = CheckBox4.Value: Dcel(2, 5) = Frame2.Caption:
Dcel(3, 1) = Label2: Dcel(3, 2) = ComboBox1: Dcel(3, 3) = CheckBox11.Value: Dcel(3, 4) = CheckBox4.Value: Dcel(3, 5) = Frame3.Caption:
Dcel(4, 1) = Label2: Dcel(4, 2) = ComboBox1: Dcel(4, 3) = CheckBox12.Value: Dcel(4, 4) = CheckBox4.Value: Dcel(4, 5) = Frame4.Caption:
Dcel(5, 1) = Label2: Dcel(5, 2) = ComboBox1: Dcel(5, 3) = CheckBox13.Value: Dcel(5, 4) = CheckBox4.Value: Dcel(5, 5) = Frame5.Caption
 
Dim ic As Boolean
For i = 1 To 45
   Select Case i
            Case 1: x = 1: Y = 6: ic = False
            Case 10 To 11: x = 2: Y = 6: ic = False
            Case 19 To 20: x = 3: Y = 6: ic = False
            Case 35: x = 4: Y = 6: ic = False
            Case 30 To 36
               If ic = True Then Y = Y + 1: ic = False
               If i Mod 2 = 0 Then ic = True
            Case 37: x = 5: Y = 6: ic = False
            Case Else
                If ic = True Then Y = Y + 1: ic = False
                If (i - 1) Mod 2 = 0 Then ic = True
   End Select
   If Me.Controls("OptionButton" & i) Then Dcel(x, Y) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i
End Sub

Edit par contre le exit for n'a lus de reson d'être!

15/09/2016, 11h39
xoff60

Merci pour la "taille au cuter".
Je suis débutant donc c'est vrai que je me complique certainement avec mes quelques connaissances, heureusement que des personnes expérimentées sont là pour m'aider.

Par contre j'ai mis en place le code et je me retrouve avec un message d'erreur (cf. copie d'écran).
15/09/2016, 11h40
Invité

Code:

Dim i As Integer, verif As ineger
15/09/2016, 11h47
Menhir

Citation:

Envoyé par xoff60

Par contre j'ai mis en place le code et je me retrouve avec un message d'erreur (cf. copie d'écran).

La réponse est dans la première ligne de mon message précédent (#12). :roll:
Parfois, on a un peu l'impression que poster des réponses est du temps perdu... :calim2:
15/09/2016, 11h54
xoff60

Merci cela fonctionne maintenant.

donc si je comprend bien concernant le checkbox "ABSENT", tu me conseilles donc de le remplacer par un optionbutton afin de désactiver les autres optionbuttons de la frame.

Citation:

Envoyé par Menhir

La réponse est dans la première ligne de mon message précédent (#12). :roll:
Parfois, on a un peu l'impression que poster des réponses est du temps perdu... :calim2:

Désolé Menhir, je n'avais vu cette partie de ta réponse...
Et pour moi j'essai de comprendre au mieu vos explications donc je passe parfois à coté de certaine chose.

Je serai plus vigilant la prochaine fois.
15/09/2016, 11h59
Invité
Citation:

Envoyé par xoff60

Merci cela fonctionne maintenant.

donc si je comprend bien concernant le checkbox "ABSENT", tu me conseilles donc de le remplacer par un optionbutton afin de désactiver les autres optionbuttons de la frame.

non ça c'était avant (mes lunette) que je revois ton code ça vas décalé tous mes select caise on va te proposer une solution!
Code:

1 2 3 For i = 1 To 45 Me.Controls("OptionButton" & i).Value = False Next

La partie taillée au cuter pour le rapratiement des données ne fonctionne pas.
Je ne récupérèe que la première valeur optionbuttons1 à 3.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim ic As Boolean
For i = 1 To 45
   Select Case i
            Case 1: x = 1: Y = 6: ic = False
            Case 10 To 11: x = 2: Y = 6: ic = False
            Case 19 To 20: x = 3: Y = 6: ic = False
            Case 35: x = 4: Y = 6: ic = False
            Case 30 To 36
               If ic = True Then Y = Y + 1: ic = False
               If i Mod 2 = 0 Then ic = True
            Case 37: x = 5: Y = 6: ic = False
            Case Else
                If ic = True Then Y = Y + 1: ic = False
                If (i - 1) Mod 2 = 0 Then ic = True
   End Select
   If Me.Controls("OptionButton" & i) Then Dcel(x, Y) = Me.Controls("OptionButton" & i).Caption: Exit For
Next i

le fichierPièce jointe 220355

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim ic As Boolean
For i = 1 To 45
   Select Case i
            Case 1: x = 1: Y = 6: ic = False
            Case 10 To 11: x = 2: Y = 6: ic = False
            Case 19 To 20: x = 3: Y = 6: ic = False
            Case 35: x = 4: Y = 6: ic = False
            Case 30 To 36
               If ic = True Then Y = Y + 1: ic = False
               If i Mod 2 = 0 Then ic = True
            Case 37: x = 5: Y = 6: ic = False
            Case Else
                If ic = True Then Y = Y + 1: ic = False
                If (i - 1) Mod 2 = 0 Then ic = True
   End Select
   If Me.Controls("OptionButton" & i) Then Dcel(x, Y) = Me.Controls("OptionButton" & i).Caption
Next i

15/09/2016, 15h53
xoff60

Je me retrouve en décallé dans l'importation de mes données.
27/09/2016, 12h07
xoff60

bonjour,

J'ai continué à chercher pourquoi, mes données se décaler lors du rapatriement mais je ne trouve pas la solution....:(:(
si quelqu'un peut m'aider.
27/09/2016, 14h00
Menhir

Dans la mesure où tu n'indiques pas quel code tu as utilisé pour obtenir ce résultat, je ne vois pas trop comment il serait possible de t'aider.

Par curiosité, comment as-tu cherché ?
Tu as pensé à consulté de contenu des variables ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim ic As Boolean
For i = 1 To 45
   Select Case i
            Case 1: x = 1: Y = 6: ic = False
            Case 10 To 11: x = 2: Y = 6: ic = False
            Case 19 To 20: x = 3: Y = 6: ic = False
            Case 35: x = 4: Y = 6: ic = False
            Case 30 To 36
               If ic = True Then Y = Y + 1: ic = False
               If i Mod 2 = 0 Then ic = True
            Case 37: x = 5: Y = 6: ic = False
            Case Else
                If ic = True Then Y = Y + 1: ic = False
                If (i - 1) Mod 2 = 0 Then ic = True
   End Select
   If Me.Controls("OptionButton" & i) Then Dcel(x, Y) = Me.Controls("OptionButton" & i).Caption
Next i

Voici le code qui me décalle mes cellules, je l'ai déjà cité plus haut dans la discussion et mis aussi une copie d'écran du problème rencontré.

J'ai cherchant en essayant de comprendre le code et les résultats obtenus malheureusement avec mes connaissances limitées je suis dans le brouillard.

D'ailleurs sur les codes serait-il possible de mettre les commentaires expliquant les actions.

27/09/2016, 14h59
Menhir

Tu ne réponds pas à la question : as-tu pris la peine de consulter le contenu des variables ?
27/09/2016, 15h34
xoff60

Peux tu m'expliquer ce que tu entends par contenu des variables.
Je ne demande qu'a apprendre.
27/09/2016, 16h24
Menhir

Les variables sont comme des boites étiquetées dans lesquelles ont peut mettre... des choses, selon le type de variables.
Dans les variables Integer, Double, Real, etc. on met des valeurs.
Dans les variables String on met du texte.
Dans les variables Range, on mets des références de cellule.
Etc.

Ce contenu change au cours de l'exécution du programme.

Il est possible de le consulter de plusieurs façons.
En regardant dans le fenêtre des Variables locales.
En faisant s'afficher dans la fenêtre d'exécution avec des Debug.Print
En faisant s'afficher dans des fenêtre message avec des Msgbox.
Etc.

Une des première choses à faire quand quelque chose va de travers est d'aller regarder le contenu des variables concernées, éventuellement en faisant tourner le programme en pas-à-pas pour avoir le temps de le faire.