Effacer ligne selon critère
Résolu
noe2008
Messages postés
191
Statut
Membre
-
noe2008 Messages postés 191 Statut Membre -
noe2008 Messages postés 191 Statut Membre -
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
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:
- Macro supprimer ligne selon critère
- Supprimer rond bleu whatsapp - Guide
- Partager photos en ligne - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Mètre en ligne - Guide
7 réponses
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question