Discussion :

[theory23]

Bonjour,

Je me permet de m'adresser à vous car je ne connais absolument pas la programmation Excel.

Je possède un fichier contenant 32000 lignes. Le problème, c'est que parfois, des lignes mauvaises s'intercalent comme des sauts de lignes ou encore des chiffres.

Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
$,178.00,T* 2009-08-19 02:38:51 81
11
$,178.00,T* 2009-08-19 02:38:51 181
11
$,178.00,T* 2009-08-19 02:38:51 282
1
$,178.00,T* 2009-08-19 02:38:51 382
 
$,178.00,T* 2009-08-19 02:38:51 785

et je souhaiterais supprimer les mauvaises lignes, à savoir les lignes vides ou les lignes avec les "11" ou "1" pour obtenir :

Code :

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

1
2
3
4
5
6
 
$,178.00,T* 2009-08-19 02:38:51 81
$,178.00,T* 2009-08-19 02:38:51 181
$,178.00,T* 2009-08-19 02:38:51 282
$,178.00,T* 2009-08-19 02:38:51 382
$,178.00,T* 2009-08-19 02:38:51 785

Quelqu'un aurait-il une idée?

Merci d'avance!

[oohcalme]

Bonjour,

Toutes tes valeurs sont-elles rentrés dans la même colonne et es-tu sûr que les mauvaise valeurs sont toujours 1 ou 11 ou une ligne vide ?

[theory23]

Oui toutes les valeurs sont dans la même colonne et effectivement, les mauvaises valeurs sont uniquement 1,11 ou une ligne vide (je ne sais pas pourquoi d'ailleurs...)

[oohcalme]

tu peux alors exécuter une requête de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub SupprMauvaiseValeur()
 
Dim Cell As Range 'cellule mobile pour tester la valeur dans ta colonne
 
'For Each Cell In ThisWorkbook.Worksheets("NOM DE LA FEUILLE").Range("LETTRE LA COLONNE:LETTRE DE LA COLONNE")
For Each Cell In ThisWorkbook.Worksheets("Feuil1").Range("A:A")
    If Cell.Value = 1 Or Cell.Value = 11 Or IsEmpty(Cell) = True Then
        Cell.EntireRow.Delete
    End If
Next
 
End Sub

Tu copie ça dans dans le code de la page concernée puis tu exécute

ps: n'oublies pas de faire une sauvegarde avant d'exécuter, on ne sait jamais...

[ullan]

Bonjour,

C'est possible par macro ou par formule.

Une proposition par formule.
Les données en colonne A
Insérer une colonne, par exemple A, les données se déplaçant en colonne B.
En A1 la formule :

Code :

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

=SI(GAUCHE(B1)="$";"";"x")

Copier la formule vers le bas
Filtrer la colonne A sur "x"
Touche clavier F5 - Cellules - Cellules visibles seulement - OK
Menu Edition - Supprimer - Lignes entières - OK
Supprimer la colonne A

[oohcalme]

ullan....c'est pour ça que t'es un membre éclairé...

theory23, bin le mieux effectivement c'est par la formule si tu ne connais pas vba ; comme ça au moins tu peux comprendre et maîtriser ce que tu fais avec les formules.

[theory23]

Super merci, je vais essayer les deux solutions!

Je viens de lancer l'éxécution de la macro, pour l'instant ça mouline, 31000 lignes à traiter, ça prend du temps...

Merci en tout cas de votre aide, si je n'y arrive pas, je vous ferais signe.

[oohcalme]

Oups.... dans le doute
Arrêtes la macro avec Ctrl + Pause...
et modifie la partie du code suivant

Code :

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

Range("A:A")

par

Code :

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

Range("A1:A50000")

en mettant la ligne de début et la ligne de fin...

c'est possible que ça tourne pour rien là... ma faute !

EDIT : Mon code comporte une erreur ; si deux lignes à la suite sont mauvaises il ne les efface pas (il faut refaire tourner la macro ou la modifier un peu)

[Fvandermeulen]

Bonjour à tous,
Je me permet d'intervenir car dans le cas où on supprime des lignes (et surtout si on supprime des lignes si vide) il faut mieux utiliser un "for to" avec step négatif.

Donc:

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 SupprMauvaiseValeur()
 
Dim i As Long 'Variable pour la boucle
Dim DerLig As Long 'Variable qui récupèrera le numéro de la dernière ligne remplie
 
DerLig = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row 'Récupère la dernière ligne remplie de la colonne A
 
For i = DerLig To 2 Step -1 'Boucle de la dernière ligne remplie en A jusque la ligne 2 (j'imagine qu'il y a une ligne de titre sinon "to 1")
 
    'If pour tester les valeurs à supprimer
     If Sheets("TaFeuille").Cells(i, 1).Value = 1 Or Sheets("TaFeuille").Cells(i, 1).Value = 11 Or IsEmpty(Sheets("TaFeuille").Cells(i, 1).Value) = True Then
        Rows(i).Delete 'Supprime la ligne
    End If
Next
 
End Sub

Il reste à changer le nom TaFeuille par le nom réel de ta feuille et de tester (je l'ai pas fait )

A+