Comment supprimer rapidement plusieurs colonnes vides dans Excel ?
Lorsque vous importez des données dans Microsoft Excel à partir de pages web, de fichiers CSV, de fichiers texte, etc., de nombreuses colonnes vides peuvent apparaître. Les supprimer une par une devient alors fastidieux. C’est pourquoi de nombreux utilisateurs recherchent des méthodes simples pour résoudre ce problème. Cet article présente quelques astuces efficaces pour supprimer rapidement plusieurs colonnes vides.
Supprimer plusieurs colonnes vides dans une feuille de calcul à l’aide d’une formule
Supprimer plusieurs colonnes vides dans une feuille de calcul à l’aide d’un code VBA
Supprimer plusieurs colonnes vides comportant un en-tête à l’aide d’un code VBA
Supprimer plusieurs colonnes vides dans une feuille de calcul à l’aide d’une formule
Dans Excel, vous pouvez appliquer une formule pour déterminer si les colonnes sont vides ou non, puis utiliser la fonctionnalité Trier afin de regrouper toutes les Colonnes vides, avant de les supprimer en une seule fois. Procédez comme suit :
1. Ajoutez une nouvelle ligne en haut de votre plage de données, comme illustré dans la capture d’écran :
2. Saisissez ensuite la formule ci-dessous dans la cellule A1, puis faites glisser la poignée de recopie vers la droite pour l’appliquer aux autres cellules : la valeur VRAI s’affiche si la colonne est vide, sinon FAUX apparaît (voir la capture d’écran).
3. Sélectionnez ensuite la plage de données incluant la ligne d’aide, puis cliquez sur « Données » > « Trier », comme illustré dans la capture d’écran :
4. Dans la boîte de dialogue « Trier » qui s’ouvre, cliquez sur le bouton « Options ». Dans la boîte de dialogue « Options de tri », sélectionnez l’option « Trier de gauche à droite » (voir les captures d’écran).
 |  |  |
5. Cliquez sur OK pour revenir à la boîte de dialogue « Trier », puis sélectionnez « Ligne 1 » dans la liste déroulante « Trier par », choisissez « Valeurs des cellules » dans la section « Trier selon » et sélectionnez « Du plus grand au plus petit » dans la section « Ordre » (voir la capture d’écran).
6. Toutes les colonnes vides ont alors été regroupées à gauche de vos données. Il ne vous reste plus qu’à toutes les sélectionner, à cliquer dessus avec le bouton droit et à choisir « Supprimer » pour les effacer d’un seul coup — voir la capture d’écran :
Supprimer plusieurs colonnes vides dans une feuille de calcul à l’aide d’un code VBA
Si vous préférez utiliser une macro VBA, la tâche devient bien plus simple. Le code VBA ci-dessous est là pour vous aider. Suivez ces étapes :
1. Maintenez les touches « Alt + F11 » enfoncées dans Excel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur « Insertion » > « Module », puis collez la macro suivante dans la fenêtre qui s’ouvre.
Code VBA : Supprimer plusieurs Colonnes vides dans la sélection :
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. Appuyez sur la touche F5 pour exécuter cette macro, puis sélectionnez la plage souhaitée dans la boîte de dialogue qui s’ouvre. Voir la capture d’écran :
4. Cliquez sur OK ; toutes les colonnes vides de la sélection seront alors supprimées. Voir la capture d’écran :
Supprimer plusieurs colonnes vides dans Plage sélectionnée / Feuille de calcul actuelle / l’intégralité du classeur avec Kutools pour Excel
L’utilitaire « Supprimer les lignes/colonnes masquées » de Kutools pour Excel vous permet de supprimer rapidement plusieurs lignes ou colonnes vides en une seule opération.
Après avoir installéKutools for Excel, procédez comme suit :
1. Cliquez sur « Kutools » > « Supprimer » > « Supprimer les lignes/colonnes masquées (visibles) », comme illustré dans la capture d’écran :
2. Dans la boîte de dialogue « Supprimer les lignes/colonnes masquées (visibles) », définissez la portée de l’opération à l’aide de la liste déroulante « Rechercher dans ». (Si vous optez pour « Plage sélectionnée », veillez à sélectionner au préalable la plage concernée.) Cochez ensuite « Colonnes » sous « Type de suppression », puis choisissez « Colonnes vides » dans « Type détaillé ». Voir la capture d’écran :
3. Cliquez ensuite sur OK. Les colonnes vides ont été supprimées de la plage sélectionnée. Voir la capture d’écran :
Supprimer plusieurs colonnes vides comportant un en-tête à l’aide d’un code VBA
Parfois, vous pouvez souhaiter supprimer toutes les colonnes vides qui ne contiennent qu’un en-tête dans votre feuille de calcul. Le code VBA ci-dessous vous sera particulièrement utile. Suivez les étapes suivantes :
1. Maintenez les touches « Alt + F11 » enfoncées dans Excel pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Cliquez sur « Insertion » > « Module », puis collez la macro suivante dans la fenêtre du module.
Code VBA : Supprimer toutes les colonnes vides comportant un en-tête
Sub deleteblankcolwithheader()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’ouvrira alors pour vous informer que les colonnes vides comportant un en-tête seront supprimées — voir la capture d’écran :
4. Cliquez ensuite sur OK : toutes les colonnes vides ne contenant qu’un en-tête dans la feuille de calcul actuelle seront supprimées d’un seul coup. Voir les captures d’écran :
 | |  |
Autres articles associés :
- Supprimer toutes les lignes ou colonnes masquées dans Excel
- Si vous avez un classeur volumineux avec de nombreuses lignes et colonnes masquées dont vous n’avez plus besoin, comment les supprimer rapidement ?
- Supprimer toutes les images ou autres objets dans Excel
- Si vous souhaitez supprimer toutes les images depuis Microsoft Excel, sélectionner chaque image une par une peut s’avérer très chronophage. Les astuces suivantes peuvent faciliter cette tâche.
- Supprimer des lignes en fonction de Couleur de fond dans Excel
- Comment supprimer une ligne entière en fonction de la couleur de fond ? Dans cet exemple, vous devez supprimer toutes les lignes dont les cellules ont une couleur de fond bleue, comme illustré dans la capture d’écran ci-dessous. Cet article vous propose plusieurs codes pour effectuer cette opération dans Excel.
- Supprimer toutes les lignes contenant un texte spécifique dans une colonne des feuilles Google
- Supposons que vous ayez une plage de données dans une feuille Google et que vous souhaitiez supprimer certaines lignes en fonction des valeurs d’une colonne spécifique. Par exemple, vous voulez supprimer toutes les lignes contenant le texte « Complete » dans la colonne C. Cet article vous explique précisément comment résoudre ce problème dans Google Sheets.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels