plusieurs checkbox qui composent un if

Version imprimable

18/10/2013, 21h37
Anaxagore

plusieurs checkbox qui composent un if

Bonsoir,

Apres quelques jours de recherche sur le net et les 27 pages ici concernant les question sur le checkbox, je me décide a poster mon probleme.

Dans un userform, je crée dynamiquement 4 checkbox et j'affecte en caption la valeur provenant d'un tableau. Ces valeurs sont en fait des options pour selectionner des données qui se trouvent dans un autre tableau

Donc c'est l'équivalent d'un IF .... = caption de le checkbox (si elle est cochée) or .....or .... then ....

Pou le moment et pour parvenir a resultat très mediocre, je récupéré l'ensemble des valeurs dans un tableau. Puis je boucle sur ce tableau et enfin un if avec une seule condition. C'est très loin de fonctionner convenablement.

Ma question : y a-t-il un moyen de constituer la forme conditionnelle du If via un variable. J'ai essayer de construire la condition avec un string mais quand je fais : If [ma variable string] then.... il n'aime pas du tout.

Vu le nombre de checkbox, ca devient très compliqué.

Je vous remercie par avance pour votre analyse et l'aide que vous pouvez m'apporter.

Anax

Bonjour, regarde ça

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
Private Sub Test()
Dim VarIf As Integer
VarIf = 0
VarIf = VarIf + (1 * Abs(Check1.Value))
VarIf = VarIf + (2 * Abs(CheCk2.Value))
VarIf = VarIf + (4 * Abs(Check3.Value))
VarIf = VarIf + (8 * Abs(Check4.Value))
Select Case VarIf
    Case 0
        'Pas de check
    Case 1
        'Check 1
    Case 2
        'Check 2
    Case 3
        'Check 1 & 2
    Case 4
        'Check 3
    Case 5
        'Check 3 & 1
    Case 6
        'Check 3 & 2
    Case 7
        'Check 3 & 2 & 1
    Case 8
        'Check 4
    Case 9
        'Check 4 & 1
    Case 10
    Case 11
    Case 12
    Case 13
    Case 14
    Case 15
    Case Else
 
End Select
End Sub

Code:

1
2
3
4
5
6
7
8
Sub tes2()
Dim I As Long
For I = 1 To 4
    If Me.Controls("Check" & I).Value = True Then
    'Code
    End If
Next
End Sub

18/10/2013, 22h45
Anaxagore
Bonsoir,

Je ne comprends pas la réponse que tu m'as faite.
Je comprends comment utiliser le Select Case.
J'aurais voulu savoir s'il etait possible de constituer quelque chose comme cela
Code:

1 2 3 4 5 6 7 8 VarIf = "Valeur = " & checkbox1.caption & " or " valeur = " & checkbox2.caption If VarIf then .... End if
Je n'ai pas réussi a constituer le VarIf et je ne sais pas si c'est possible d'ailleurs.

Merci en tout cas pour ta réponse si rapide

Anax

Code:

1
2
3
4
5
6
7
8
je fais un test binaire:
B0 = 1 ou 0
B1 = 2 ou 0
B2 = 4 ou 0
B3 = 8 ou 0
B0 + B1 + B2 + B3=15
D'où le select case VarIf qui est un if imbrique.
si nom tu as la deuxième solution.

J'utilise actuellement la 2eme solution et comme j'ai environ 8 frame conposé de 4 a 10 checkbox, j'ai bcp de
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 for i = .... for j = ... for k = ... if valeur = tableau(i) then if valeur = tableau(j) then if valeur = tableau(k) then .... end if end if end if next k nexy j next i
J'aurais espéré trouver un moyen bcp plus simple et surtout plus lisible que de l'imbrication de for et if

Encore merci pour ta réponse

Anax

18/10/2013, 23h17
Invité

j'espère que je pourrais mieux t'aider si je comprenais comment et pourquoi tu génère des frames et des checks et quel en est la finalité.
19/10/2013, 09h12
Anaxagore

Bonjour,

Alors voila ce que je suis en train de réaliser.

J'ai une connexion à un sharpoint avec pleins de données. Je collecte l'ensemble des champs qui m'interessent dans un tableau de départ.
Depuis ce tableau, je mets en forme un USerform. J'ai actuellement 4 frames et les checkbox qui sont a l'intérieur sont crées dynamiquement.
Le frames sont en gros : Les années dispo, les Personnes référécencées, Un type de contenu, Budgété ou non. Chaque Frame contient un nombre X de checkbox qui sont les différentes solutions possibles.
Dans ce frame, j'ai aussi 3 treeview qui sont dynamiquement modifiés sur un événement d'un seul frame pour le moment (Année) afin d'ajuster leur contenu à l'année ou aux années sélectionnées. Ce treeview sont aussi pourvu de checkbox

