Supprimer des lignes qui remplissent deux conditions

Résolu/Fermé
Ju@nita Messages postés 135 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 19 mars 2018 - 3 juil. 2015 à 15:46
Ju@nita Messages postés 135 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 19 mars 2018 - 3 juil. 2015 à 17:42
Bonjour,

Quelqu'un a récemment posté une question avec ce même titre mais le fichier joint n'est plus disponible et c'est justement ce que je cherchais. Puis-je avoir la formule svp ?
Moi, c'est pour supprimer des lignes qui n'ont pas de données dans la colonne D et aussi la colonne E.

merci


A voir également:

5 réponses

Ju@nita Messages postés 135 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 19 mars 2018
3 juil. 2015 à 17:03
je rajoute ici un petit exemple de ce que je veux.
merci
https://www.cjoint.com/c/EGdpcLSNhQV
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
Modifié par via55 le 3/07/2015 à 17:28
Bonjour

Le plus simple qui ne nécessite ni formules ni macro :

1) Filtrer ton tableau sur le colonne Retraits en excluant les lignes avec -
2) Faire un copier coller du tableau filtré sur une autre feuille par Collage spécial Valeurs uniquement

Sinon faut le faire à l'aide d'une macro, me dire si tu préfères cette solution

Cdlmnt
Via

"L'imagination est plus importante que le savoir." A. Einstein
0
Ju@nita Messages postés 135 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 19 mars 2018
3 juil. 2015 à 17:32
je préférerais y aller à travers ma macro qui contient déjà beaucoup de stock pour trier ce fichier. Une formule du genre: si colonne D et E = rien, alors détruit la ligne.

merci
0
Bonjour
faire une macro
Bonjour Via55 je te laisse la main tu va plus vite que moi
Sub DelLigne()
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
   For L = DerLigne To 2 Step -1
      If Val(Range("D" & L)) < 1 And Val(Range("E" & L)) < 1 Then
         Rows(L).Delete
      End If
   Next
End Sub

A+
Maurice
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Ju@nita Messages postés 135 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 19 mars 2018
3 juil. 2015 à 17:42
Ok ça fonctionne. Merci.
bonne journée.
0