Discussion :

[jawed]

Bonjour le forum
j'ai un fichier excel non convertie (source CSV)
je voudrais si c'est possible supprimer toutes les lignes ne commançant pas par :
307* ou 345* ou 353* ou 369* ou 324* ou 363 ou 346* ou 365*
Cordialement
A bientot

[kiki29]

Salut, à consulter : Les filtres avancés ou élaborés dans Excel, sinon via une boucle sur les lignes et utilisation de not like.

[jawed]

Bonsoir kiki29
merci pour votre retour; mais le problème c'est que je suis néophyte en matière de VBA ;un code serai le bienvenu
encore merci pour votre aide
Cordialement

[Malick]

jawed

La comptabilité c'est beau
En supposant que tes numéros de compte se trouvent dans la colonne A, voici un code qui devrait régler ton problème :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub BtnSupprimerLigne_Click()
    Dim i As Integer
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If Left(Range("A" & i), 3) <> 307 And Left(Range("A" & i), 3) <> 345 And Left(Range("A" & i), 3) <> 353 And Left(Range("A" & i), 3) <> 369 And Left(Range("A" & i), 3) <> 324 And Left(Range("A" & i), 3) <> 363 And Left(Range("A" & i), 3) <> 346 And Left(Range("A" & i), 3) <> 365 Then
        Range("A" & i).EntireRow.Delete
      End If
    Next
End Sub

Cordialement,
Malick

[jawed]

Bonjour milkoseck

Effectivement j'aime beaucoup le métier de comptable

Merci beaucoup pour votre réponse, ça marche très bien.

Seulement pour comprendre voulez vous m'expliquer les codes suivant:

Code :

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

For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1

Code :

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

Left(Range("A" & i), 3) <> 307

Cordialement

[Malick]

Code :

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

For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1

Cette ligne permet d'identifier le numéro de la dernière ligne non vide en partant du bas vers le haut ; cela jusqu'à la première ligne.

Code :

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

Left(Range("A" & i), 3) <> 307

Cette ligne récupère, pour chaque cellule, les trois premiers chiffres et le compare au numéro 307.

J'espère que cela t'aidera.

Cordialement,
Malick