Discussion :

[Denis_67]

Bonjour,

Je bute sur un problème, je souhaite effectuer une action en fonction de l'appartenance de la valeur d'une cellule à une liste de référence variable.
L'exemple que j'ai trouvé fonctionne si je mets en dur la liste des valeurs à tester mais me renvoie une valeur 2015 dans la réponse au lieu de vrai/faux lorsque j'essaie de passer par une variable.
En fait je pense que je ne défini pas bien ma variable "Liste" ou que je ne l'appelle pas correctement.
Quelqu'un aurait-il une idée ?
Merci
Denis

Mon exemple

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
 
Sub fil_grp1()
'Renseigner les machines à garder Groupe 1 142;144;161;162;282
Liste = "142;144;161;162;282"
 
For i = [b65536].End(xlUp).Row To 1 Step -1
' là ça marche
 rep = Evaluate("=NOT(ISNA(MATCH(" & Cells(i, 2) & ",{142;144;161;162;282},0)))")
 
'là ça marche pas du tout rep prend la valeur 2015 ????
' rep = Evaluate("=NOT(ISNA(MATCH(" & Cells(i, 2) & ",{ (Liste) },0)))")
 
   If rep = False Then
    Rows(i).EntireRow.Delete
   End If
Next
 
End Sub

[random]

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
 
Sub fil_grp1()
'Renseigner les machines à garder Groupe 1 142;144;161;162;282
Const liste As String = "142;144;161;162;282"
For i = [b65536].End(xlUp).Row To 1 Step -1
' là ça marche
 rep = Evaluate("=NOT(ISNA(MATCH(" & Cells(i, 2) & ",{142;144;161;162;282},0)))")
 'c'est normal les valeurs ne sont pas entre guillemets
'là ça marche pas du tout rep prend la valeur 2015 ????
' rep = Evaluate("=NOT(ISNA(MATCH(" & Cells(i, 2) & ",{ (Liste) },0)))")
 'c'est normal  liste est entre guillement c'est liste qui  est évalué et non son contenu
   If InStr(liste, Cells(i, 2)) = 0 Then
   'la ca devrait marcher
    Rows(i).EntireRow.Delete
   End If
Next

[Denis_67]

Nickel chrome !

C'est pas par hasard !
Merci Random