La finalité est la restitution d'un ou plusieurs tableau Excel basée sur le tableau de collecte du départ. Sachant que je ne dois sélectionner que les données correspondant au checkbox dont la valeur = True. ceci fait un grand nombre de conditions et j'avoue que je commence à avoir un peu de mal à lire mon code au travers des nombreuses boucles et If Then que je suis obligé de mettre.
J'avoue que je passe même de plus en plus de temps à trouver le bon endroit pour placer les prochains "filtres"

C'est pour cela que j'aurais espéré trouver un moyen de concevoir la condition d'un IF avec une seule variable car si je prends ma frame année et que plusieurs checkbox sont sélectionnés, cela équivaux à un If [Donnée tableau Origine] = [caption de la checkbox1] or [Donnée tableau Origine] = [caption de la checkbox2] or [Donnée tableau Origine] = [caption des la checkbox3] then... sachant que je fais un check sur tous les controles de la frame et je mets dans un tableau que les caption des checkbox dont la valeur est true

J’espère ne pas avoir été trop confus dans mes explications (tjrs comme cela quand on a le nez dedans)

Encore merci pour ton temps

Anax

Bonjour, test ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Sub test()
Dim frm As Integer
For frm = 0 To Me.Controls.Count - 1
Debug.Print TypeName(Me.Controls(frm))
If TypeName(Me.Controls(frm)) = "Frame" Then Debug.Print FiltreFrame(Me.Controls(frm).Caption, Me.Controls(frm))
Next
End Sub
 
 
Function FiltreFrame(Valeur As String, Fram As Frame) As String
Dim chk As Integer
Dim Txt As String
For chk = 0 To Fram.Controls.Count - 1
   Debug.Print TypeName(Fram.Controls(chk))
   If TypeName(Fram.Controls(chk)) = "CheckBox" Then
        If Fram.Controls(chk).Value = True Then Txt = Txt & Valeur & " = " & Fram.Controls(chk).Caption & " or "
   End If
Next
If Right(Txt, Len(" or ")) = " or " Then Txt = Left(Txt, Len(Txt) - Len(" or "))
FiltreFrame = " (" & Txt & ") "
If Trim(Txt) = "" Then FiltreFrame = ""
End Function

19/10/2013, 14h58
Anaxagore

Merci bcp pour cette fonction :)
Par contre tu composes ton if ... then comment?

Merci encore pour tes réponses :)

Anax
20/10/2013, 14h12
Invité
bonjour,
Dans la sub test, je scanne tous les contrôles du UserForm.
si un des contrôle est une frame, je la passe a ma fonction:

Code:

If TypeName(Me.Controls(frm)) = "Frame" Then Debug.Print FiltreFrame(Me.Controls(frm).Caption, Me.Controls(frm))

dans la fonction FiltreFrame je scanne tous les contrôles:

Code:

For chk = 0 To Fram.Controls.Count - 1

si un contrôle est un CheckBox je test si il est à true:
Code:

1 2 3 4 If TypeName(Fram.Controls(chk)) = "CheckBox" Then If Fram.Controls(chk).Value = True Then Txt = Txt & Valeur & " = " & Fram.Controls(chk).Caption & " or " End If Next
et là je concatène la valeur du CheckBox précédant avec le CheckBox actuel.
20/10/2013, 15h15
Anaxagore

Bonjour,

Merci pour tes explications :) j'avais correctement analyser ce que tu avais posté.
Par contre comment tu places le résultat de ta fonction (qui est une string) en tant que condition ? car j'avais essayé quelque chose de moins sofistiqué et je n'avais pas réussi a faire Cela : If [Variable String] then...

En tout cas merci pour ton bout de code qui me donne pleins d'idée :) et de même pour tes réponses et ton temps passé à m'aider.

Anax
20/10/2013, 15h55
Invité

je ne connais pas sharpoint, tu y accèdes par des requêtes? si oui envoies moi un modèle de requête.
20/10/2013, 16h59
Anaxagore
A l'ouverture du fichier excel, je vais récupérer l’ensemble des données dans un tableau afin de pouvoir travailler avec plus facilement et plus rapidement aussi que de faire des requêtes sur le sharepoint systématiquement.

Donc en gros ca va faire :
Code:

1 2 3 4 5 For i = 1 to Ubound(Tableau) If Tableau(i,15) = [Condition 1] or Tableau(i,15) = [Condition 2] then ... End if
C'est cette partie :

Citation:

Tableau(i,15) = [Condition 1] or Tableau(i,15) = [Condition 2]

que je n'arrive pas à faire :(

J'ai essayer avec une string pour le faire mais le If [Variable en string] then n'a pas l'air de fonctionner

