Ouvrir fichier excel puis supprimer ligne

Question

Bonjour, 

J'ai un petit soucis concernant une macro que j'essaie de réaliser pour le boulot. Je suis novice dans ce domaine.

Je dois à l'aide de la macro ouvrir mon fichier excel puis supprimer toutes les lignes qui contiennent une valeur supérieur à 3300 en colonne C.

Voila ce que j'ai :

J'ouvre mon fichier excel suivant son nom :

Sub macro()

    For i = 1 To 130
    feuille = Format(i, 0) & "DAP.tif.xls"
        
    ChDir "C:\Documents and Settings\mc225714\Bureau\Supp3300"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\mc225714\Bureau\Supp3300\" & Format(i, 0) & "DAP.tif.xls", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        , Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
        
Et la je lui dis de supprimer les lignes avec une valeur supérieur à 3300 mais il manque quelque chose je pense. J'ai récupérer ça sur internet mais il me dit "erreur 424 objet requis"

Dim cel As Range
For Each cel In feuille
If Val(cel.Value) >= 3300 Then
cel.EntireRow.Delete
End If
Next cel
Next i
    End Sub

Merci de votre aide

Bonne journée

Configuration: Windows XP / Firefox 4.0

lermite222 · Answer

Bonjour,
Après avoir ouvert le fichier texte...
Il est afficher convenablement ? chaque donnée dans une colonne ?
A+

tius38 · Answer

Oui , dans chaque colonne (A,B,C,D et E), j'ai des valeurs à partir de la ligne 2 et le nom des colonnes en ligne 1

lermite222 · Answer

Et dans quel colonne tu peu avoir 3300 ?

tius38 · Answer

Dans la colonne C. Si la valeur est supérieure à 3300, ça répond pas à mes conditions donc il faut que je supprime la ligne pour pouvoir faire mes calculs ensuite.

lermite222 · Answer

Une tite macro qui va faire ça..
Sub SupprimerLignes()
Dim Lig As Long
    For Lig = Range("C65536").End(xlUp).Row To 2 Step -1
        If Cells(Lig, "C").Value > 3300 Then
            Rows(Lig).Delete
            Lig = Lig + 1
        End If
    Next Lig
End SubA+

tius38 · Answer

Ça marche nickel :). Mais par contre j'arrive pas à combiner les deux. Ouvrir mes fichiers et ensuite supprimer les lignes, c'est bizarre.

Merci en tout cas, bonne journée

lermite222 · Answer

Tu ouvre 130 feuille ou tu met tes 130 fichiers dans une seule feuille?? 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

tius38 · Answer

Nan j'ai 130 fichiers excels et dans chacun d'eux il faut que j'enlève les lignes qui ont une valeurs supérieur à 3300 en colonne C. Donc dans la macro j'ouvre les fichiers, je supprime les lignes si il y en a et ainsi de suite pour les 130 fichiers.

Voila la macro mais elle marche pas en l'état. Elle ouvre le fichier et c'est tout. Par contre si je demande pas d'ouvrir le fichier et que je le fais de maniere individuelle pour les 130, la partie que tu m'as donné pour supprimer la ligne fonctionne.

Sub macro()

    For i = 1 To 130
    feuille = Format(i, 0) & "DAP.tif.xls"
        
      ChDir "C:\Documents and Settings\mc225714\Bureau\Supp3300"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\mc225714\Bureau\Supp3300\" & Format(i, 0) & "DAP.tif.xls", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
       
    
    Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _
       :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
       
    Next i
    
    Dim Lig As Long
    For Lig = Range("C65536").End(xlUp).Row To 2 Step -1
        If Cells(Lig, "C").Value > 3300 Then
            Rows(Lig).Delete
            Lig = Lig + 1
        End If
    
    Next Lig
 
 End Sub

Il doit manquer un truc entre l'ouverture du fichier et la suite

lermite222 · Answer

Tu n'a pas répondu à ma question. 
1°) Tu ouvre le 1er fichier...  
2°) tu ouvre le 2ém.. Où se trouve-t-il ? sur une autre page ou en dessous de l'autre ? (d'après ta macro il écrase le précédant.) 
En fait, si tu veux mettre tes 130 fichiers l'un en dessous de l'autre ta macro n'est pas bonne. 
Explique.. 
EDIT :
En relisant un de tes poste, ce sont des fichier Excel que tu ouvre... alors POURQUOI LES OUVRIR EN TEXTE ????

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

