comment supprimer des colonnes(pas tjs les mêmes)

[Hector]

Bonjour

Il faudrait que je puisse appliquer une macro excel sur un fichier qui affiche des colonnes remplies des données et d'autres complétement vides pour obtenir finalment toutes les colonnes remplies affichées les unes après les autres (cad sans colonnes vides entre celles remplies)

Le problème est que le fichier en question affiche parfois, par ex., la colonne A remplie, la B et la C vide, la D remplie ...., mais d'autres fois, par ex., la colonne A remplie, la B vide, la C remplie .......

Merci beaucoup de votre aide

a vous lire

Héctor

 

[ThomasR]

Bonsoir Hector,

Peux tu joindre un exemple de ton fichier.

sinon quand tu dis des colonnes vide c'est toutes la colonne?

@+
Thomas®

 

[marco57]

Bonsoir Hector, Thomas, le fil et toi le Forum,

Quand tu dis 'supprimer', c'est 'masquer' ou 'supprimer'. Je me permet de pose la question car tu parles aussi d'affichage.

Marco

 

[pat1545.]

Salut

ALT F11 et tu y colles ceci:

Sub DetruireColVides()
dernierecol = ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = dernierecol To 1 Step -1
If Application.CountA(Columns(r)) = 0 Then Columns(r).Delete
Next r
End Sub

Pat

 

[ThomasR]

Bonsoir pat1545, marco57, Hector, le forum,

Super ton code pat1545, je n'avais jamais vu le 'Application.CountA' je n'ai rien trouvé dans l'aide excel à ce sujet.

cela marche avec les lignes .

Merci pour ce joli code

Thomas®

Ps : si il existe d'autre moyen d'utiliser ce counta (mise à part pour une ligne) je suis prenneur. :silly: