Discussion :

[tamtam64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[Thautheme]

Bonjour Tamtam, bonjour le forum,

Essaie comme ça :

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 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

[tamtam64]

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 .

[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.

[SfJ5Rpw8]

Bonjour,

avec la fonction Filter peu-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tamtam64]

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