Comment faire pour supprimer toutes les autres lignes dans une feuille de calcul Excel

Traductions disponibles Traductions disponibles
Numéro d'article: 213610 - Voir les produits auxquels s'applique cet article
Pour un Microsoft Excel pour Macintosh version de Cet article, reportez-vous à la section 142528.
Agrandir tout | Réduire tout

Résumé

Cet article contient un exemple de Microsoft Visual Basic pour Applications macro que vous pouvez utiliser pour supprimer toutes les lignes dans une plage sélectionnée d'une feuille de calcul Microsoft Excel.

Plus d'informations

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Cela sous-entend, sans toutefois être exhaustif, un processus opérationnel pour des circonstances d'utilisation particulières. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté ainsi qu'avec les outils utilisés pour créer et déboguer les procédures. Les ingénieurs du support technique Microsoft sont en mesure de vous expliquer une procédure particulière mais ne modifieront pas le code proposé en vue d'ajouter des fonctionnalité supplémentaires ou bien de concevoir des procédures qui répondraient à vos besoin spécifiques. Pour utiliser la macro suivante, configurer un classeur Excel comme suit :
  1. Créer un nouveau classeur Microsoft Excel.
  2. Dans une feuille de calcul dans la plage a1: a9, tapez les numéros 1 à 5, ignorer des lignes, comme dans l'exemple suivant :
          A1: 1
          A2:
          A3: 2
          A4:
          A5: 3
          A6:
          A7: 4
          A8:
          A9: 5
    					
  3. Dans le menu Outils , pointez sur Macro, puis sur Éditeur de Visual Basic.

    Remarque : Dans Microsoft Office Excel 2007 et versions ultérieures, cliquez surVisual Basic dans le Code groupe sur le Développeur onglet.
  4. Dans le menu Insertion , cliquez sur Module.
  5. Dans le nouveau module, tapez la macro suivante :
    Sub Delete_Every_Other_Row()
    
       ' Dimension variables.
       Y = False              ' Change this to True if you want to
                              ' delete rows 1, 3, 5, and so on.
       I = 1
       Set xRng = Selection
    
       ' Loop once for every row in the selection.
       For xCounter = 1 To xRng.Rows.Count
    
           ' If Y is True, then...
           If Y = True Then
    
               ' ...delete an entire row of cells.
               xRng.Cells(I).EntireRow.Delete
    
           ' Otherwise...
           Else
    
               ' ...increment I by one so we can cycle through range.
               I = I + 1
    
           End If
    
           ' If Y is True, make it False; if Y is False, make it True.
           Y = Not Y
    
       Next xCounter
    
    End Sub
    						
  6. Basculez vers la feuille de calcul qui contient les données, puis sélectionnez la plage a1: a9.
  7. Pour exécuter la macro, pointez sur Macro dans le menu Outils , puis sur Macros.

    Remarque : Dans Excel 2007 et versions ultérieures, cliquez surMacros dans le Code groupe sur le Développeur onglet.

    Remarque : Pour afficher la Développeur dans le ruban, cliquez sur le Bouton Microsoft Office, cliquez sur Options Excel, cliquez sur le Catégories populaires, cliquez pour sélectionner le Afficher l'onglet Développeur dans le ruban case à cocher, puis cliquez sur OK.
  8. Sélectionnez la Delete_Every_Other_Row macro, puis cliquez sur Exécuter.
Cette macro va supprimer toutes les autres lignes, à partir de la deuxième ligne de la sélection.

Remarque : Si vous avez une liste de données qui contient plusieurs colonnes Sélectionnez la première colonne de données et exécutez la macro.

Propriétés

Numéro d'article: 213610 - Dernière mise à jour: jeudi 25 octobre 2012 - Version: 1.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • Microsoft Excel 2010
  • Microsoft Excel 2013
Mots-clés : 
kbexpertisebeginner kbautomation kbmacro kbdtacode kbhowto kbprogramming kbmt KB213610 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 213610
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com