vba excel - Mettre en variable un groupe de contrôle et des userforms correspondants

Version imprimable

17/05/2015, 09h39
tmihob

vba excel - Mettre en variable un groupe de contrôle et des userforms correspondants
Bonjour,

Après des recherches en vains, je suis venu vers vous pour demander aide8-).
Sur mon userform (usf_1) du genre fenêtre principale, il y a 4 boutons de commande (cmdB_1, cmdB_2, cmdB_3 et cmdB_4) qui sont censés appelés respectivement des userforms spécifiques (usf_2, usf_3, usf_4, usf_5) :aie:.
La procédure est la même, pour chaque boutons, comme ci-après :
Code:

1 2 3 4 5 Private Sub cmdB_1_Click() If checkbox.value = true then ‘ checkbox unique et non visible par l’utilisateur Usf_2.show ‘afficher l’userform correspondants End if End sub
Serait-il possible de mettre en variable les commandeButtons et les userforms correspondants afin de ne faire répéter à chaque fois les mêmes lignes.
Quelqu’un aurait-il une piste ? C’est une question bête de ma part :oops: mais, je début en vba et cherche à perfectionner mes codes .

Merci par l'avance de votre aide
17/05/2015, 11h50
joe.levrai

Bonjour,

la question n'est pas bête, et la solution n'est pas la partie la plus simple en VBA : modules de classe

voici un lien avec 3 tutoriels pour apprendre : http://excel.developpez.com/faq/?pag...ntroductionPOO

et un sous-lien (issu du dernier des trois liens) qui traite de ton sujet : http://tissotemmanuel.developpez.com...classe/#LIII-B
17/05/2015, 12h14
tmihob

Merci pour votre piste joe.levrai.
Je savais que la procédure aura recours à l'utilisation des modules classes :zoubi:, je vais faire un tour dans les liens que vous avez donner et revenir pour confirmer la résolution. (y)

Bonjour, avec un peu de bidouillage j'ai réussi à m'avancer mais pas encore assez pour mon projet.
Les lignes de code ci-après permettent de boucler sur un groupe de bouton :zoubi:. Le grand pas et maintenant de boucler avec les Userforms :aie:.

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
'------ Dans module de classe : cmdusf
Option Explicit
Public WithEvents cmdgroup As CommandButton
Private Sub cmdgroup_Click()
	If usf_1.checkbox.Value = True Then
		If cmdgroup.Caption = "cmdB_1" Then usf_2.Show
		If cmdgroup.Caption = "cmdB_2" Then usf_3.Show
		If cmdgroup.Caption = "cmdB_3" Then usf_4.Show
		If cmdgroup.Caption = "cmdB_4" Then usf_5.Show
	Else
		MsgBox "Veuilez choisir une action", vbInformation, "Choix obliqatoire"
	End If
End Sub
 
'------ Dans l'userform principale : usf_1
Option Explicit
Dim Buttons() As New cmdusf
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim Count As Integer
    For Each Ctrl In usfmain.Controls
        If TypeName(Ctrl) = "CommandButton" Then
            Count = Count + 1
            ReDim Preserve Buttons(1 To Count)
            Set Buttons(Count).cmdgroup = Ctrl
        End If
    Next   
End Sub

Un p'ti coup de pouce sera un bienvenu

:aie: je me suis caché la tête sur une journée toute entière mais j'ai pas trouvé la bonne soluce. On creuse encore et encore... :bug:

18/05/2015, 11h31
Igloobel

Bonjour,

Moi perso j'aurais rendu visible ou invisible les boutons en fonction des besoins

A+

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Buttons() As cmdusf
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim Count As Integer
    For Each Ctrl In usfmain.Controls
        If TypeName(Ctrl) = "CommandButton" Then
            Count = Count + 1
            ReDim Preserve Buttons(1 To Count)
            Set Buttons(Count) = new cmdusf
            Set Buttons(Count).cmdgroup = Ctrl
        End If
    Next   
End Sub

18/05/2015, 13h31
tmihob

Citation:

Envoyé par Igloobel

Bonjour,

Moi perso j'aurais rendu visible ou invisible les boutons en fonction des besoins

