supprimer colonnes vides dans un tableau

ninbihan

XLDnaute Impliqué

• 21 Avril 2007

• #2

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Avril 2007

• #3

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

Cliquez pour agrandir...

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

 

Dernière édition: 21 Avril 2007

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 21 Avril 2007

• #4

Re : supprimer colonnes vides dans un tableau

Bonsoir Wilfried,

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Avril 2007

• #5

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 21 Avril 2007

• #6

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

 

Vote positif 0 Vote négatif