Répondre à la discussion
Affichage des résultats 1 à 3 sur 3

Supprimer 4 lignes sur 5 dans Excel (VBA)



  1. #1
    Swiss_Knight

    Supprimer 4 lignes sur 5 dans Excel (VBA)


    ------

    Bonjour,
    je souhaiterai supprimer 4 lignes sur 5 dans un fichier excel de plusieurs colonnes et plusieurs milliers de lignes. (toute la ligne doit partir, pour toutes les colonnes hein).
    En gros j'ai ça :

    A B C ...
    1
    2
    3
    ...

    Et j'aimerai ça :

    A B C ...
    1
    6
    11
    16
    ...

    Je n'y connais strictement rien en VBA alors je m'en remets à vous.
    Un grand merci d'avance !!

    PS : j'ai gribouillé ça mais ça efface absolument tout mon fichier :

    Code:
     Sub Delete_Every_Other_Row() 
    
       For I = 0 To (Selection.Rows.Count -1) 
           If I Mod (5) <> 1 Then 
               ' ...delete an entire row of cells. 
               Selection.Rows.EntireRow.Delete 
           End If 
       Next I 
    
    End Sub

    -----
    Dernière modification par JPL ; 03/06/2010 à 16h06. Motif: Ajout de la balise Code pour la lisibilité

  2. #2
    bzh_nicolas

    Re : Supprimer 4 lignes sur 5 dans Excel (VBA)

    Le problème vient de cette ligne je pense : Selection.Rows.EntireRow.Delet e

    Tu ne resélectionne pas la ligne à effacer.
    Voilà comment je vois le code. A relire et tester, je l'ai fait de tête.
    Code:
    Sub Delete_Every_Other_Row()
    
    For I = 1 To Worksheets("NomDeTaFeuille").Rows.Count
      'recuperation du nombre de ligne à traiter
      'pas besoin de Sélectionner comme ça
      'tu pars de 1 car la première ligne est numéroté 1 sur excel
      If I Mod (5) <> 1 Then
        ' ...delete an entire row of cells.
        Worksheet("NomDeTaFeuille").Rows(I).Delete
      End If
    Next I
    
    End Sub
    Dernière modification par bzh_nicolas ; 02/06/2010 à 19h26.

  3. #3
    mécano41

    Re : Supprimer 4 lignes sur 5 dans Excel (VBA)

    Bonjour,

    Voici une solution...

    Cordialement
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Supprimer des lignes dans un fichier .dat
    Par akabus47 dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 30/03/2010, 10h42
  2. vba excel
    Par amino18 dans le forum Logiciel - Software - Open Source
    Réponses: 3
    Dernier message: 20/12/2009, 16h55
  3. excel vba
    Par lisette45170 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 02/05/2009, 12h15
  4. compter dans excel des lignes différentes non masquées
    Par run dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 13/08/2008, 08h54
  5. problème utilisation VBA sur excel 2007
    Par Big Boy dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 16/02/2007, 01h00
Découvrez nos comparatifs produits sur l'informatique et les technologies.