Discussion :

[tmihob]

Bonjour,

Après des recherches en vains, je suis venu vers vous pour demander aide.
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) .
La procédure est la même, pour chaque boutons, comme ci-après :

Code :

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

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 mais, je début en vba et cherche à perfectionner mes codes .

Merci par l'avance de votre aide

[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

[tmihob]

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

[tmihob]

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 . Le grand pas et maintenant de boucler avec les Userforms .

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

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

[Igloobel]

Bonjour,

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

A+

[Invité]

Bonjour,

Code :

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

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

[tmihob]

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.

[Invité]

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 UserForm :

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

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 Module de classe :

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

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

[tmihob]

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

Code :

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

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.

[Invité]

j'ai absolument rien compris!

Code :

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

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

[tmihob]

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 :

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

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 :

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

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

en espérant avoir être plus clair cette fois

[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

[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 :

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

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