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

gaouul · 28 Juillet 2014

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

Bebere · 28 Juillet 2014

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 · 28 Juillet 2014

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

Merci ca fonctionne nikel.

Bonne journée.

cdt.

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

gaouul

XLDnaute Nouveau

Bebere

XLDnaute Barbatruc

gaouul

XLDnaute Nouveau

Discussions similaires