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:
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
Barres d'outils
Michel
"Max" <nospam-max@wanadoo.fr> a écrit dans le message de news:
e8WwlKMhGHA.4368@TK2MSFTNGP03.phx.gbl...
Bonjour jps
C'est quoi les BO ?
Salut
Max
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OmvcEm9gGHA.1208@TK2MSFTNGP02.phx.gbl...
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" <nospam-max@wanadoo.fr> a écrit dans le message de news:
OgoUQk8gGHA.1612@TK2MSFTNGP04.phx.gbl...
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" <xx@x.x> a écrit dans le message de news:
447b32a3$0$19288$8fcfb975@news.wanadoo.fr...
Bienvenue.
Michel
"Max" <nospam-max@wanadoo.fr> a écrit dans le message de news:
uc92J0ygGHA.4712@TK2MSFTNGP05.phx.gbl...
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" <xx@x.x> a écrit dans le message de news:
4478c3f6$0$18322$8fcfb975@news.wanadoo.fr...
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" <nospam-max@wanadoo.fr> a écrit dans le message de news:
u7cUmLZgGHA.2456@TK2MSFTNGP04.phx.gbl...
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" <xx@x.x> a écrit dans le message de news:
44781613$0$20141$8fcfb975@news.wanadoo.fr...
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" <nospam-max@wanadoo.fr> a écrit dans le message de news:
%23nBFPsWgGHA.2208@TK2MSFTNGP05.phx.gbl...
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:
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
jps
merci, michel ; j'avions pô vu la question jps
"Péhemme" a écrit dans le message de news: 447e8714$0$20180$
Barres d'outils Michel
"Max" a écrit dans le message de news:
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
merci, michel ; j'avions pô vu la question
jps
"Péhemme" <xx@x.x> a écrit dans le message de news:
447e8714$0$20180$ba4acef3@news.orange.fr...
Barres d'outils
Michel
"Max" <nospam-max@wanadoo.fr> a écrit dans le message de news:
e8WwlKMhGHA.4368@TK2MSFTNGP03.phx.gbl...
Bonjour jps
C'est quoi les BO ?
Salut
Max
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OmvcEm9gGHA.1208@TK2MSFTNGP02.phx.gbl...
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" <nospam-max@wanadoo.fr> a écrit dans le message de news:
OgoUQk8gGHA.1612@TK2MSFTNGP04.phx.gbl...
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" <xx@x.x> a écrit dans le message de news:
447b32a3$0$19288$8fcfb975@news.wanadoo.fr...
Bienvenue.
Michel
"Max" <nospam-max@wanadoo.fr> a écrit dans le message de news:
uc92J0ygGHA.4712@TK2MSFTNGP05.phx.gbl...
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" <xx@x.x> a écrit dans le message de news:
4478c3f6$0$18322$8fcfb975@news.wanadoo.fr...
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" <nospam-max@wanadoo.fr> a écrit dans le message de news:
u7cUmLZgGHA.2456@TK2MSFTNGP04.phx.gbl...
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" <xx@x.x> a écrit dans le message de news:
44781613$0$20141$8fcfb975@news.wanadoo.fr...
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" <nospam-max@wanadoo.fr> a écrit dans le message de news:
%23nBFPsWgGHA.2208@TK2MSFTNGP05.phx.gbl...
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:
"Péhemme" a écrit dans le message de news: 447e8714$0$20180$
Barres d'outils Michel
"Max" a écrit dans le message de news:
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:
