Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Affecter une macro personnalisée à un bouton

Affecter une macro personnalisée à un bouton

12 réponses
Avatar
Max
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter la
commande "Format de cellule / Alignement / Centrer sur plusieurs colonnes".
D'après une description trouvé dans le livre de John Walkenbach, j'ai écrit
le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Péhemme
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter la
commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach, j'ai
écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max




Avatar
Max
Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu, identique à
celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes" qui
devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter la
commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach, j'ai
écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max








Avatar
Péhemme
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu, identique
à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes" qui
devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter la
commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach, j'ai
écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max












Avatar
Max
Rebonjour Michel,
Comme je n'ai pas réussi à affecter la macro au bouton "Fuisionner", j'y ai
ajouté une touche de raccourci (Ctrl+Maj+C), Ensuite, j'ai enregistré la
macro comme macro complémentaire (.*xla). Ainsi, le formatage "Centrer sur
plusieurs colonnes" est accessible à partie de n'importe quel classeur
Excel.
Merci encor de ton aide.
Salut
Max

"Péhemme" a écrit dans le message de news:
4478c3f6$0$18322$
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu, identique
à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes" qui
devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter la
commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach, j'ai
écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max
















Avatar
Péhemme
Bienvenue.
Michel

"Max" a écrit dans le message de news:

Rebonjour Michel,
Comme je n'ai pas réussi à affecter la macro au bouton "Fuisionner", j'y
ai ajouté une touche de raccourci (Ctrl+Maj+C), Ensuite, j'ai enregistré
la macro comme macro complémentaire (.*xla). Ainsi, le formatage "Centrer
sur plusieurs colonnes" est accessible à partie de n'importe quel classeur
Excel.
Merci encor de ton aide.
Salut
Max

"Péhemme" a écrit dans le message de news:
4478c3f6$0$18322$
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu,
identique à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes"
qui devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter la
commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach, j'ai
écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max




















Avatar
Max
Rebonjour Michel,
Finalement, j'ai trouvé la solution. Avec la commande Outils / Personaliser,
il y a la fenêtre "Personnalisatin" qui s'ouvre. A partir de lä, je monte un
smiley sur la barre d'outil et je lui affecte la macro que tu as proposé au
début et qui se trouve maintenant dans les macros complémentaires. Ensuite,
je copie/colle l'icone "Fusionner cellules" sur le smiley et je le renomme
"Centrer sur pl. colonnes". Je supprime l'icone "Fusionner cellules" et le
tour est joué.
Salut et merci.
Max

"Péhemme" a écrit dans le message de news:
447b32a3$0$19288$
Bienvenue.
Michel

"Max" a écrit dans le message de news:

Rebonjour Michel,
Comme je n'ai pas réussi à affecter la macro au bouton "Fuisionner", j'y
ai ajouté une touche de raccourci (Ctrl+Maj+C), Ensuite, j'ai enregistré
la macro comme macro complémentaire (.*xla). Ainsi, le formatage "Centrer
sur plusieurs colonnes" est accessible à partie de n'importe quel
classeur Excel.
Merci encor de ton aide.
Salut
Max

"Péhemme" a écrit dans le message de news:
4478c3f6$0$18322$
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu,
identique à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes"
qui devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter
la commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach, j'ai
écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max
























Avatar
jps
ben, si j'avais su que tu veuilles faire cela, max, je t'aurais conseillé
depuis longtemps : y a éperluette, comme dirait AV, que j'ai tout ça dans
mes BO qui, dois-je le rappeler, ne me laissent que 3 lignes de classeur
visibles...
jps

"Max" a écrit dans le message de news:

Rebonjour Michel,
Finalement, j'ai trouvé la solution. Avec la commande Outils /
Personaliser, il y a la fenêtre "Personnalisatin" qui s'ouvre. A partir de
lä, je monte un smiley sur la barre d'outil et je lui affecte la macro que
tu as proposé au début et qui se trouve maintenant dans les macros
complémentaires. Ensuite, je copie/colle l'icone "Fusionner cellules" sur
le smiley et je le renomme "Centrer sur pl. colonnes". Je supprime l'icone
"Fusionner cellules" et le tour est joué.
Salut et merci.
Max

