supprimer colonnes vides dans un tableau

[Francis]

Bonsoir le forum
Suite à un tri dans un tableau, je désire cacher les colonnes vides .Sur une colonne je sais faire. Je teste dans une colonne, la dernière cellule vide.

Derligne = Cells(Rows.Count, "E").End(xlUp).Row
If Derligne = "9" Then
Columns("E:E").Select
Selection.EntireColumn.Hidden = True
End If

Mais je désire balayer toute les colonnes de ce tableau de 5 à 15 et alors… ça se complique je m’emmêle dans les next et les for.
Si quelqu’un peut m’aider.
Merci
Francis

 

[ninbihan]

Re : supprimer colonnes vides dans un tableau

Bonsoir le forum, Francis

Tu peux faire une boucle:

for i=5 to 15
Derligne = Cells(Rows.Count,i).End(xlUp).Row
If Derligne = "9" Then
cells(1,i).EntireColumn.Hidden = True
End If
next i

Bonne soirée,

Ninb

 

[wilfried_42]

Re : supprimer colonnes vides dans un tableau

bonjour francis, ninbihan

for i = 15 to 5 step -1
if cells(650000,i).end(xlup).row = 9 then cells(1,i).entirecolumn.hidden = true
next i

ninbihan : il y a un hic dans ta boucle

si la colonne 5 est supprimer, la 6 devient 5 et la 7 devient 6, etc
au prochain next, la nouvelle 5 est loupée

bonne soirée

 

[ninbihan]

Re : supprimer colonnes vides dans un tableau

Bonsoir Wilfried,

D'accord avec toi si delete, mais francis demande juste masqué...
Francis tu peux confirmer ?

 

[wilfried_42]

Re : supprimer colonnes vides dans un tableau

re:

exacte, j'ai mis personnelement un sacre coup de balai, le terme balayer m'a enduit d'erreur lol merci, je corrige qu'il ne perde pas son classeur

 

[Francis]

Re : supprimer colonnes vides dans un tableau

bonsoir Wilfried42, Ninbihan et le forum
Merci pour vos réponses rapides.
je confirme, je veux seulement les cacher.
et vos lignes fonctionnent très bien
Merci
Francis