Discussion :

[CPE23]

Bonjour,

Dans un tableau, je souhaite supprimer toutes les lignes contenant la chaine de caractères ÉÍ
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Edit_C11_Mise_en_forme()
 
    NOMFICH = Application.InputBox(Prompt:="Nom du fichier : ", Type:=2)
    Workbooks(NOMFICH).Activate
 
' Recherche du nombre de lignes dans la feuille
    Nbligne = Range("A" & Rows.Count).End(xlUp).Row
 
' Suppression ligne contenant ÉÍ
    Dim Vligne As Range
    For WJ = 1 To Nbligne
        If Vligne Like "ÉÍ" Then Vligne.Rows.Delete
    Next WJ
 
'Enregsitrement du fichier
     ActiveWorkbook.Save
 
End Sub

Lorsque je lance la macro j'ai le message d'erreur "Erreur d'exécution 91, Variable objet ou variable bloc With non définie"
L'erreur est sur l'instruction If Vligne Like "ÉÍ" Then Vligne.Rows.Delete

Pourquoi ? Que dois-je faire?


Je vous remercie.

[Philippe Tulliez]

Bonjour,
l faudrait placer ton code entre les balises prévues à cet effet (la commande # dans l'éditeur) sinon il est impossible de t'indiquer le n° des lignes qui posent éventuellement problème.

Tu déclares la variable Vligne comme un Range, tu effectues un test avec celle-ci mais jamais tu ne lui assignes une valeur ?

[Menhir]

En plus de la remarque pertinente de Philippe Tulliez ( ) qui est certainement la source de l'erreur signalée, deux remarques :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    NOMFICH = Application.InputBox(Prompt:="Nom du fichier : ", Type:=2)

A ta place, j'aurais plutôt utilisé GetOpenFilename ou Dialogs.
https://msdn.microsoft.com/library/8...ice.15%29.aspx
https://msdn.microsoft.com/library/0...ice.15%29.aspx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For WJ = 1 To Nbligne
        If Vligne Like "ÉÍ" Then Vligne.Rows.Delete
    Next WJ

Pour les suppression et les insertions, on part toujours de la dernière ligne pour remonter à la première (Step -1).
Sinon, tu as de grandes chances de laisser passer des cas.

Autre petit détail : plutôt que Rows, j'aurais mis EntireRow avant le Delete.
Ca ne change sans doute pas grand chose mais ça me semble plus propre.

[Marc-L]

Bonjour,

et en espérant qu'il n'y a pas beaucoup de lignes à traiter, cette voie par boucle étant la plus lente !

___________________________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[joe.levrai]

Bonjour,

problème récurrent et déjà longuement abordé. Eviter les boucles et NE JAMAIS supprimer en allant de haut en bas

Au choix :

1) niveau simple : filtre automatique sur "<>" et ta chaine de caractère puis suppression de la plage visible
2) niveau plus abouti : une colonne temporaire avec une formule excel qui marquera 1 pour les lignes répondant à la contrainte, et 0 pour les autres. On fait ensuite un tri croissant de la plage, et on .Delete les lignes d'en bas
3) niveau subtil : au lieu de .Delete sur la second proposition, on .Clear
4) niveau encore plus subtil : essaye déjà les trois premières

[unparia]

Bonjour Joe.levrai
parle-lui dans la foulée de cet étrange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Like "ÉÍ"

qui, utilisé sans caractères génériques, est un .... = (et je doute assez que certaines de ses cellules ne contiennent que "ÉÍ"
Cela "sent" une fois de plus du code "ramassé" sans le comprendre ... Et cette senteur est la raison de mon mutisme depuis le début.

[CPE23]

Merci à tous.

je vais essayer vos solutions.

Je tiens à préciser que je n'ai jamais coder une macro excel, et que c'est pour moi la totale déocouverte.

[Marc-L]

Déjà sans code via un simple filtre …

[CPE23]

J'ai essayé l'autofilter mais j'ai un souci

Je souhaite, sur la colonne A, filtrer les lignes qui contiennent "Page".
Puis supprimer toutes ces lignes

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   Range("A1").AutoFilter Field:=1, Criteria1:="Page"
      Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
      Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
   Range("A1").AutoFilter

J'obtiens alors une erreur 1004 "pas de cellule correspondante"
Si je comprends bien le code, je fais un filtre sur les lignes contenant la valeur "Page" . Est-ce bien cela?
Or dans mon cas, la cellule contient "Page 1-00001".
En fonction des lignes, comme vous l'aurez deviné, le nombre de page s'incrémente.
Du coup comment puis-je lui indiquer : fait un filtre qui contient le mot Page ?
Ai-je le choix ou faut-il que je passe par une colonne intermédiaire ?

je vous remercie.

[joe.levrai]

Bonjour,

ton Criteria1 est ici "la cellule est égale à Page"

pour un "contient", tu dois encadrer ta chaine avec des *

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:="*Page*"

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Range("A1").AutoFilter

J'obtiens alors une erreur 1004 "pas de cellule correspondante"

Essaye de remplacer Range("A1") par l'ensemble de la zone sur laquelle s'applique ton filtre.

[Marc-L]

Et SpecialCells est inutile car Delete gère déjà uniquement le visible …

Avant de commencer de coder, effectuer les manipulations en ayant au préalable activé l'Enregistreur de macros :
une base de code est livrée sur un plateau !

[CPE23]

Merci à tous !