Supprimer ligne selon format

Résolu/Fermé
a51432 Messages postés 37 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 20 octobre 2015 - Modifié par a51432 le 20/10/2015 à 11:23
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 20 oct. 2015 à 17:11
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 lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
20 oct. 2015 à 14:27
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 lundi 13 juillet 2015 Statut Membre Dernière intervention 20 octobre 2015 1
20 oct. 2015 à 17:02
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 lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
20 oct. 2015 à 17:11
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