Cacher un maximum de colonne - erreur 400

Le
msavel
Bonjour,

J’essaye de cacher certaines colonnes d une feuille EXCEL… la Macro fonctionne correctement sauf que si trop de colonnes sont selectionnees, un message d’erreur s’affiche “400”.
Cela me semble etre du a la quantite d information sur la page car j’arrive a cacher par ailleurs la totalite d’une page vide…

Ci dessous ma procedure,

Private Sub D4_Change()

Dim Range_A As Range, a As Integer
a = 0
For i = 1 To ActiveSheet.Columns.Count
If Cells(11, i).Value = "D4" And a = 0 Then
Set Range_A = Cells(1, i)
a = 1
End If

If Cells(11, i).Value = "D4" And a = 1 Then Set Range_A = Union(Range_A, Cells(11, i))

Next i

If Range_A.ColumnWidth = 0 Then Range_A.ColumnWidth = 8 Else: Range_A.ColumnWidth = 0

End Sub

J’ai egalement essaye de cacher les colonnes avec Range_A.EntireColumn.hidden = true mais ca ne marche pas mieux…

Grand merci d’avance a celui qui a une idee pour me tirer de ce mauvais pas !!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Publicité
Poster une réponse
Anonyme