Discussion :

[Siefch1]

Bonjour,
Lors de l'activate d'un onglet j'applique le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Sub ReportingRD_Activate() 
If Visu2012 = False Then 
'-- réduction des colonnes 2012 
Columns("B:M").ColumnWidth = 0.1 
Else 
'-- affichage des colonnes 2012 
Columns("B:M").ColumnWidth = 10 
End If 
End Sub

==> ça marche nickel

Par contre, j'ai créé un bouton dans l'onglet pour basculer
l'affichage avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Toggle_visu2012() 
If Visu2012 = True Then 
' bascule à False et on cache les colonnes 2012 
Visu2012 = False 
Columns("B:M").ColumnWidth = 0.1 
Else 
' bascule à True et on montre les colonnes 2012 
Visu2012 = True 
Columns("B:M").ColumnWidth = 10 
End If 
End Sub

Lorsque j'appuie sur le bouton, j'ai le message d'erreur suivant :

Erreur d'exécution '-2147417848'
La méthode columnwith a échoué

Et l'excel se ferme méchamment.
Je ne comprends pas car le code me semble correct.
Quelqu'un aurait-il une idée ?

Par avance, merci !

[Siefch1]

En simplifiant au maximum ma macro et ma feuille, j'ai trouvé la cause du problème :
la columnwidth provoque cette erreur lorsque la colonne concernée contient un graphique sparkline !

C'est curieux car, manuellement, on peut le faire sans problème.