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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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