Discussion :

[bzh.floriane]

Bonjour, je cherche à supprimer les colonnes vides dans un tableau.
J'ai une feuille de travail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2")

Dans ma Macro, je sélectionne la zone recherchée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set TableFind = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Cells(CellFind.Row + 1, 1).Resize(Ln, 1).EntireRow

J'aimerai supprimer les colonnes vides de cette zone sans modifier ma feuille de calcul. Je copie-colle ensuite ce tableau dans une autre feuille.

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    'Supprimer colonnes vides
    For i = 1 To MaxCol
        NombreVal = TableFind.Application.WorksheetFunction.CountA(TableFind.Columns(i))
        If NombreVal = 0 Then
            TableFind.Columns(i).Delete
        End If
    Next i

Actuellement, les colonnes vides sont aussi supprimés sur le fichier "Classeur_travail.xlsx". je ne veux pas modifier ce fichier mais en extraire une partie, où je supprimer les colonnes vide spui sle colle sur une autre feuille.

[Invité]

Bonjour,

Sauf erreur de ma part, Philippe TULLIEZ et moi-même, nous vous avons déjà répondu ici : Supprimer-colonne-vide.

Nb : Messages auxquels vous n'avez pas daigné répondre.

[bzh.floriane]

Pardon, pour moi cela était un problème différent c'est pour cela. Mais je viens de répondre à l'ancienne discussion du coup. merci