Effacer ligne selon critère Résolu

Question

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

yclik · Answer

Bonsoir

A tester

If Cells(n, 1).Value = 0 or 1 Then

Yoyo01000 · Answer

Bonsoir,
ton faux ou false résulte d'une formule ou c'est juste un texte saisie/cellules ?

noe2008 · Answer

juste un texte saisie

noe2008 · Answer

effacer toute la ligne

M-12 · Answer

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

Frenchie83 · Answer

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

cs_Le Pivert · Answer

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

Effacer ligne selon critère

7 réponses

Discussions similaires

Newsletters