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.