[VBA-E] Problème pour masquer des colonnes.

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:

---

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.

Essaie sur une nouvelle feuille

Code:

---

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+

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:

---

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+

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.