Supprimer ligne selon format

Résolu
a51432 Messages postés 39 Statut Membre -  
Zoul67 Messages postés 2001 Statut Membre -
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.
A voir également:

1 réponse

Réponse 1 / 1
Zoul67 Messages postés 2001 Statut Membre 149
 
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+
0
a51432 Messages postés 39 Statut Membre 1
 
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
0
Zoul67 Messages postés 2001 Statut Membre 149
 
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.
0