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
Salut les amis,
j'ai essayé de créer une macro pour effacer des lignes pour toutes les cellules de la colonne A ou on trouve le texte : "faux" ou "false" mais le code que j'ai testé ne marche pas , jai besoin de votre aide , merci
voici le code que j'ai testé :

Dim n As Long

For n = 1 To 200
If Cells(n, 1).Value = "faux" or "false" Then
Rows(n).Delete
End If

Next n



Configuration: Windows / Chrome 86.0.4240.75
A voir également:

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
Bonsoir

A tester

If Cells(n, 1).Value = 0 or 1 Then 
1
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
Bonsoir
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
1
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
Bonjour,

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
1
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
Bonjour,

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

1
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
Merci ça marche
0

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
Bonsoir,
ton faux ou false résulte d'une formule ou c'est juste un texte saisie/cellules ?
0
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
juste un texte saisie
0
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
Avez-vous essayé la solution de yclik ?
0
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
Oui j'ai essayé mais toutes les lignes sont effacées
0
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
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 ?
0
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
effacer toute la ligne
0
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
Il faudrait ton fichier, pour en connaitre la structure.

Pour le partager :

https://www.cjoint.com/
0