tester si une valeur appartient a un tableau de valeur

Version imprimable

Bonjour, je recherche une methode propre de test pour savoir si la valeur d'un range appartient a un tableau de valeur par exemple ou eventuellement a un autre range , mais prioritairement a un tableau .

j'ai codé un truc un peu salement , ca fonctionne mais j'aimerais un truc plus propre sans gestion d'erreur qui je sais est a eviter ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim MyTab As Variant Dim MyRange As Range MyTab = Array("SEK", "EUR") With Application.ThisWorkbook.Worksheets("Feuil2") For Each MyRange In .UsedRange.Columns(2).Cells On Error Resume Next If Not IsNull(Application.WorksheetFunction.Match(MyRange.Value, MyTab, 0)) Then If Err.Number = 1004 Then GoTo 1 MsgBox ("Il y est")' on fait une action peu importe End If 1 Next MyRange End With End Sub
en gros je parcours une colonne , je test si la valeur appartien a mon tableau ou non .

Bonjour Tamtam, bonjour le forum,

Essaie comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro1()
Dim MyTab As Variant
Dim O As Worksheet
Dim I As Byte
Dim R As Range
 
Set O = Sheets("Feuil2")
MyTab = Array("SEK", "EUR")
For I = LBound(MyTab) To UBound(MyTab)
    Set R = Application.Intersect(O.UsedRange, O.Columns(2)).Find(MyTab(I), , xlValues, xlWhole)
    If Not R Is Nothing Then
        MsgBox MyTab(I) & " y est !"
    End If
    Set R = Nothing
Next I
End Sub

12/07/2015, 09h55
tamtam64

Deja un peu mieux

on a donc pas d'autres choix que du bidouillage,.. mais deja on evite la gestion d'erreur ce qui est deja mieux , je te remercie pour ce bout de code ca fonctionne .
12/07/2015, 09h59
Thautheme

Re,

Ben c'est pas du bidouillage !... C'est un code qui vérifie la présence d'une valeur dans une plage... Il y a bien sûr plusieurs de manière différentes d'y arriver. Tu demandais de le faire sans gestion d'erreur c'est tout.

Bonjour,

avec la fonction Filter peu-être :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
   Dim MyTab As Variant
   Dim MyResult 'As Variant
   Dim MyRange As Range
   MyTab = Array("SEK", "EUR", "SEK2")
   Dim MaChaine As String
   MaChaine = "SEK"
 
   MyResult = Filter(MyTab, MaChaine, True, vbBinaryCompare)
   If UBound(MyResult) > -1 Then
        MsgBox UBound(MyResult) + 1 & " Elements"
   Else
            MsgBox "Pas trouvé"
   End If

12/07/2015, 13h20
tamtam64

merci

Merci a vous , je savais qu'en postant j'apprendrais des trucs ;) merci