[Resolu]Simplifier une macro excel afin d'utiliser une liste

[gaouul]

Bonjour,

Je viens vers vous car je souhaiterais simplifier la macro suivante afin de ne pas mettre 50 ou, il faudrait que je puisse me servire d'une liste que j'ai créée sur mon fichier denommé liste sur l'onglet correspondance.

With ThisWorkbook.Sheets("RETRAIT AMEX")
    'Supprimer les données contenant "l'exploitation"
    For i = .Range("C" & .Rows.Count).End(xlUp).Row To 1 Step -1
    If .Range("B" & i).Value Like "*58 TO*" Or .Range("B" & i).Value _
    Like "*JULES*" Or .Range("B" & i).Value Like "*YACHTS*" Then
    .Rows(i).Delete
    End If
    Next i
    End With

En faite a la place de :

If .Range("B" & i).Value Like "*58 TO*" Or .Range("B" & i).Value _
    Like "*JULES*" Or .Range("B" & i).Value Like "*YACHTS*"

Je souhaiterais mettre :

If .Range("B" & i).Value = list

Et du coup la macro controle toutes les lignes de mon listing.

Merci pour votre aide.

Cdt

 

[Bebere]

Re : Simplifier une macro excel afin d'utiliser une liste

bonjour Gaouul
à tester

Sub x()

maliste = Range("liste").Value

With ThisWorkbook.Sheets("RETRAIT AMEX")
    'Supprimer les données contenant "l'exploitation"
    For j = LBound(maliste) To UBound(maliste)
    For i = .Range("C" & .Rows.Count).End(xlUp).Row To 1 Step -1
    If .Range("B" & i).Value = maliste(j, 1) Then
    .Rows(i).Delete
    End If
    Next i
    Next j
    End With


End Sub

 

[gaouul]

Re : Simplifier une macro excel afin d'utiliser une liste

Merci ca fonctionne nikel.

Bonne journée.

cdt.