Variable de type dynamique dans une condition

Version imprimable

Bonsoir à tous,

Je rencontre un problème car j'ai besoin de constituer une variable dynamique en créant une variable message et de placer cette dernière dans une conditionnelle.

Voici mon code :
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 Dim X(1 To 4) n = 1 C = 1 derlg = Feuil2.Range("A65536").End(xlUp).Row For Uv = 1 To 4 Step 1 Tbvard = Me.Controls("combobox" & Uv).Value If Tbvard = "TOUS" Then Cpt = Cpt + 1 End If Next Uv For vi = 2 To derlg Step 1 Message = "" X(1) = "Feuil2.Range" & "(" & """K""" & " " & "&" & " " & vi & ")" & ".Value" X(2) = "Feuil2.Range" & "(" & """D""" & " " & "&" & " " & vi & ")" & ".Value" X(3) = "Feuil2.Range" & "(" & """B""" & " " & "&" & " " & vi & ")" & ".Value" X(4) = "Feuil2.Range" & "(" & """G""" & " " & "&" & " " & vi & ")" & ".Value" For U = 1 To 4 Step 1 Tbvar = Me.Controls("combobox" & U).Value If Tbvar <> "TOUS" Then testo = X(U) Mess = testo & " " & "=" & " " & "Userform7.ComBobox" & U & ".Value" If C < Cpt Then Message = Message & Mess & " " & "And" & " " Else Message = Message & " " & Mess End If C = C + 1 End If Next U If Message Then ' déroulement du code ' déroulement du code ' déroulement du code ' déroulement du code end if next
Mon problème est que Message c'écrit sous forme "feuil2.range("B2").value = Userform7.Combobox1.value and feuil2.range("C2").value = Userform7.Combobox2.value" et du coup ça ne marche pas !
Comment utiliser ma variable Message pour vérifier cette condition ?

pour obtenir l'équivalent de ceci par exemple :

Code:

if feuil2.range("B2").value = Userform7.Combobox1.value and feuil2.range("C2").value = Userform7. Combobox2.value then

Soit sans les ""

Merci par avance pour vos aides.

Bien cordialement

23/06/2018, 21h44
scoubi77

J'ai essayé d'utiliser replace mais cela ne marche pas !

Code:

message=replace(message,"""","")
23/06/2018, 22h30
Qwazerty

Salut

[Edit] Explique ce que tu veux faire exactement.
Même si à mon avis ça ne sert à rien, tu peux réduire ta ligne comme ça pour info

Code:

"Feuil2.Range(""K""" & vi & ").Value"

[/Edit]

Je n'ai pas trop compris mais (et c'est salle comme solution) essaie de mettre message entre crochet lors du test

Code:

If [Message] Then

Le fait de mettre entre crochet équivaut à utiliser eval(), l'évaluateur de code

++
Qwaz
23/06/2018, 22h53
scoubi77

Bonsoir Qwazerty,

Merci pour cette réponse.
J'ai 4 combobox dans un userform, ces 4 combobox contiennent une liste propre.
La premiere c'est le type de document.
La deuxieme c'est l'expéditeur
La troisieme c'est le mois
La quatrième c'est l'année
chaque combobox à aussi le mot "TOUS"

une fois la sélection faite dans ces combobox l'utilisateur fait une recherche dans une feuille base et j'affiche les récurrences trouvées dans une listeview.

Le but est donc de ne prendre en compte que les combobox qui ont une donnée différente de "TOUS", soit écrire le code vba de la condition à vérifier et faire la recherche en fonction de celles-ci, pour éviter de faire
4 conditionnelles différentes avec le code de remplissage de la listview !

j'ai essayé

Code:

If [Message] Then

mais cela ne fonctionne pas, j'obtiens pareil, erreur d’exécution 13 incompatibilité de type

