Erreur d'exécution '-2147417848' lors d'un columnwidth dans Excel 2010
Bonjour,
Lors de l'activate d'un onglet j'applique le code suivant :
Code:
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:
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. :cry:
Quelqu'un aurait-il une idée ?
Par avance, merci !
