Macro supprime ligne selon la valeur d'une cellule
Résolu/Fermé
Harry Baux
Messages postés
17
Date d'inscription
samedi 14 décembre 2013
Statut
Membre
Dernière intervention
30 décembre 2013
-
14 déc. 2013 à 21:52
Harry Baux Messages postés 17 Date d'inscription samedi 14 décembre 2013 Statut Membre Dernière intervention 30 décembre 2013 - 30 déc. 2013 à 21:41
Harry Baux Messages postés 17 Date d'inscription samedi 14 décembre 2013 Statut Membre Dernière intervention 30 décembre 2013 - 30 déc. 2013 à 21:41
A voir également:
- Vba supprimer ligne si cellule contient
- Si cellule contient texte alors ✓ - Forum Excel
- Excel si cellule contient partie texte ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Supprimer une page word - Guide
5 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 712
14 déc. 2013 à 22:26
14 déc. 2013 à 22:26
Bonjour,
si j'utilise les signe > et < la macro ne fonctionne pas
If UCase(.Cells(ligne, Code)) <> "86" _
Or UCase(.Cells(ligne, Code)) <> "32" _
Then .Rows(ligne).Delete
Si tu l'as écrit ainsi, toutes tes lignes sont obligatoirement supprimées car elles ne peuvent pas être égales à 32 et 86 simultanément donc elles sont toutes différentes soit de 32 soit de 86.
si j'utilise les signe > et < la macro ne fonctionne pas
If .Cells(ligne, Code) > 32devrait mieux fonctionner car si tu mets "32", la macro compare en texte et tu n'as pas besoin de ucase avec des nombres.
If UCase(.Cells(ligne, Code)) <> "86" _
Or UCase(.Cells(ligne, Code)) <> "32" _
Then .Rows(ligne).Delete
Si tu l'as écrit ainsi, toutes tes lignes sont obligatoirement supprimées car elles ne peuvent pas être égales à 32 et 86 simultanément donc elles sont toutes différentes soit de 32 soit de 86.