Copier avec condition_à partir de cellule vide_supprimer ligne si valeur

James007 a écrit :

AnaelleM a écrit :

En faisant mes recherches avant ta réponse, j'ai trouvé ça et ça semble fonctionner:

Sub clear()
Dim Lig&
With Sheets("Exportation")
           For Lig = .Cells(Rows.Count, 6).End(xlUp).Row To 1 Step -1
                    If .Cells(Lig, 6) = "VENTE" Or Cells(Lig, 6) = "*" Then .Rows(Lig).Delete
           Next Lig
End With
End Sub

Qu'en penses tu?

Re,

Que veux-tu que j'en pense ... ???

Il ne s'agit pas de la même feuille, pas de la même colonne, pas du même test et pas de la même taille de tableau ...

Effectivement, j'ai changé la page pour la mettre sur "Exportation" . Mais bon c'était surtout pour la ligne du "IF".

Il fonctionne donc ça va

Merci encore

Bonjour,

C'est toi même qui écrit ... cela semble fonctionner ...

Il ne faut pas oublier que tu as ton fichier sous tes yeux ....(et pas moi ...)