Essai comme ç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
39
Sub test2()
    Const ListRange = Array("K", "D", "B", "G")
    Dim Resultat As Boolean 'Par défaut il est initialisé à False
    Dim iList As Byte
    Dim Vi As Long
 
    'On initialise Resultat à True
    Resultat = True
 
    'On boucle sur les ligne du tableau
    For Vi = 2 To feuil2.Cells(feuil2.Rows.Count, "A").End(xlUp).Row
        'On boucle sur les combobox
        For iList = 1 To 4
            'On regarde si le combobox contient autre chose que "TOUS"
            If Me.Controls("combobox" & iList) <> "TOUS" Then
                'Si c'est le cas on compare sa valeur avec la cellule qui lui est associée
                'A la 1ère boucle qui passe ici, Resultat vaut True
                'True est "transparent" lors d'un And
                'Quelquesoit le second terme du And c'est lui qui décidera de la valeur de Resultat
                'True And True = True
                'True And False = False
                'On voit bien que tant que le contenu de Resultat est True, il n'influence pas le And
                'Par contre dès que Resultat passe à False, il sera impossible qu'il repasse à True
                'False And True  = False
                'False And False = False
                'On pourra donc quitter la boucle dès que Resultat passera à False
                Resultat = Resultat And (feuil2.Cells(Vi, ListRange(iList)).Value = Userform7.Controls("ComBobox" & iList).Value)
                If Not Resultat Then Exit For
            End If
        Next
        'On teste le Resultat
        If Resultat Then
            ' déroulement du code
            ' déroulement du code
            ' déroulement du code
            ' déroulement du code
        End If
    Next
End Sub

Mais si le but c'est de faire un tri, je ne suis pas sûr de la direction que prend ton code.

Tu devrais Expliquer plus en détail et peut-être mettre un fichier de travail (sans données confidentielles mais avec des données structurées comme il faut pour pouvoir faire des essais).

23/06/2018, 23h17
scoubi77

Un grand merci je test demain car je ne suis plus chez moi, je re poste dès demain matin

Merci beaucoup
24/06/2018, 10h28
scoubi77

Bonjour,

Le code s’arrête sur const, j'ai un message me disant "constante requise" ?

Salut

C'est ça de veiller trop tard...

Code:

1
2
3
4
5
6
7
8
9
10
11
    Const strListRange = "K,D,B,G"
    Dim ListRange
    Dim Resultat As Boolean 'Par défaut il est initialisé à False
    Dim iList As Byte
    Dim Vi As Long
 
    'On initialise Resultat à True
    Resultat = True
 
    'On initialise le tableau
    ListRange = Split(strListRange, ",")

Merci,

Là où je bloque c'est sur la valeur "TOUS"

Si non il me suffirait d'écrire :
Code:

1 2 if feuil2.range("K" & vi).value=combobox1.value and feuil2.range("B" & vi).value=combobox3.value and feuil2.range("G" & vi).value=combobox4.value and feuil2.range("D" & vi).value=combobox2.value then
Mais comment ne pas prendre en compte si :

Code:

feuil2.range("K" & vi).value=combobox1.value

à "TOUS" comme valeur !

Je m'y prends surement mal avec mes conditionnelles !

Je recherche dans une feuille par ordre de priorité :
Code:

1 2 3 4 5 a = ComboBox1.Value ' année colonne K c = ComboBox3.Value ' Mois B d = ComboBox4.Value ' Destinataire G b = ComboBox2.Value ' type de doc D
Si l'utilisateur laisses toutes les Combobox sur TOUS j'affiche tous l'historique
Si l'utilisateur choisis dans la Combobox1 la valeur 2018 et les aurtres sur "TOUS" je dois afficher tous les mouvements de 2018.
Si l'utilisateur choisis dans la Combobox1 la valeur 2018 et en combobox2 sur JANVIER je dois afficher tous les mouvements écris en janvier 2018
Si l'utilisateur choisis dans la Combobox1 la valeur 2018 et en combobox2 sur JANVIER et la combobox3 sur courrier je dois afficher tous les mouvements écris en janvier 2018 concernant courrier
et ainsi de suite...
Ce que je voudrais éviter c'est d'écrire une multitude de conditionnelles avec à chaque fois la prog de remplissage avec les listeviews et les images qui sont dedans....
d'où ma recherche en récupérant les valeurs de mes combobox pour déterminer ce que je dois rechercher et afficher.

Donc si tu veux ma première idée était de générer la conditionnelle de recherche dans ma boucle qui parcourt chaque lignes de la base en la créant de façon dynamique en fonction de ce qui a été sélectionné dans les 4 combobox
en utilisant ma variable Message dans la conditionnelle !

24/06/2018, 12h08
Qwazerty

Salut

