Effacer ligne selon critère
Résolu/Fermé
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
-
19 oct. 2020 à 17:25
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 20 oct. 2020 à 15:54
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 20 oct. 2020 à 15:54
A voir également:
- Macro supprimer ligne selon critère
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
- Partager photos en ligne - Guide
7 réponses
yclik
Messages postés
3691
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
2 novembre 2024
1 512
19 oct. 2020 à 17:39
19 oct. 2020 à 17:39
Bonsoir
A tester
A tester
If Cells(n, 1).Value = 0 or 1 Then
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
284
Modifié le 19 oct. 2020 à 20:10
Modifié le 19 oct. 2020 à 20:10
Bonsoir
Si "Faux" ou "False" est une saisie
Dans ce cas
Si "Faux" ou "False" est une saisie
Dans ce cas
Dim n As Long For n = 1 To 200 If Ucase( Cells(n, 1).Value) = "faux" or Ucase(Cells(n, 1).Value) ="false" Then Rows(n).Delete End If Next n
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
20 oct. 2020 à 04:24
20 oct. 2020 à 04:24
Bonjour,
Il faut surtout partir de la dernière ligne et remonter vers la première.
Cdlt
Il faut surtout partir de la dernière ligne et remonter vers la première.
For n=200 to 1 step -1 next n
Cdlt
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
20 oct. 2020 à 09:03
20 oct. 2020 à 09:03
Bonjour,
ma contribution:
ma contribution:
Option Explicit Sub test() Dim i As Long For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "Faux" Or Cells(i, 1) = "false" Then Cells(i, 1).EntireRow.Delete Next End Sub
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
4
20 oct. 2020 à 15:54
20 oct. 2020 à 15:54
Merci ça marche
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
19 oct. 2020 à 17:43
19 oct. 2020 à 17:43
Bonsoir,
ton faux ou false résulte d'une formule ou c'est juste un texte saisie/cellules ?
ton faux ou false résulte d'une formule ou c'est juste un texte saisie/cellules ?
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
4
19 oct. 2020 à 17:47
19 oct. 2020 à 17:47
juste un texte saisie
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
19 oct. 2020 à 18:16
19 oct. 2020 à 18:16
Avez-vous essayé la solution de yclik ?
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
4
>
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
19 oct. 2020 à 18:34
19 oct. 2020 à 18:34
Oui j'ai essayé mais toutes les lignes sont effacées
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
>
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
19 oct. 2020 à 19:04
19 oct. 2020 à 19:04
Précisément, tu veux effacer le contenu de toute la ligne ou supprimer la ligne ?
Si tu filtres et que tu effaces, ça ne convient pas ?
Si tu filtres et que tu effaces, ça ne convient pas ?
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
4
19 oct. 2020 à 19:15
19 oct. 2020 à 19:15
effacer toute la ligne
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
19 oct. 2020 à 19:30
19 oct. 2020 à 19:30