Utilsation de mot dans un sub

Version imprimable

04/10/2018, 01h24
prat974

Utilsation de mot dans un sub

Bonsoir,
je suis en train de m'arracher les cheveux (et j'en ai vraiment pas beaucoup à la base...) j'apprends excel en autodidacte et trouve plein d'infos sur votre site qui m'est très utile mais là je bloque.
j'ai un userform qui contient 31 frames contenant chacune 4 checkbox 1 combobox (oui ça fait beaucoup) j'ai commencé à écrire le code mais il ny aurait-il pas un moyen d'automatiser les choses en utilisant for par exemple:

Code:

sub checkboxX ()

for i=X to X (oui le même nombre que je souhaiterai récupérer dans le sub
if me.controls("checkbox"& i)=...then ici peut-on utiliser les caractères du titre du sub pour continuer avec les autres me.controls("checkbox"& i+31).

Je ne sais pas si j'ai été clair

Merci d'avance

bonjour prat974,

j'ai pas trop compris où tu voulais en venir.
mais en espérant que ça t'aide:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Activate()
Dim i As Long
Dim j As Long
    For i = Me.Controls.Count - 1 To 0 Step -1
        'Attention la procédure est sensible à la casse.
        If TypeName(Me.Controls(i)) = "Frame" Then
            For j = Me.Controls(i).Controls.Count - 1 To 0 Step -1
                If TypeName(Me.Controls(i).Controls(j)) = "CheckBox" Then
                    Call MaProcedure(Me.Controls(i).Controls(j))
                ElseIf TypeName(Me.Controls(i).Controls(j)) = "ComboBox" Then
                    Call MaProcedure(Me.Controls(i).Controls(j))
                End If
            Next j
        End If
    Next i
End Sub
 
Sub MaProcedure(MonCtrl As Control)
 
    MsgBox MonCtrl.Name
 
End Sub

04/10/2018, 16h07
prat974

merci

Bonjour, merci pour ta réponse je regarde ça et je te tiens au courant.
Bonne journée;)

essai effectué

en fait voilà mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ComboBox1_Change()  ' j'aimerai récupérer cette chaîne de caractères automatiquement et en récupérer le numéro
Dim i As Integer
For i = 1 To 1 ' pour le mettre ici 
If ComboBox1 <> "" Then
    UserForm1.Controls("CheckBox" & i).Visible = False
    UserForm1.Controls("CheckBox" & i + 31).Visible = False
    UserForm1.Controls("CheckBox" & i + 62).Visible = False
    UserForm1.Controls("CheckBox" & i + 93).Visible = False
    Else
    UserForm1.Controls("CheckBox" & i).Visible = True
    UserForm1.Controls("CheckBox" & i + 31).Visible = True
    UserForm1.Controls("CheckBox" & i + 62).Visible = True
    UserForm1.Controls("CheckBox" & i + 93).Visible = True
    UserForm1.Controls("Combobox" & i) = ""
    End If
    Next
End Sub

Avec ?:

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
Private Sub ComboBox2_Change()
    Call MaProcedureComboBox(Me.ActiveControl.ActiveControl.Name)
End Sub
 
Private Sub ComboBox1_Change()
    Call MaProcedureComboBox(Me.ActiveControl.ActiveControl.Name)
End Sub
 
Sub MaProcedureComboBox(NameCtrl As String)
Dim NbrCBx As Long
Dim i As Long
    NbrCBx = CLng(Right(NameCtrl, Len(NameCtrl) - 8)) ' Ici on récupéré le N° de la ComboBox
    For i = 1 To NbrCBx
        If ComboBox1 <> "" Then
            UserForm1.Controls("CheckBox" & i).Visible = False
            UserForm1.Controls("CheckBox" & i + 31).Visible = False
            UserForm1.Controls("CheckBox" & i + 62).Visible = False
            UserForm1.Controls("CheckBox" & i + 93).Visible = False
        Else
            UserForm1.Controls("CheckBox" & i).Visible = True
            UserForm1.Controls("CheckBox" & i + 31).Visible = True
            UserForm1.Controls("CheckBox" & i + 62).Visible = True
            UserForm1.Controls("CheckBox" & i + 93).Visible = True
            UserForm1.Controls("Combobox" & i) = ""
        End If
    Next
End Sub

petite explication du "Me.ActiveControl.ActiveControl.Name"
1er ActiveControl pour la frame
2eme pour la Combobox

Attention, il faut mettre la propriété Style sur 2 - fmStyleDropDownList pour que l'utilisateur doit choisir une valeur dans la liste.
Sinon tu lanceras le code à chaque caractère tapé.

Après tu peux faire un mixte entre le 1er code que je t'ai donné et celui là, à la condition que les CheckBox et ComboBox en question soit dans le même Frame

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 ComboBox2_Change()
    Call MaProcedureComboBox(Me.ActiveControl)
End Sub
 
 
Private Sub ComboBox1_Change()
    Call MaProcedureComboBox(Me.ActiveControl)
End Sub
 
 
Sub MaProcedureComboBox(MonCtrl As Control)
Dim Rempli As Boolean
Dim i As Long
 
    For i = MonCtrl.Controls.Count - 1 To 0 Step -1 'ici on vérifie si la ComboBox est rempli
        If TypeName(MonCtrl.Controls(i)) = "ComboBox" Then
            If MonCtrl.Controls(i).Value = "" Then
                Rempli = False
            Else
                Rempli = True
            End If
        End If
    Next i
 
    For i = MonCtrl.Controls.Count - 1 To 0 Step -1
        If TypeName(MonCtrl.Controls(i)) = "CheckBox" Then
            If Rempli = True Then
                MonCtrl.Controls(i).Visible = False
            Else
                MonCtrl.Controls(i).Visible = True
            End If
        ElseIf TypeName(MonCtrl.Controls(i)) = "ComboBox" Then
            If Rempli = True Then
                MonCtrl.Controls(i).Visible = True
            Else
                MonCtrl.Controls(i).Visible = False
            End If
        End If
    Next i
 
End Sub

Ce dernière me semble plus judicieux, il permet de mettre/changer des noms à tes Controls

23/10/2018, 09h46
prat974

Merci, désolé pour la réponse tardive.... Il y a encore des choses qui m'échappent mais pour l'instant je mets le projet en attente....