Supprimer des colonnes vides en gardant les 2 premières lignes Fermé

Question

Bonjour, 

Je récupère des données dans un fichier excel qui contient un nombre de colonnes et un nombre de lignes important.
Je souhaite supprimer les colonnes qui sont entièrement vides afin d'obtenir un tableau lisible facilement. Mais je souhaite garder la première ligne de mon tableau, elle contient le titre des colonnes.
Je ne suis pas expert en VBA, est ce que quelqu'un pourrait m'aider svp pour la macro ? c'est surement avec une boucle "For" et une fonction "Delete", mais mes compétences s'arrêtent là !
Merci beaucoup.

Mike-31 · Answer

Bonjour,

Il est possible de supprimer une colonne entière sans problème, il est également possible de supprimer la colonne excepté la première ligne mais dans ce cas le données vont se décaler et l'entête de la première ligne ne correspondra plus à la colonne parce que les données de la colonne de droite vont se déplacer d'une colonne vers la gauche

Mike-31 · Answer

Re,

genre de code pour surveiller les colonnes de 1 à 100 soit de A à CV sur les lignes de 2 à 100

Sub Macro1()
Dim i As Integer
On Error Resume Next
Application.ScreenUpdating = False
For i = 100 To 1 Step -1
If Cells(100, i).End(xlUp).Row = 2 Then Cells(1, i).EntireColumn.Delete
Next i
Application.ScreenUpdating = True
End Sub

 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Maurice · Answer

Bonjour

et voir aussi

Sub DelColVide()
Dim C, Dercol As Long
'pour la dernière colonne
Dercol = Cells(1, Columns.Count).End(xlToLeft).Column
   Application.ScreenUpdating = False
      For C = Dercol To 1 Step -1
         If Cells(Rows.Count, C).End(xlUp).Row < 2 Then Columns(C).Delete
      Next
   Application.ScreenUpdating = True
End Sub
 
A+
Maurice

Supprimer des colonnes vides en gardant les 2 premières lignes

3 réponses

Discussions similaires