Pourquoi ne pas faire directement ton tri sur ton tableau à l'aide des filtre automatique (voir si ça n'est pas fait de convertir ton tableau en tableau structuré).
A partir de là, il te suffirait de trier tes colonnes en fonction du contenu de tes combobox
24/06/2018, 12h48
patricktoulon

re
bonjour
perso j'ai pas bien compris tout ca tout du moins ou est la difficulté sur la concatenantion de ta variable

dans ta reponse supposée dans l'une de tes reponse a qwazerty tu a toi meme donner la solution

dans tes comboboxs il y a x items dont "TOUS"

dans ta boucle il te suffit de faire une condition
Code:

1 2 3 if not mavariableconcaténée like"*TOUS*" then '... '...
24/06/2018, 12h54
scoubi77
il n'y a pas de colonne mois je le détermine par rapport à la date lors du passage de la boucle dans la colonne B
Code:

1 2 3 4 5 6 7 If IsDate(Feuil2.Range("B" & Vi).Value) Then ' recherche du mois FF = Feuil2.Range("B" & Vi).Value FF = CDate(FF) vv2 = Month((FF)) moisdt = UCase(Format(FF, "mmmm")) End If
Donc déjà pas simple sur ce critère que je ne peux modifier car je travail sur une base qui est remplie par
une autre application que je ne maîtrise pas dans sa gestion et je ne peux pas du même coup la filtrer, uniquement travailler dessus en mode lecture.

Bonjour Patrick et merci pour ta réponse,

Effectivement j'ai 4 combobox qui ont une liste propre que je génère avec un traitement fonction unique pour avoir une liste sans doublons correspondantes à 4 colonnes, en commun je mets lors de leurs constitutions l'item "Tous"

En gros je me retrouve avec comme conditionnelle pour remplir la listeview

Code:

if feuil2.range("K" & vi).value=combobox1.value and feuil2.range("B" & vi).value=combobox3.value and feuil2.range("G" & vi).value=combobox4.value and feuil2.range("D" & vi).value=combobox2.value then

Donc si il y a un item de sélectionné dans chaque combobox il n'y a aucun problèmes, sauf si j'ai un ou plusieurs "tous" !
Dans ce cas il faudrait que ce critère de recherche soit ignoré !

Ta proposition est intéressante mais je ne vois pas comment l'articuler ?

Code:

if not mavariableconcaténée like"*TOUS*" then

car ce que je voudrais éviter c'est de me retrouver avec un code du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 if not combobox1.value like"*TOUS*" then remplissage de la listeview else remplissage de la listeview end if if not combobox2.value like"*TOUS*" then code remplissage de la listeview else code remplissage de la listeview end if if not combobox3.value like"*TOUS*" then code remplissage de la listeview else code remplissage de la listeview end if if not combobox4.value like"*TOUS*" then code remplissage de la listeview else code remplissage de la listeview end if

re
je comprends pas tres bien ton besoins de tester "TOUS" sur les combo si le test value et comparrer a une cellule mais bon
peut etre aussi que "TOUS" peut se trouver dans tes cellules aussi donc
Code:

1 2 3 4 5 6 crit = Feuil2.Range("K" & vi).Value = combobox1.Value And Feuil2.Range("B" & vi).Value = combobox3.Value And Feuil2.Range("G" & vi).Value = combobox4.Value And Feuil2.Range("D" & vi).Value = combobox2.Value combo = combobox1.Value = "TOUS" Or combobox2.Value = "TOUS" Or combobox3.Value = "TOUS" Or combobox4.Value = "TOUS" If crit = True And Not combo = True Then '... '... End If
engros on test tes combo si elle correpondent au valeurs de la feuille et on teste si il y a "TOUS" dans l'une ou plusieurs d'entre elles
donc si crit = true et combo = false alors on remplie la listview
si c'est pas ca je comprends plus moi ;)

Merci à vous deux,

Merci Patrick, en fait non "TOUS" c'est que je veux toutes les lignes de la colonnes, il n'est pas présent sur la feuille.
J'ai changé mon fusil d'épaule et je me résigné a utiliser les filtres automatique de la feuille.
En premier lieux je récupère la base en la copiant, j'ai rajouté une colonne à la fin où je détermine en fonction de la date le mois et je mets les filtres en fonction des valeurs des combobox.

