Discussion :

[vince.]

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

[helas]

Bonjour,
Enregistre ton fichier en xlsm

[vince.]

Bonjour,
Enregistre ton fichier en xlsm

Bonjour Helas,

Je l'ai déjà enregistré en .xlsm

Quelle peut être une autre origine du problème ?

[clementmarcotte]

Bonjour,

Parce que Thisworkbook c'est le classeur qui contient la macro. Cela fait que le classeur de macros personnelles est un classeur caché qui essaie de se modifier lui-même. Enlève Thisworbook dans ta ligne et essaie de nouveau.

Ceci dit, les cellules fusionnées s'entendent très mal avec VBA. C'est de loin préférable d'utiliser "Centrer sur plusieurs colonnes". Ton titre va être au centre de tes colonnes, et tes colonnes ne seront pas fusionnées.