Comment supprimer les colonnes vides comportant une en-tête dans Excel ?
Si vous disposez d’une grande feuille de calcul contenant plusieurs colonnes, mais que certaines ne contiennent qu’un en-tête, et que vous souhaitez maintenant supprimer ces colonnes vides (ne contenant qu’un en-tête) afin d’obtenir le résultat illustré dans la capture d’écran suivante, cette tâche peut-elle être résolue rapidement et facilement dans Excel ?
Supprimer les colonnes vides avec un en-tête à l’aide d’un code VBA
Supprimer les colonnes vides avec un en-tête à l’aide d’un code VBA
Dans Excel, il n’existe pas de méthode directe pour accomplir cette tâche, sauf à supprimer les éléments manuellement un par un. Toutefois, je peux vous proposer un code à cet effet. Veuillez suivre les étapes ci-dessous :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du Module.
Code VBA : Supprimer les colonnes vides avec un en-tête :
Sub Macro1()
'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 columns with only headers are 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’affiche alors pour vous informer que les colonnes vides comportant un en-tête seront supprimées.
4. Cliquez sur OK : toutes les colonnes vides ne contenant que des en-têtes dans la feuille de calcul actuelle sont supprimées en une seule opération.
Remarque : si des colonnes vides sont présentes, elles seront également supprimées.
Supprimer plusieurs colonnes vides dans une plage / une feuille de calcul / un classeur avec Kutools pour Excel
Parfois, vous avez simplement besoin de supprimer les colonnes vides. L’utilitaire Kutools pour Excel’s Supprimer les lignes/colonnes masquées (visibles) peut vous aider à accomplir cette tâche facilement.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la plage de colonnes comprenant les colonnes vides à supprimer.
2. Cliquez ensuite sur Kutools > Supprimer > Supprimer les lignes/colonnes masquées (visibles), voir la capture d’écran :
3. Dans la boîte de dialogue Supprimer les lignes/colonnes masquées (visibles), vous pouvez sélectionner la portée de suppression souhaitée dans la liste déroulante « Rechercher dans », choisir Colonnes dans la section Type de suppression, puis sélectionner Colonnes vides dans la section Type détaillé. Voir la capture d’écran :
4. Cliquez ensuite sur le bouton OK : seules les colonnes vides seront supprimées immédiatement. Voir la capture d’écran :
Conseils : grâce à cette fonctionnalité puissante, vous pouvez également supprimer les lignes vides, les colonnes ou lignes visibles, ainsi que les colonnes ou lignes masquées, selon vos besoins.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
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