Excel VBA:supprimer lignes ne contenant pas..

Résolu/Fermé

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 18 août 2010 à 19:14
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 20 août 2010 à 11:08

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.

A voir également:

Vba supprimer ligne si cellule ne contient pas
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Aller à la ligne dans une cellule excel - Guide
Ne pas apparaître en ligne sur instagram - Guide
Excel cellule couleur si condition texte - Guide

7 réponses

Réponse 1 / 7

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
19 août 2010 à 18:23

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

Réponse 2 / 7

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 18/08/2010 à 19:33

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)

Réponse 3 / 7

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
18 août 2010 à 19:20

Tout au début tel que suit :
PROD
RECON
RECIA

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 août 2010 à 19:36

voir modif poste précédant

Réponse 4 / 7

bacus13 Messages postés 30 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 1 septembre 2010 8
18 août 2010 à 20:05

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 ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
19 août 2010 à 11:39

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 :)

Réponse 6 / 7

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
19 août 2010 à 20:03

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 ! :)

Réponse 7 / 7

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
20 août 2010 à 11:08

Macro rectifiée en tenant compte de vos propositions.
Ça marche nickel !

Discussions similaires

Excel si cellule contient texte alors...

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel formule : savoir si une cellule contient partie texte

Excel : si ma cellule contient tel texte ou tel texte

Que veut dire "correspondant occupé" lors d'un appel ?

Discussions similaires

Newsletters