tamtam64

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