tius38 · Answer

1) j'ouvre mon premier fichier excel
2) je supprime mes lignes
3) (qui est pas encore sur la macro mais j'ai le code il marche) il enregistre mon fichier et le ferme
4) j'ouvre mon deuxième fichier exel
5)...

Ben en fait pour avoir la formule d'ouverture automatique, j'ai fais "nouvelle macro" et ça a enregistré ce que je faisais et j'ai récupérer ça en changeant juste un truc pour ouvrir mes fichiers les uns après les autres suivant leur nom. Je sais pas pourquoi ils s'ouvrent en texte.

zavenger · Answer

Bonjour,

Ta fin de boucle (next i) n'est pas au bon endroit, tu dois inclure ta boucle d'effecement dedant.

donc 

for i ....

for Lig ...

next Lig

next i

lermite222 · Answer

Sub SuppLigne()
Dim i As Integer, Lig As Long
Dim Chemin As String
    Chemin = "LeChemin\Complet\DesFichier\"
    For i = 1 To 130
        Workbook.Open Chemin & i & "DAP.tif.xls"
        For Lig = ActiveWorkbook.Sheets("Feuil1").Range("C65536").End(xlUp).Row To 2 Step -1
            If Cells(Lig, "C").Value > 3300 Then
                Rows(Lig).Delete
                Lig = Lig + 1
            End If
        Next Lig
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Next i
End Sub
Il faut adapter le chemin des fichiers
Aussi le nom de la feuille où sont les données (ici "Feuil1").
J'ai supposé que tes classeurs se nommaient.. 1DAP.tif.xls.. 2DAP.tif.xls... etc.

tius38 · Answer

Oui tu as raison mes classeurs sont nommés 1DAP.tif.xls ...etc

Sub SuppLigne()


Dim i As Integer, Lig As Long
Dim Chemin As String
    Chemin = "C:\Documents and Settings\mc225714\Bureau\Supp3300\"
    For i = 1 To 130
        Workbook.Open Chemin & i & "DAP.tif.xls"
        For Lig = ActiveWorkbook.Sheets("feuil1").Range("C65536").End(xlUp).Row To 2 Step -1
            If Cells(Lig, "C").Value > 3300 Then
                Rows(Lig).Delete
                Lig = Lig + 1
            End If
        Next Lig
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Next i
End Sub


La ligne Workbook.Open Chemin & i & "DAP.tif.xls" ne fonctionne pas. Ca me met erreur 424 Objet requis.

lermite222 · Answer

Tu pourrais déposer un exemple du classeur 1DAP.tif.xls sur CiJoint.fr et mettre le lien dans un poste suivant ?

tius38 · Answer

Voila le lien pour le fichier : 

http://www.cijoint.fr/cjlink.php?file=cj201104/cijbwBRu7R.xls

lermite222 · Answer

Change la ligne FOR.. par 
        For Lig = ActiveWorkbook.ActiveSheet.Range("C65536").End(xlUp).Row To 2 Step -1
