Excel VBA:supprimer lignes ne contenant pas.. [Résolu/Fermé]

Signaler
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Bonjour,

Je rédige une macro VBA destinée a supprimer les lignes ne contenant pas certains caractères dans une colonne donnée.
Le but est donc de scruter les lignes de la colonne "BI" depuis la ligne 3000 jusqu'à la ligne 2
et si le valeur qui s'y trouve ne comprend pas les chaines de caractères suivantes :"PROD" ou "REC" , je supprime la ligne.

J'en suis donc a cette macro :
Sub suppression()

Dim z$, i&, k&
k = Cells(3000, 61).Row
For i = k To 2 Step -1
z = Cells(i, 1).Value
If Not (Cells(i, 61) Like ("PROD*", "REC*")) Then Rows(i).Delete
Next
ActiveWorkbook.Save
End Sub

Et la, ça ne fonctionne pas. La macro fonctionne très bien si je n'ai qu'une des 2 valeurs de référence (PROD ou REC*) mais je ne vois pas comment lui demander une référence multiple (les terme de la macro ici en gras la font planter).
J'obtiens le message "erreur de syntaxe"

Quelqu'un saurait il dépanner cette macro svp ?
Merci d'avance pour votre aide.

7 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 152
Tant mieux, mais tu n'a pas tenu compte de la remarque de bacus13..
et pour Option compare texte c'est TOUT EN HAUT DU MODULE
Et vu que tu n'a pas mis Option Explicit tu ne vois pas l'ereur de déclaration...
z N'EST PAS EGALE à z$
pour employer z$ tu dois l'écrire z$ = Cells(i, 61).Value
ou alors dim z as String, alors z = Cells(i, 61).Value , c'est bon
Prend aussi l'habitude de mettre Option explicit dans tout tes modules.
Plus facile..dans l'éditeur VBA >> Outils >> options >> cocher >> Déclaration des variables obligatoire
Option Explicit
Option Compare Text

Sub suppression()
Dim z as String
    For i = 3000 To 2 Step -1
        z = Cells(i, 61).Value
        If Not (Cells(i, 61) Like ("PROD*") Or Cells(i, 61) Like ("REC*")) Then Rows(i).Delete
    Next
    ActiveWorkbook.Save
End Sub
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 152
Bonjour,
Les expressions PROD ou REC se trouve où dans le libellé de la cellule ?
A+
Edit:
Tu dois ajouter Option Compare Text en haut du module, si ce n'est fait.
et ta formule devrait être...
If Not (Cells(i, 61) Like ("PROD*") Or Cells(i, 61) Like ("REC*")) Then Rows(i).Delete 



L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
Tout au début tel que suit :
PROD
RECON
RECIA
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 152
voir modif poste précédant
Messages postés
30
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
1 septembre 2010
7
rien a voir mais pourquoi faire k = Cells(3000, 61).Row et pas k = 3000?
ou même For i = 3000 to 2 Step -1 ?
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
Bonjour et merci pour cette réponse.
Donc ça fonctionne parfaitement, bien que je n'ai pas pu ajouter l'option : "Option Compare Text" dans ma macro;
Je reçois le retour : "Instruction incorrecte dans une procédure"

Malgré ce détail, la routine fonctionne très bien comme suit :

Sub suppression()

Dim z$, i&, k&
k = Cells(3000, 61).Row
For i = k To 2 Step -1
z = Cells(i, 61).Value
If Not (Cells(i, 61) Like ("PROD*") Or Cells(i, 61) Like ("REC*")) Then Rows(i).Delete
Next
ActiveWorkbook.Save
End Sub

Merci de ton aide :)
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
Ah ok, je vois l'erreur.
Je vais rectifier ça dès demain matin.

Merci a toi et à Bacus (Désolé, je n'avais pas vu le message de Bacus).
Votre aide m'aura été précieuse ! :)
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
Macro rectifiée en tenant compte de vos propositions.
Ça marche nickel !