Discussion :

[martiweb]

Bonsoir.
Je travaille avec Excel 2003 en VBA
Dans une feuille, je voudrais masquer toutes les colonnes vides.
J’utilise toutes les colonnes de la feuille pour avoir le total toujours en colonne IV.
Certaines de ces colonnes contiennent des formules du genre =Feuille1 !B2
J’ai donc utilisé une boucle For Next qui commence à la colonne B jusqu’à la colonne IU

Code :

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

1
2
3
4
5
6
7
8
9
 
     For d = 2 To 254	 'maximum de boucles sur les colonnes avant la colonne Total
     noM = Cells(1, d).Value
        If noM = 0 Then
    	 Cells(1, d).Select
     	ActiveCell.EntireColumn.Select
    	Selection.EntireColumn.Hidden = True
        End If
     Next d

Ma macro fonctionne bien jusqu’à la colonne GH
Là j’ai une erreur 1004 : Impossible de définir la propriété Hidden de la classe Range.
Si j’essai de l’effectuer manuellement :
Format / Colonne / Masquer
J’ai un MessageBox qui me dit : Impossible de déplacer des objets en dehors de la feuille.

Je n'arrive pas à comprendre pourquoi la macro s’arrête à la colonne GH alors que depuis la colonne CS les colonnes sont vides et bien masquées et que les autres colonnes de GH à IU sont vides.
Merci pour vos réponses.

[ouskel'n'or]

Essaie sur une nouvelle feuille

Code :

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

1
2
3
4
5
6
Sub masqueLesColonnes()
Dim d As Integer
    For d = 2 To 254     'maximum de boucles sur les colonnes avant la colonne Total
       ActiveSheet.Columns(d).EntireColumn.Hidden = Cells(1, d).Value = 0
     Next d
End Sub

Testé sans pb
Explication de mon code
Si Cells(1, d).Value = 0, j'ai True
Donc ActiveSheet.Columns(d).EntireColumn.Hidden = True
A+

[spileo]

Bonsoir,

Voici ce que j'ai programmé pour une feuille entièrement vide. Seules les colonnes A, IU, IV ne sont pas masquées.
Si certaines cellules contiennent autre chose que "", alors elles ne sont pas masquées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
Sub test()
    Dim d As Integer
    Dim F As Worksheet
 
    Set F = Application.ActiveWorkbook.Worksheets(1)
    d = 2
 
    While d < 255
        If F.Cells(1, d).Value = Empty Then F.Cells(1, d).EntireColumn.Hidden = True
        d = d + 1
    Wend
End Sub

j'espère que ça répond à ta question.
A+

[martiweb]

C'est OK
Merci.
J'ai tardé à répondre car il y avait toujours 0 réponses à coté de ma question et j'avais un pb d'identification.