Supprimer ligne selon format

[Résolu/Fermé]
Signaler
Messages postés
37
Date d'inscription
lundi 13 juillet 2015
Statut
Membre
Dernière intervention
20 octobre 2015
-
Messages postés
1953
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
12 août 2021
-
Bonjour,

Dans un fichier excel, je cherche à supprimer chaque ligne pour laquelle la colonne E contient 3 caractères qui soient 2 chiffres puis une lettre qui soit A, B, E, F, Q, R ou Z (ex : 14B ou 61Q).

Une idée ?

Merci d'avance.

1 réponse

Messages postés
1953
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
12 août 2021
151
Bonjour,

For i=DerLigne To 2 Step -1
chaine = Cells(i,5).Value
   If Len(chaine) = 3 Then
      If IsNumeric(Left(chaine,2)) Then
         If Instr("ABEFQRZ",Right(chaine))>0 Then Rows(i).Delete
         EndIf
      EndIf
   EndIf
Next i


A+
Messages postés
37
Date d'inscription
lundi 13 juillet 2015
Statut
Membre
Dernière intervention
20 octobre 2015

Merci pour ta réponse. Je n'ai pas testé car j'ai trouvé une autre solution ce matin.

Code :

derLig = .Range("B" & .Rows.Count).End(xlUp).Row
For i = derLig To 5 Step -1
If .Cells(i, 5) Like "##[A-B]" Or .Cells(i, 5) Like "##[E-F]" Or .Cells(i, 5) Like "##[K]" Or .Cells(i, 5) Like "##[M-N]" Then
.Cells(i, 5).EntireRow.Delete
End If
Next i
Messages postés
1953
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
12 août 2021
151
C'est une bonne solution. La prochaine fois, essaie de répondre en premier à ta question pour éviter que des gens cherchent pour toi alors que tu as déjà résolu ton problème.