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.
En faite a la place de :
Je souhaiterais mettre :
Et du coup la macro controle toutes les lignes de mon listing.
Merci pour votre aide.
Cdt
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
Merci pour votre aide.
Cdt
Dernière édition: