Bonjour,

J'ai voulu me créer un raccourci clavier pour "fusionner et center" des cellules sur Excel 2007.

J'ai donc tapé dans mon thisWorkBook du Personal.xlsb :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
    Application.MacroOptions Macro:= _
         "PERSONAL.XLSB!ThisWorkbook.Fusionner_Center_Cellules", Description:="", _
         ShortcutKey:="m"
 End Sub
 Sub Fusionner_Center_Cellules()
     With Selection
         .Merge
         .HorizontalAlignment = xlCenter
     End With
 
 End Sub
et j'ai tapé ceci dans un module du personal.xlsb :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Fusionner_Center_Cellules()
 If TypeName(Selection) = "Range" Then
     With Selection
         .Merge
         .HorizontalAlignment = xlCenter
     End With
 End If
 End Sub
Ca marche très bien, mais quand je ré-ouvre mon fichier, j'ai un message d'erreur qui me dit :

"Erreur d'éxucution 1004
impossible de modifier une macro dans un classeur masque. Affichez le classeur en utilisant la commande Afficher."

Quand je fais Débogage jai ce passage là qui est surligné :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Application.MacroOptions Macro:= _
         "PERSONAL.XLSB!ThisWorkbook.Fusionner_Center_Cellules", Description:="", _
         ShortcutKey:="m"
Mais je comprends pas spécialement quel est le problème étant donné que le raccourci fonctionne quand meme.

Si quelqu'un peut m'aider et voit quelle est l'origine du problème ?

Merci d'avance