[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
 

gaouul

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

Merci ca fonctionne nikel.

Bonne journée.

cdt.
 

Discussions similaires


Haut Bas