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

gaouul

XLDnaute Nouveau
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.

Code:
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 :
Code:
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 :
Code:
If .Range("B" & i).Value = list
Et du coup la macro controle toutes les lignes de mon listing.

Merci pour votre aide.

Cdt
 
Dernière édition:

Bebere

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

bonjour Gaouul
à tester
Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40