Anax
20/10/2013, 17h04
Invité

ça j'ai bien compris c'est ce que tu fais du résultat qui m'intéresse.

le résultat de l'ensemble de ces tri est une feuille excel avec une mise en forme etc... ca me permet d'automatiser des reporting

Voici le code que j'ai composé jusqu'a present :

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
 
        For Year = 1 To UBound(Annee_Selected)
              For Entity = 1 To UBound(Entities_Selected)
                    Entity_Splited = Split(Entities_Selected(Entity), ",")
                    For LineOfTab = 0 To UBound(Tab_Data_Projets, 1)
                        For TypeP = 1 To UBound(Type_Selected)
                            For Budget = 1 To UBound(Budget_Selected)
                                'Affiche que les Années selectionnées par les checkboxes
                                If Annee_Selected(Year) = Tab_Data_Projets(LineOfTab, 3) Then
                                    'Affiche que les lignes appartenant aux clients selectionnées dans le treeview
                                    If UCase(Tab_Data_Projets(LineOfTab, 15)) Like "*" & Client & "*" Then
                                        'Tri par Entités du client selectionnées dans le treeview
                                        If Entity_Splited(0) = Tab_Data_Projets(LineOfTab, 15) Then
                                            'Tri par type de contenu
                                            If Tab_Data_Projets(LineOfTab, 6) = Type_Selected(TypeP) Then
                                                If Tab_Data_Projets(LineOfTab, 11) = Budget_Selected(Budget) Then
                                                    LineNum = LineNum + 1
                                                    Sheets(TabName).Cells(LineNum, 1).Value = Tab_Data_Projets(LineOfTab, 3)
                                                    Sheets(TabName).Cells(LineNum, 2).Value = Entity_Splited(1)
                                                    Sheets(TabName).Cells(LineNum, 3).Value = Tab_Data_Projets(LineOfTab, 1)
                                                    Sheets(TabName).Cells(LineNum, 4).Value = Tab_Data_Projets(LineOfTab, 4)
                                                    Sheets(TabName).Cells(LineNum, 5).Value = Tab_Data_Projets(LineOfTab, 7)
                                                    Sheets(TabName).Cells(LineNum, 6).Value = Tab_Data_Projets(LineOfTab, 13)
                                                    Sheets(TabName).Cells(LineNum, 7).Value = Tab_Data_Projets(LineOfTab, 20)
                                                    If Tab_Data_Projets(LineOfTab, 21) <> "" Then
                                                        Sheets(TabName).Cells(LineNum, 8).Value = Tab_Data_Projets(LineOfTab, 21) * 100 & "%"
                                                    End If
                                                    If Tab_Data_Projets(LineOfTab, 35) <> "" Then
                                                        Sheets(TabName).Cells(LineNum, 9).Value = CInt(Tab_Data_Projets(LineOfTab, 35))
                                                    End If
                                                    If Tab_Data_Projets(LineOfTab, 36) <> "" Then
                                                        Sheets(TabName).Cells(LineNum, 10).Value = CInt(Tab_Data_Projets(LineOfTab, 36))
                                                    End If
                                                    If Tab_Data_Projets(LineOfTab, 37) <> "" Then
                                                        Sheets(TabName).Cells(LineNum, 11).Value = CInt(Tab_Data_Projets(LineOfTab, 37))
                                                    End If
                                                    If Tab_Data_Projets(LineOfTab, 36) <> "" And Tab_Data_Projets(LineOfTab, 37) <> "" And Sheets(TabName).Cells(LineNum, 10).Value <> 0 Then
                                                            Sheets(TabName).Cells(LineNum, 12).Value = CInt(Tab_Data_Projets(LineOfTab, 37)) / CInt(Tab_Data_Projets(LineOfTab, 36))
                                                            Sheets(TabName).Cells(LineNum, 12).NumberFormat = "0%"
                                                    End If
                                                    Sheets(TabName).Cells(LineNum, 13).Value = Tab_Data_Projets(LineOfTab, 45)
                                                    Sheets(TabName).Cells(LineNum, 14).Value = Tab_Data_Projets(LineOfTab, 46)
                                                    Sheets(TabName).Cells(LineNum, 15).Value = Tab_Data_Projets(LineOfTab, 47)
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            Next Budget
                        Next TypeP
                    Next LineOfTab
                Next Entity
            LineNum = LineNum + 2
        Next Year