"Péhemme" a écrit dans le message de news:
447b32a3$0$19288$
Bienvenue.
Michel

"Max" a écrit dans le message de news:

Rebonjour Michel,
Comme je n'ai pas réussi à affecter la macro au bouton "Fuisionner", j'y
ai ajouté une touche de raccourci (Ctrl+Maj+C), Ensuite, j'ai enregistré
la macro comme macro complémentaire (.*xla). Ainsi, le formatage
"Centrer sur plusieurs colonnes" est accessible à partie de n'importe
quel classeur Excel.
Merci encor de ton aide.
Salut
Max

"Péhemme" a écrit dans le message de news:
4478c3f6$0$18322$
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu,
identique à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes"
qui devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter
la commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach,
j'ai écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max




























Avatar
Péhemme
;-)))))))))
et bon voyage à Marseille
Michel

"jps" a écrit dans le message de news:

ben, si j'avais su que tu veuilles faire cela, max, je t'aurais conseillé
depuis longtemps : y a éperluette, comme dirait AV, que j'ai tout ça dans
mes BO qui, dois-je le rappeler, ne me laissent que 3 lignes de classeur
visibles...
jps

"Max" a écrit dans le message de news:

Rebonjour Michel,
Finalement, j'ai trouvé la solution. Avec la commande Outils /
Personaliser, il y a la fenêtre "Personnalisatin" qui s'ouvre. A partir
de lä, je monte un smiley sur la barre d'outil et je lui affecte la macro
que tu as proposé au début et qui se trouve maintenant dans les macros
complémentaires. Ensuite, je copie/colle l'icone "Fusionner cellules" sur
le smiley et je le renomme "Centrer sur pl. colonnes". Je supprime
l'icone "Fusionner cellules" et le tour est joué.
Salut et merci.
Max

"Péhemme" a écrit dans le message de news:
447b32a3$0$19288$
Bienvenue.
Michel

"Max" a écrit dans le message de news:

Rebonjour Michel,
Comme je n'ai pas réussi à affecter la macro au bouton "Fuisionner",
j'y ai ajouté une touche de raccourci (Ctrl+Maj+C), Ensuite, j'ai
enregistré la macro comme macro complémentaire (.*xla). Ainsi, le
formatage "Centrer sur plusieurs colonnes" est accessible à partie de
n'importe quel classeur Excel.
Merci encor de ton aide.
Salut
Max

"Péhemme" a écrit dans le message de news:
4478c3f6$0$18322$
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu,
identique à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes"
qui devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter
la commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach,
j'ai écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max
































Avatar
jps
tussssss, michel, j'y serai incognito...ni tard d'ailleurs
jps

"Péhemme" a écrit dans le message de news:
447c776d$0$18315$
;-)))))))))
et bon voyage à Marseille
Michel

"jps" a écrit dans le message de news:

ben, si j'avais su que tu veuilles faire cela, max, je t'aurais conseillé
depuis longtemps : y a éperluette, comme dirait AV, que j'ai tout ça dans
mes BO qui, dois-je le rappeler, ne me laissent que 3 lignes de classeur
visibles...
jps

"Max" a écrit dans le message de news:

Rebonjour Michel,
Finalement, j'ai trouvé la solution. Avec la commande Outils /
Personaliser, il y a la fenêtre "Personnalisatin" qui s'ouvre. A partir
de lä, je monte un smiley sur la barre d'outil et je lui affecte la
macro que tu as proposé au début et qui se trouve maintenant dans les
macros complémentaires. Ensuite, je copie/colle l'icone "Fusionner
cellules" sur le smiley et je le renomme "Centrer sur pl. colonnes". Je
supprime l'icone "Fusionner cellules" et le tour est joué.
Salut et merci.
Max

"Péhemme" a écrit dans le message de news:
447b32a3$0$19288$
Bienvenue.
Michel

