Discussion :

[subzero25]

Bonjour,
je récupère une fichier texte issue d'une extraction via un erp, et je le met en forme sur excel via l'onglet donnée en cliquant sur donnée externe et choisissant fichier txt.
J'obtiens une mise en forme que je désire changer ducoup j'ai crée un code vba pour pour faire sa.



Voici un aperçu de ce que je souhaite supprimer, les lignes comprenant un tiret rouge.
Mais le soucis c'est que le code le fait en plusiseurs fois il ne supprime pas toute les lignes d'une seul fois.

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
19
20
21
22
23
24
 
Sub test()
Der = ActiveSheet.Cells(Rows.count, "A").End(xlUp).Row
 
Range("A1:N1").Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent4
    .TintAndShade = 0.399975585192419
    .PatternTintAndShade = 0
End With
 
For i = 2 To Der
    Select Case Range("A" & i)
        Case Is = ""
            Rows(i).Delete
        Case Is = "Mag."
            Rows(i).Delete
        Case Left(Range("A" & i), 3) = "---"
        Rows(i).Delete
 
End Select
End Sub

Pour le 3ème Case j'ai voulu tester cette méthode (Left) mais elle ne fonctionne pas non plus. Auparavant je mettais ceci:

Code :

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

1
2
 
Case Is = "--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"

Merci pour votre aide.

[Menhir]

Pour supprimer des lignes ou pour en insérer, il est FORTEMENT conseillé d'aller du bas vers le haut.
Si on va du haut vers le bas, soit on loupe une ligne à chaque suppression, soit il faut mettre en place une instruction permettant de remonter d'un cran à chaque suppression.

Bref :

Code :

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

For i = Der To 2 Step -1

Petit détail : le code que tu présentes ne peut pas fonctionner puisque ta structure "For" n'est pas clôturée par un Next.

Autre détail : la troisième condition de ton Case n'est pas applicable ainsi (et j'ai de gros doutes pour les deux autres).
Il serait plus judicieux d'écrire :

Code :

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

    If Range("A" & i) = "" Or Range("A" & i) = "Mag." Or Left(Range("A" & i), 3) = "---" Then Rows(i).Delete

[subzero25]

Je te remercie ça marche parfaitement.