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 Word vba et raccourcis clavier

vba et raccourcis clavier

9 réponses
Avatar
Philippe
J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros Outils\Macros\Macro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
Outils\Personaliser\Commandes\Clavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------
Signaler un problème avec ce contenu

9 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
Avatar
Circé
Eh bé !!! En voilà du beau superfétatoire...
Impossible d'adhérer au club des amis avec ça !!!

Circé

Philippe avait soumis l'idée :
J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
OutilsPersonaliserCommandesClavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------


Avatar
Petit Denis
Bonsoir
Philippe wrote:
J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas



Comme cela te fut précisé point de macro n'est besoin.
C'est juste une question de style :
F1 et question créer un style
--
Petit Denis

Avatar
Geo

J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas


Vu comme ça, le raccourci CTL+8 est mal défini.

--
A+

Avatar
Clément Marcotte
Et le petit pinceau alors ?????????????????????????


"Philippe" a écrit dans le message de
news:
J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
OutilsPersonaliserCommandesClavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------



Avatar
Philippe
Bonsoir,
Merci à tous pour vos réponses.

Oui je connais l'existence du petit pinceau,
et des styles.
Seulement, j'ai un "problème" avec la souris (cé pô bon pour mon bras)
Alors j'essaye de rester avec mon clavier gentiment posé au bon endroit.
Et voilà le but de la petite manip... j'ai plein de beaux styles, et aussi
bcp de beaux racourcis pour aller avec.
Mais j'ai souvent besoin de récupérer un format de liste deux ou trois
paragraphes plus haut... enfin bref.
Si vous savez comment mettre directement des raccourcis sur le pinceau, je
suis preneur !

Cordialement,
Philippe




Et le petit pinceau alors ?????????????????????????


"Philippe" a écrit dans le message de
news:
J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
OutilsPersonaliserCommandesClavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------








Avatar
Philippe
Bonsoir,
Merci à tous pour vos réponses.

Oui je connais l'existence du petit pinceau,
et des styles.
Seulement, j'ai un "problème" avec la souris (cé pô bon pour mon bras)
Alors j'essaye de rester avec mon clavier gentiment posé au bon endroit.
Et voilà le but de la petite manip... j'ai plein de beaux styles, et aussi
bcp de beaux racourcis pour aller avec.
Mais j'ai souvent besoin de récupérer un format de liste deux ou trois
paragraphes plus haut... enfin bref.
Si vous savez comment mettre directement des raccourcis sur le pinceau, je
suis preneur !

Cordialement,
Philippe


Eh bé !!! En voilà du beau superfétatoire...
Impossible d'adhérer au club des amis avec ça !!!

Circé

Philippe avait soumis l'idée :
J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
OutilsPersonaliserCommandesClavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------







Avatar
Philippe
Bonsoir,

J'ai noté les remarques sur les styles de pinceaux à moins que je n'm'les
emellent...
Bref, je cherche toujours à virer la souris du bocal à pinceaux.

Après vérification, le Cntrl+8 est bien défini.
Je me demande si il n'y aurait pas quelque interaction entre la façon dont
le raccourci appelle la macro, et le "selection".

En vérité je trouve assez remarquable que les deux sub fonctionnent (sans
les raccourccis).
En effet. Le format appliqué est celui de la première sélection.
Hors avec le 2nd sub, je commence par définir une nouvelle sélection.
Hors il ne peut y avoir qu'une seule sélection à la fois n'est-il pas ?

Si quelqu'un à une explication à avancer, j'aurais au moins gagner davantage
qu'une piqure de rappel sur le style à plumes.

Cordialement,
Philippe



J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
OutilsPersonaliserCommandesClavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------



Avatar
Circé
Bonsoir Philippe,

Philippe avait soumis l'idée :
Bonsoir,

Si vous savez comment mettre directement des raccourcis sur le
pinceau, je suis preneur !


Les raccourcis claviers existent déjà (on peut les modifier...) :

Ctrl+Maj+C pour copier la mise en forme
CtrlMaj+V pour coller la mise en forme

Tout le monde connaît ctrl+C et ctrl+v pour copier-coller, ceux-ci ne
sont pas difficile à mémoriser... Voilà pourquoi je disais que la macro
était superfétatoire !!! :D

Je précise qu'il n'est nul besoin de sélectionner le texte. Il suffit
que le curseur se trouve à l'intérieur du paragraphe.

Circé
http://faqword.free.fr

Cordialement,
Philippe





Et le petit pinceau alors ?????????????????????????


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

J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
OutilsPersonaliserCommandesClavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------










Avatar
Philippe
Merci beaucoup
Cordialement,
Philippe


Bonsoir Philippe,

Philippe avait soumis l'idée :
Bonsoir,

Si vous savez comment mettre directement des raccourcis sur le
pinceau, je suis preneur !


Les raccourcis claviers existent déjà (on peut les modifier...) :

Ctrl+Maj+C pour copier la mise en forme
CtrlMaj+V pour coller la mise en forme

Tout le monde connaît ctrl+C et ctrl+v pour copier-coller, ceux-ci ne
sont pas difficile à mémoriser... Voilà pourquoi je disais que la macro
était superfétatoire !!! :D

Je précise qu'il n'est nul besoin de sélectionner le texte. Il suffit
que le curseur se trouve à l'intérieur du paragraphe.

Circé
http://faqword.free.fr

Cordialement,
Philippe





Et le petit pinceau alors ?????????????????????????


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

J'ai deux "macros" avec chacune un raccourci clavier :
- CopierFormatParagraphe()............ Cnrl+7 (Pavé numérique)
- CollerFormatSurParagraphe()........ Cnrl+8 (Pavé numérique)
(voir code ci-dessous)

Lorsque j'exécute les macros OutilsMacrosMacro
elles fonctionnent sans problème.
Si j'utilise le raccourcis pour la première Cntrl+7,
puis je passe par le menu pour la seconde,
ça fonctionne.
Si j'utilise le raccourci Cntrl+8 pour la seconde,
ça ne fonctione pas

Étrange ! Quelqu'un aurait-il une idée de ce qui pose problème ?

---- Contexte ----

Sub CopierFormatParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.CopyFormat
End Sub

Sub CollerFormatSurParagraphe()
Selection.Expand Unit:=wdParagraph
Selection.PasteFormat
End Sub

Les deux macros sont dans le module NewMacros de Normal
Les raccourcis clavier sont définis via le menu :
OutilsPersonaliserCommandesClavier Categorie=Macro
et sont enregistrées dans Normal.dot
----------------------------------------------