je ne sais pas si cela pourra t'aider à comprendre mieux ce que j'essaye de faire ou de simplifier :( (car j'ai encore 3 conditions à y inclure) :cry:

Merci encore pour ton temps

Anax

Partant de ce que tu as expliqué, j'ai concecu rapidement cela :

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
 
    For i = 0 To UBound(Tab_Data_Projets, 1)
        If CompoCondition(Tab_Data_Projets(LineOfTab, 3), _
            Tab_Data_Projets(LineOfTab, 15), _
            Tab_Data_Projets(LineOfTab, 6), _
            Tab_Data_Projets(LineOfTab, 11), _
            Tab_Data_Projets(LineOfTab, 11), _
            Tab_Data_Projets(LineOfTab, 11)) = True _
            Then
            ResultBoard(Client, i, 0) = Tab_Data_Projets(LineOfTab, 3)
            If InStr(Tab_Data_Projets(LineOfTab, 15), "/") <> 0 Then
                Entity_Splited = Split(Tab_Data_Projets(LineOfTab, 15), "/")
                ResultBoard(Client, i, 1) = Entity_Splited(1)
            Else
                ResultBoard(Client, i, 1) = Tab_Data_Projets(LineOfTab, 15)
            End If
            ResultBoard(Client, i, 2) = Tab_Data_Projets(LineOfTab, 1)
            ResultBoard(Client, i, 3) = Tab_Data_Projets(LineOfTab, 4)
            ResultBoard(Client, i, 4) = Tab_Data_Projets(LineOfTab, 7)
            ResultBoard(Client, i, 5) = Tab_Data_Projets(LineOfTab, 13)
            ResultBoard(Client, i, 6) = Tab_Data_Projets(LineOfTab, 20)
            If Tab_Data_Projets(LineOfTab, 21) <> "" Then _
                ResultBoard(Client, i, 7) = Tab_Data_Projets(LineOfTab, 21) * 100 & "%"
            If Tab_Data_Projets(LineOfTab, 35) <> "" Then _
                ResultBoard(Client, i, 8) = CInt(Tab_Data_Projets(LineOfTab, 35))
            If Tab_Data_Projets(LineOfTab, 36) <> "" Then _
                ResultBoard(Client, i, 9) = CInt(Tab_Data_Projets(LineOfTab, 36))
            If Tab_Data_Projets(LineOfTab, 37) <> "" Then _
                ResultBoard(Client, i, 10) = CInt(Tab_Data_Projets(LineOfTab, 37))
            If Tab_Data_Projets(LineOfTab, 36) <> "" And Tab_Data_Projets(LineOfTab, 37) <> "" And Sheets(TabName).Cells(LineNum, 10).Value <> 0 Then
                ResultBoard(Client, i, 11) = CInt(Tab_Data_Projets(LineOfTab, 37)) / CInt(Tab_Data_Projets(LineOfTab, 36))
            End If
            ResultBoard(Client, i, 12) = Tab_Data_Projets(LineOfTab, 45)
            ResultBoard(Client, i, 13) = Tab_Data_Projets(LineOfTab, 46)
            ResultBoard(Client, i, 14) = Tab_Data_Projets(LineOfTab, 47)
        End If
    Next i

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
 
Private Function CompoCondition(Year As String, Entity As String, TypeProject As String, Budget As String, Contenu As String, ProjectStatus As String) As Boolean
 
    Dim i As Byte
    Dim chk As Integer
    Dim txt As String
    Dim ConditionYear, _
        ConditionEntity, _
        ConditionType, _
        ConditionBudget, _
        ConditionContenu, _
        ConditionStatus As Boolean
 
    For i = 1 To UBound(Annee_Selected)
        If Year = Annee_Selected(i) Then ConditionYear = True
    Next i
    For i = 1 To UBound(Entities_Selected)
          Entity_Splited = Split(Entities_Selected(i), ",")
          If Entity = Entity_Splited(0) Then ConditionEntity = True
    Next i
    For i = 1 To UBound(Type_Selected)
        If TypeProject = Type_Selected(i) Then ConditionType = True
    Next i
    For i = 1 To UBound(Contenu_Selected)
        'Debug.Print UBound(Contenu_Selected), Contenu_Selected(i), Contenu
        Select Case Contenu_Selected(i)
            Case "Portfolio"
                If Not Contenu Like "*SR2*" Then ConditionContenu = True
            Case "SR2"
                If Contenu Like "*SR2*" Then ConditionContenu = True
        End Select
    Next i
    For i = 1 To UBound(Budget_Selected)
        If Budget = Budget_Selected(i) Then ConditionBudget = True
    Next i
    For i = 1 To UBound(Project_Status_Selected)
        If ProjectStatus = Project_Status_Selected(i) Then ConditionStatus = True
    Next i
 
    If ConditionYear = True And _
        ConditionEntity = True And _
        ConditionType = True And _
        ConditionBudget = True And _
        ConditionStatus = True _
        Then CompoCondition = True
End Function

je dois encore bosser sur la foncton je pense mais je ne sais pas si je vais dnas le bon sens. Pour le moment ca fonctionne plutot bien

Anax