"Max" a écrit dans le message de news:

Rebonjour Michel,
Comme je n'ai pas réussi à affecter la macro au bouton "Fuisionner",
j'y ai ajouté une touche de raccourci (Ctrl+Maj+C), Ensuite, j'ai
enregistré la macro comme macro complémentaire (.*xla). Ainsi, le
formatage "Centrer sur plusieurs colonnes" est accessible à partie de
n'importe quel classeur Excel.
Merci encor de ton aide.
Salut
Max

"Péhemme" a écrit dans le message de news:
4478c3f6$0$18322$
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu,
identique à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub
CentrerSurColonnes" qui devrait exécuter la deuxième procedure, et
rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour
exécuter la commande "Format de cellule / Alignement / Centrer sur
plusieurs colonnes".
D'après une description trouvé dans le livre de John Walkenbach,
j'ai écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max




































Avatar
Max
Bonjour jps
C'est quoi les BO ?
Salut
Max


"jps" a écrit dans le message de news:

ben, si j'avais su que tu veuilles faire cela, max, je t'aurais conseillé
depuis longtemps : y a éperluette, comme dirait AV, que j'ai tout ça dans
mes BO qui, dois-je le rappeler, ne me laissent que 3 lignes de classeur
visibles...
jps

"Max" a écrit dans le message de news:

Rebonjour Michel,
Finalement, j'ai trouvé la solution. Avec la commande Outils /
Personaliser, il y a la fenêtre "Personnalisatin" qui s'ouvre. A partir
de lä, je monte un smiley sur la barre d'outil et je lui affecte la macro
que tu as proposé au début et qui se trouve maintenant dans les macros
complémentaires. Ensuite, je copie/colle l'icone "Fusionner cellules" sur
le smiley et je le renomme "Centrer sur pl. colonnes". Je supprime
l'icone "Fusionner cellules" et le tour est joué.
Salut et merci.
Max

"Péhemme" a écrit dans le message de news:
447b32a3$0$19288$
Bienvenue.
Michel

"Max" a écrit dans le message de news:

Rebonjour Michel,
Comme je n'ai pas réussi à affecter la macro au bouton "Fuisionner",
j'y ai ajouté une touche de raccourci (Ctrl+Maj+C), Ensuite, j'ai
enregistré la macro comme macro complémentaire (.*xla). Ainsi, le
formatage "Centrer sur plusieurs colonnes" est accessible à partie de
n'importe quel classeur Excel.
Merci encor de ton aide.
Salut
Max

"Péhemme" a écrit dans le message de news:
4478c3f6$0$18322$
La macro se suffit à elle-même.
Oublie ton "on action".
Au besoin adapte les paramètres précédés d'un point (.)
Michel

"Max" a écrit dans le message de news:

Bonjour Péhemme,

Non, malheureusement, ça ne marche toujours pas.
Ton Sub CentrePlusieursColonnes produit bien le résultat voulu,
identique à celui de mon Sub Centrer.
Mais c'est le code "OnAction" de mon premier "Sub CentrerSurColonnes"
qui devrait exécuter la deuxième procedure, et rien ne se passe.
Merci quand-même
Salut
Max

"Péhemme" a écrit dans le message de news:
44781613$0$20141$
Bonjour à toi,

Est-ce que ce qui suit peut t'être utile ?

Sub CentrePlusieursColonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End sub

Bon courage
Michel


"Max" a écrit dans le message de news:
%
Bonjour,
Je voudrais utiliser le bouton "Fusionner et centrer" pour exécuter
la commande "Format de cellule / Alignement / Centrer sur plusieurs
colonnes".
D'après une description trouvé dans le livre de John Walkenbach,
j'ai écrit le code suivant dans un module:


Sub CentrerSurColonnes()

Application.CommandBars("Formatting") _

.Controls("&Fusionner et centrer") _

.OnAction = "Centrer"

End Sub



Sub Centrer()

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

End With

End Sub



Or, ça ne marche pas.

Pourquoi ?

Merci pour toute aide,

Max
































1 2