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