[XL-2010] Critères multi selection

1 pièce(s) jointe(s)

Critères multi selection

Bonjour à tous et merci de faire vivre ce forum.

J'ai un soucis pour une boucle.

Par exemple j'ai 2 tableaux vba (tabChat et tabChien) à une dimension.

tabChat : Garfield, tigrou
tabChien : rantanplan, milou

Ensuite sur une feuille Excel j'ai un tableau contenant plusieurs lignes (comme une base de donnée) comme l'exemple en pièce jointe.

Enfaîte j'aimerai que ma macro récupère les lignes en fonction des critères des 2 tableaux. Par exemple Julie sera récupérée, même si son chat s'appelle felix, car son chien milou est bien inscrit dans un des 2 tableaux. Même cas pour Yvonne et Bertrand. Par contre Paulette ne sera pas récupérée car ni son chien ni son chat ne figure dans un des 2 tableaux (tabChat ou tabChien)...

Mon but est de faire une boucle avec des conditions pour récupérer les lignes d'excel dans une autre feuille.

J'ai essayer de faire au plus simple avec cet exemple.

Merci.

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test1()
    Dim C As Range, Ligne As Long
    With Sheets("Feuil1")
        For Each C In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
            If IsNumeric(Application.Match(C.Offset(, 2), [TabChien], 0)) Or _
                IsNumeric(Application.Match(C.Offset(, 3), [TabChat], 0)) Then
                Ligne = Ligne + 1
                Sheets("Feuil2").Cells(Ligne, 1) = C.Value
            End If
        Next C
    End With
End Sub

Merci Daniel je vais étudier ça !