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 !!