Pour l'erreur..
Fait une autre macro avec..
Sub TestChemin()
Dim Chemin As String
    Chemin = Dir("C:\Documents and Settings\mc225714\Bureau\Supp3300\")
    MsgBox Chemin
End Sub
si tu n'a pas d'erreur dans le chemin le MsgBox devrait t'affiche le chemin, sinon ce serra vide
tu dis 
A+

tius38 · Answer

Une fois la macro lancé, à la fin ça m'ouvre une page excel vide avec une boite de dialogue ou il y a écrit "1DAP.tif.xls" avec OK aprés.

lermite222 · Answer

Grrr, autant pour moi... faut un S à WorkBook
Workbooks.Open Chemin & i & "DAP.tif.xls" A+

tius38 · Answer

Sub SuppLigne()


Dim i As Integer, Lig As Long
Dim Chemin As String
Chemin = "C:\Documents and Settings\mc225714\Bureau\Supp3300\"
For i = 1 To 2
Workbooks.Open Chemin & i & "DAP.tif.xls"
For Lig = ActiveWorkbook.ActiveSheet.Range("C65536").End(xlUp).Row To 2 Step -1
If Cells(Lig, "C").Value > 3300 Then
Rows(Lig).Delete
Lig = Lig + 1
End If
Next Lig
ActiveWorkbook.Save
ActiveWorkbook.Close
Next i
End Sub

Il n'y a plus de bug, elle va jusqu'au bout mais ça ne me supprime pas les valeurs supérieures à 3300. J'y comprends plus rien :)

lermite222 · Answer

Euuuh, tu a mis For i = 1 To 2  donc ça ne traite que les deux premier fichiers 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

tius38 · Answer

Oui oui c'est normal, avant de faire les 130 je là test sur un petit nombre.

lermite222 · Answer

Reste un problème sur tes fichiers, il y a un point de millier, il faut probablement le supprimer AVANT.
Sinon ça efface tout
C'est ça le problème ?

tius38 · Answer

Oui il faut le changer en virgule, si je le fais pas effectivement ça me supprime tout les fichiers (en lançant une macro individuel sans l'ouverture automatique)

J'ai la formule, elle fonctionne :

Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _
       :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


Si on regarde elle remplace un point par un point mais j'ai chercher sur internet et pour que ça marche il fallait mettre comme séparateur décimal une virgule et remplacer un point par un point,

lermite222 · Answer

autre constatation..
Tes fichiers ont le séparateur de décimale "." (point)
Si c'est le cas, si je prend ton modèle (le 5) il n'y na aucune donnée supérieure à 3300
Tu en dis...

tius38 · Answer

Oui dans le 5 il y a aucune valeur supérieure à 3300, c'est vrai

Ici il y en a un avec, pour tester la macro c'est mieux :

http://www.cijoint.fr/cjlink.php?file=cj201104/cijwLUi0Oa.xls

lermite222 · Answer

je pense que ça y est...
Sub SuppLigne()
Dim i As Integer, Lig As Long
Dim Chemin As String
    Chemin = "C:\Documents and Settings\mc225714\Bureau\Supp3300\"
    For i = 1 To 2
        Workbooks.Open Chemin & i & "DAP.tif.xls"
        Columns("C:C").NumberFormat = "@"
        For Lig = ActiveWorkbook.ActiveSheet.Range("C65536").End(xlUp).Row To 2 Step -1
            Cells(Lig, "C") = Replace(Cells(Lig, "C"), ".", ",")
            If Cells(Lig, "C").Value > 3300 Then
                Rows(Lig).Delete
                Lig = Lig + 1
            End If
        Next Lig
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Next i
End Sub

tius38 · Answer

Malheureusement non lol. Je pense que je dois avoir un problème avec mes fichiers c'est pas possible que rien ne marche.

Quand je la lance, elle fait tout buggé, je suis obligé de fermer via le gestionnaire de tache et si je là fait manuellement pas par pas, ça ne bug pas mais elle ne change rien.

lermite222 · Answer

Tes fichiers ont des formats un peu... exotique, j'ai du recourir à quelques astuces.
J'ai testé sur tes deux classeurs et ça fonctionne parfaitement.
Fait un essais..
Lancer en pas à pas,

Tu met l'éditeur sur un côté de l'écran et Excel de l'autre de façon à voir les deux fenêtre simultanément.
Mettre le curseur DANS la macro et taper F8, ensuite chaque fois que tu tape F8 l'instruction suivante est exécutée.
contrôler le résultat sur Excel après chaque commande
MAIS JE PENSE A UNE CHOSE... OU TU MET LE CODE ???
Il DOIT être dans un module général par exemple Module1,
>> Insertion >> Module, c'est là que tu dois mettre le code.

tius38 · Answer

Effectivement ça marche nickel :), merci beaucoup !!!

Mais je viens de m'apercevoir d'un autre petit truc, aprés avoir fait cela je fais un histogramme et il me dit "la plage d'entrée ne peut contenir des données non numériques". 
J'ai regardé et effectivement les données de la colonne C sont au format texte. On peut les convertir en nombre manuellement. Mais peut-on le faire avec une macro ? Car aprés sur mes 130 fichiers je fais l"histogramme grâce à une macro que j'ai déjà et marche sans problème.

lermite222 · Answer

Mais oui,
Ajoute après la ligne..
    Next Lig
    Columns("C:C").NumberFormat = "0.000"

j'ai plus les fichiers préparés, essaye voir ?
si ça ne va pas tu dis je reprendrais
A+

tius38 · Answer

Nan ça marche pas, mais il n'y a pas de message d'erreur (en automatique ou étape par étape)

lermite222 · Answer

Je crois comprendre ce que tu veux dire,
toutes tes données doivent être convertie ? y compris la colonne D avec décimale et A,B,E,F en entier ?
Si oui, ça n'a plus rien à voir avec ta demande première mais ça peu se résoudre assez facilement.
Tu dis.

tius38 · Answer

Non non les autres colonnes je m'en fou, ce qui m'intéresse c'est que la colonne C pour faire mon histogramme. Et pour faire l'histogramme il faut que les données soient sous forme de nombre et non de texte.
Et aprés la macro qui traite la colonne C, toutes les valeurs de celle-ci sont au format texte.

Donc on peut passer toutes les colonnes au format nombre si c'est plus facile.

lermite222 · Answer

tu n'a pas compris la question, ... 
Ton histogramme, il se sert des 4 colonnes, si oui.. toutes les données de tes fichiers sont en texte faut donc les transformer. 
Si non, la colonne C est transformée en nombre avec la ligne que je t'ai communiquer. 
Bien entendu faut repasser le fichier par la macro, même s'il n'y a plus de données à supprimer. 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

tius38 · Answer

Non je me sers que de la colonne C. Avec la macro suivante je supprime les colonnes D,E,F et je rentre ma plage des classes en colonne F.
Je viens d'essayer de faire l'histogramme aprés être passé avec la macro pour supprimer les lignes et changer la colonne C en nombre mais ça ne marche pas. Il me dit que la plage d'entrée ne peut contenir des valeurs non numériques.

lermite222 · Answer

Oui, là t'est un peu dur à la détente... :-) 
Je viens de te dire que les colonnes  A,B,E,F sont en texte....  F en TEXTE 
Donc ça peu pas marcher, et ça marche pas non plus en manuel. 
change la ligne.. 
Columns("C:C").NumberFormat = "0.000"
par 
Columns("C:F").NumberFormat = "0.000" 

Et REFLECHIT UN PEU quand même... :-)))) 
C'est pas parce qu'ont t'aide que tu dois mettre des oeillères.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

