Discussion :

[Lucorah]

Bonjour à tous,
Je suis en train d'écrire un code pour supprimer des lignes si leur valeur dans la colonne B est différente de "13#####".
Problème 1: ma macro cale à la 1841ème ligne environ càd qu'elle s'arrête complétement
Problème 2: elle filtre mal, il me reste plein de lignes ayant autre chose qu'une chaîne "13#####"

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
 
Sub EffecerLignes()
 
Dim CodeVéhicule As String
Dim Cellule As Range
Dim ColCode As Range
 
Set ColCode = Worksheets("Données").Range("B2:B" & Range("B65536").End(xlUp).Row)
 
For Each Cellule In ColCode
    CodeVéhicule = Cellule.Value
        If CodeVéhicule <> "13#####" Then
        Cellule.EntireRow.Delete
        End If
Next
End Sub

J'ai aussi essayé en mettant

Code :

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

if left(CodeVéhicule,2) <> "13"

Sans succès...

Merci de proposer vos solutions

[Didier Gonard]

Bonjour,

ça irait beaucoup plus rapidement en utilisant les filtres automatiques, tu fais un essai manuel sur la feuille en direct avec filtres auto, personnalisé égal à la chaîne voulue. Si le résutat te convient tu regardes dans la FAQ et les tutos comment minipuler les filtres auto et leurs résultats.
En premier tu refais la même manip que ci-dessus, mais avec l'enregistreur de macro activé, ce qui te donnera tous les mots clefs pour le départ..

cordialement,

Didier

[PeyePo]

Bonjour

Est-ce que tes données après le 13 sont des chiffres ou des lettres ?

En effet il se peut qu'une partie de tes données soient formatés comme des chiffres et le reste des lettres.

Si c'est le cas tu pourrais par exemple lors du test faire une conversion en lettre avec la fonction Cstr.

Essayes

Code :

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

CodeVéhicule = Cstr(Cellule.Value)

c'est sans garantie c'est juste une idée à tester.

[Lucorah]

Merci de réagir si vite

Pepeyo:
Les lignes que je cherche a extraire sont celles où dans la colonne B le code est composé uniquement de chiffres et commence par "13". je vais regrder de plus près la fonction Cstr pour voir si ça change qqchose

Ormonth:
Je n'utilise pas les filtres automatiques car il s'agit d'une plage de données importées que je ne veux pas convertir en plage de cellules simple et aussi car il me semble qu'en utilisant les filtres automatiques les lignes sont simplement masquées et non supprimées ce qui risque de me jouer des tours pour la suite des opérations.

EDIT: pas plus de succès avec Cstr, beaucoup de valeurs ne sont toujours pas filtrées...

[sabzzz]

bonjour Lucorah, à tous,

lorsque tu doit supprimer des lignes il faut faire la boucle en commencant en bas de la plage et remonter.

Code :

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

For i = Worksheets("Données").Range("B65536").End(xlUp).Row To 2 Step -1

aussi identifier la feuille au deux endroits dans cette commande

Code :

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

Set ColCode = Worksheets("Données").Range("B2:B" & Worksheets("Données").Range("B65536").End(xlUp).Row)

sinon se sera la derniere cellule de la colonne B de la feuille active qui sera prit en compte

[Didier Gonard]

Bonjour,

il me semble qu'en utilisant les filtres automatiques les lignes sont simplement masquées et non supprimées ce qui risque de me jouer des tours pour la suite des opérations.

c'est vrai, mais il y des façons très simple de ne récolter que ce que l'on veut, notamment avec l'argument xlCellTypeVisible de la méthode SpecialCells

cordialement,

Didier

[Lucorah]

Merci Sabzz de te pencher sur le problème, ce que tu dis ma paraît sensé je viens juste d'essayer ce code mais j'ai un petit bug à corriger (je cherche d'où il vient).
Bien vu Ormonth pour xlcelltypeVisible (on sent l'expérience derrère tout ça...)

Je donne des nouvelles dès que j'ai testé la solution de Sabzz sans le bug

EDIT: le bug c'est qu'il ne reconnait plus ma variable Cellule (variable non définie)
J'ai essayé de corriger ça mais pas comme il faut du coup excel pédale dans la semoule depuis 5 mn.

[sabzzz]

le bug c'est qu'il ne reconnait plus ma variable Cellule (variable non définie)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EffecerLignes()
Dim f As Object
Dim i As Integer
Dim CodeVéhicule As String
Set f = Worksheets("Données")
 
For i = f.Range("B65536").End(xlUp).Row To 2 Step -1
    CodeVéhicule = f.Range("B" & i)
        If CodeVéhicule <> "13#####" Then
        Rows(i).Delete
        End If
Next
End Sub

[Lucorah]

J'arrive pas à me dépatouiller de ce bourbier...
Sabzz:
La ligne For i = ... ...
C'est bien une ligne à rajouter avant la ligne For each déjà présente ou elle doit la remplacer?

Edit: Merci beaucoup Sabzz ça fonctionne comme sur des roulettes !!! (tu fais progresser mon stage)
Merci également aux autres intervenants