Voici la prog pour ceux que sa intéresse :

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
Private Sub Image38_Click()
Dim X(1 To 5)
Application.ScreenUpdating = False
Feuil2.Select
UserForm7.ListView1.ListItems.Clear
If OptionButton1.Value = True Then
a = ComboBox1.Value               ' année colonne K
 b = ComboBox2.Value              ' type de doc   D
  c = ComboBox3.Value             ' Mois          M
   d = ComboBox4.Value            ' Destinataire  G
    e = ComboBox5.Value           ' Nom           C
    X(1) = 11
     X(2) = 4
      X(3) = 14
        X(4) = 7
         X(5) = 3
Feuil2.[A1].AutoFilter
With UserForm7.ListView1
.Gridlines = True
UserForm7.ListView1.CheckBoxes = True
With .ColumnHeaders
            .Clear
            .Add , , "", 15
            .Add , , "N°", 25
            .Add , , "", 20
            .Add , , "Date", 60 ', , "Img"
            .Add , , "Saisi", 50
            .Add , , "Type", 80
            .Add , , "Objet", 120
            .Add , , "Information", 100
            .Add , , "Expéditeur", 120
            .Add , , "Archive", 75
            .Add , , "Archive", 50
            End With
End With
n = 1
derlg = Feuil2.Range("A65536").End(xlUp).Row
For Uv = 1 To 5 Step 1
Cln = X(Uv)
Tbvard = Me.Controls("combobox" & Uv).Value
If Tbvard <> "TOUS" Then
ActiveSheet.Range("A" & "1" & ":N" & derlg).AutoFilter Field:=Cln, Criteria1:= _
Me.Controls("combobox" & Uv).Value
Else
ActiveSheet.Range("A" & "1" & ":N" & derlg).AutoFilter Field:=Cln
End If
Next
derlg2 = Feuil2.Range("A65536").End(xlUp).Row
For Vi = 2 To derlg2 Step 1
  If Feuil2.Range("a" & Vi).Rows.Hidden = True Then
  Else
val0 = Feuil2.Range("A" & Vi).Value
 val1 = Feuil2.Range("B" & Vi).Value
  val2 = Feuil2.Range("C" & Vi).Value
   val3 = Feuil2.Range("D" & Vi).Value
    val4 = Feuil2.Range("E" & Vi).Value
     val5 = Feuil2.Range("F" & Vi).Value
      val6 = Feuil2.Range("G" & Vi).Value
       val7 = Feuil2.Range("L" & Vi).Value
        val8 = Feuil2.Range("M" & Vi).Value
Tb1 = Array( "courrier ", "affiche(s)", "information(s)", "Document(s)", _
"Diplome", "lettre", "document(s) ")
b = 0
 If val3 = "" Then
 i = 14
 Else
 val3 = LCase(val3)
    For i = LBound(Tb1) To UBound(Tb1)
        b = b
        If Tb1(i) Like "*" & val3 & "*" Then
            Exit For
        End If
    b = b + 1
    Next
End If
UserForm7.ListView1.ListItems.Add
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , val0
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , "", "ma" & i
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , CDate(val1)
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , val2
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , Feuil2.Range("D" & Vi).Value
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , val4
If val5 = "" Then
val5 = "- Vide -"
Else
End If
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , val5
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , val6
  If val7 = "" Then
val7 = "- Vide -"
  Else
  End If
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , val7
    If val8 = "" Then
val8 = "- Vide -"
    Else
    End If
UserForm7.ListView1.ListItems(n).ListSubItems.Add , , val8
n = n + 1
End If
Next Vi
End If
UserForm7.ListView1.View = lvwReport
If UserForm7.ListView1.ListItems.Count <> 0 Then
With UserForm7.ListView1.ListItems(ListView1.ListItems.Count)
        .Selected = True
        .EnsureVisible
    End With
End If
Feuil2.[A1].AutoFilter
Feuil1.Select
Application.ScreenUpdating = True
End Sub

Merci à vous deux pour vos aides

Bien cordialement

24/06/2018, 22h29
Qwazerty

1 pièce(s) jointe(s)

Salut

Ça me parait bien compliqué.

Voila un autre solution sans passer par les filtres (je ne pensais pas que le ListBox était un impératif)

++
Qwaz
27/06/2018, 21h34
scoubi77

Bonsoir Qwazerty,

Je dois utiliser les listeview j'ai essayer ton exemple et je l'ai adapté à mon besoin, un grand merci