Lorsque vous importez des données à partir d’une source externe, vous pouvez avoir besoin de supprimer des données superflues d’une feuille de calcul. Par exemple, vous devrez peut-être supprimer toutes les deux lignes des données ou toutes les cinq lignes.

Faire cela à la main peut être fastidieux et sujet à des erreurs. Heureusement, vous pouvez créer une macro pour aider à éliminer à la fois l’ennui et les erreurs.

La macro suivante, DeleteRows, supprimera toutes les X lignes de votre feuille de calcul. Tout ce que vous avez à faire est de sélectionner les lignes auxquelles vous souhaitez l’appliquer.

La macro, telle qu’elle est écrite, supprimera toutes les deux lignes. Ainsi, si vous souhaitez supprimer les première, troisième, cinquième et septième lignes commençant par la ligne 10, vous devez sélectionner les lignes 10 à 16, puis exécuter cette macro. Cela entraîne la suppression des lignes 10 (la première ligne), 12 (la troisième ligne), 14 (la cinquième ligne) et 16 (la septième ligne).

Sub DeleteRows()

Dim iStart As Integer     Dim iEnd As Integer     Dim iCount As Integer     Dim iStep As Integer     Dim J As Integer

iStep = 2    'Delete every 2nd row     Application.ScreenUpdating = False     iStart = 1     iCount = Selection.Rows.Count     'Find ending row to start deleting     For J = iStart To iCount Step iStep         iEnd = J     Next

Do While iEnd >= iStart         Selection.Rows(iEnd).Delete         iEnd = iEnd — iStep     Loop     Application.ScreenUpdating = True End Sub

Si vous souhaitez supprimer un autre multiple de lignes, modifiez simplement le paramètre de la variable iStep. Par exemple, si vous souhaitez supprimer toutes les cinq lignes, changez iStep de 2 à 5. (Il vous suffit de faire le seul changement, dans la déclaration iStep = 2.)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2292) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Deleting_Every_X_Rows [Suppression de toutes les X lignes].