A+

Bonjour Igloobel,

Je vais peut être adopter votre proposition pour ce projet pour faire rapide.
N'empêche que ce problème reste sans réponse et un jour.. viendra ...

Mais bon merci pour l'idée.

l'avantage d'un module de classe c'est qu'il est autonome!
vue que tu peux lui passer tous les objets que tu veux inutile de faire référence au If usf_1.checkbox.Value = True Then!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Buttons() As cmdusf
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim Count As Integer
    For Each Ctrl In usfmain.Controls
        If TypeName(Ctrl) = "CommandButton" Then
            Count = Count + 1
            ReDim Preserve Buttons(Count)
            Set Buttons(Count) = New cmdusf
            Set Buttons(Count).cmdgroup = Ctrl
            Set Buttons(Count).MyCheckBox = CheckBox
        End If
    Next
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Public WithEvents cmdgroup As CommandButton
Public WithEvents MyCheckBox As CheckBox
Private Sub cmdgroup_Click()
    If MyCheckBox.Value = True Then
        If cmdgroup.Caption = "cmdB_1" Then usf_2.Show
        If cmdgroup.Caption = "cmdB_2" Then usf_3.Show
        If cmdgroup.Caption = "cmdB_3" Then usf_4.Show
        If cmdgroup.Caption = "cmdB_4" Then usf_5.Show
    Else
        MsgBox "Veuilez choisir une action", vbInformation, "Choix obliqatoire"
    End If
End Sub

boucler sur les userforms en fonction des bouttons cliqués

Bonjour, rdurupt
merci pour votre réponse.
cependant, c'est les userform eux même qui est le sujet du boucle
Code:

1 2 3 4 5 6 7 8 9 'module de class : cmdusf -> '--- If usf_1.checkbox.Value = True Then If cmdgroup.Caption = "cmdB_1" Then usf_2.Show If cmdgroup.Caption = "cmdB_2" Then usf_3.Show If cmdgroup.Caption = "cmdB_3" Then usf_4.Show If cmdgroup.Caption = "cmdB_4" Then usf_5.Show Else '---
le problème était de pouvoir boucler sur les USERFORM (usf_2 à 5) respectivement à chaque clique sur les commandbutton cmdB_1 à 4 que j'ai groupé dans la class cmdgroup.

j'ai absolument rien compris!

Code:

1
2
3
4
5
6
7
8
9
module de class : cmdusf ->
'---
If usf_1.checkbox.Value = True Then
		 usf_2.Show vbModal
		 usf_3.Show vbModal
		 usf_4.Show vbModal
		 usf_5.Show vbModal
	Else
'---

18/05/2015, 15h47
tmihob
:weird: ok rdurupt, je reprend tout depuis le début

Sur usf_1 (une fenetre acceuil), les 4 bouttons (cmdB_1 à 4) doivent appeller leurs userforms respectif (usf_2 à 5).
- au lieu de repeter la même commande
Code:

1 2 3 4 cmdB_1_click() -> verifier conditions (checkbox coché et blabla) + lancement usf_1 .... cmdB_4_click() -> verifier les mêmes condition + lancement usf_2
avec les même conditions, je voudrais passer par le module classe et mettre en variable les cmdB et les usf correspondant pour avoir le genre

Code:

groupcmdB_click() pour verifier conditions + lancement usf correspondant au bouton cliquer

en espérant avoir être plus clair cette fois ;)
18/05/2015, 15h57
Invité

mais ton code le fait déjà If cmdgroup.Caption = "cmdB_1" Then usf_2.Show !
entendons nous bien Caption est ce que le bouton affiche pas sont nom! If cmdgroup.Name= "cmdB_1" Then usf_2.Show
18/05/2015, 16h43
tmihob
oui, le code fonctionne mais pas tout à fait à ce que j'attendais. En effet je voudrais amélioré pour avoir un boucle du genre
Code:

1 2 for i = 1 to Nombre de cmdB cmdgroup.Name = "cmdB_"& i Then usf_(i+1).show 'c'est tout faux mais seulement pour avoir l'idée
Je sais pas si c'est possible de classer les USF