Supprimer ligne selon format

Résolu
a51432 Messages postés 37 Date d'inscription   Statut Membre Dernière intervention   -  
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   -
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

Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   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 37 Date d'inscription   Statut Membre Dernière intervention   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 1959 Date d'inscription   Statut Membre Dernière intervention   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