tius38 · Answer

Le fait est que le bug provient pas de la colonne F mais de la colonne C :).

Colonne C, plage d'entrée
Colonne F plage des classes
Et le bug c'est "la plage d'entrée ne peut contenir des données non numériques."

Je viens d'essayer juste en convertissant la colonne C en nombre et l'histogramme marche.

Je réfléchis je réfléchis ^^.

lermite222 · Answer

la colonne C... EST NUMÉRIQUE.
Montre ton code qui affiche l'histogramme

tius38 · Answer

Bonjour bonjour,

Voila le code :

Application.Run "ATPVBAEN.XLA!Histogram", ActiveSheet.Range("$C2:$C100"), "", _
        ActiveSheet.Range("$F$2:$F$19"), False, False, True, False

F2-F19 c'est ma plage des classes
C2-C100 c'est ma plage d'entrée. J'ai mis jusqu'à 100 parce que je ne sais pas comment lui dire de sélectionner que les cases remplis en colonne C mais bon comme ça ça marche.

lermite222 · Answer

Probable que la macro supporte pas les cellules vides, essaye avec...
Dim DerLig As Long
    DerLig = [C65536].End(xlUp).Row
    Application.Run "ATPVBAEN.XLA!Histogram", ActiveSheet.Range("$C2:$C" & DerLig), "", _
    ActiveSheet.Range("$F$2:$F$19"), False, False, True, FalseA+

tius38 · Answer

Ça me mets toujours la même chose : la plage d'entrée ne peut contenir des données non numériques"

lermite222 · Answer

Y a plus qu'une solution pour te dépanner, que tu mette le code de la macros xla.

tius38 · Answer

Ouais je vais faire ça.

Merci pour toute ton aide :)

Bonne journée

Ouvrir fichier excel puis supprimer ligne

43 réponses

Votre réponse

Newsletters