Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme dans menu contextuel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ludozebest
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

ludozebest

XLDnaute Nouveau
Bonjour,

Dans un fichier, j'ai le code suivant afin d'ajouter l'execution d'une macro à partir du menu contextuel d'excel :

Code: 
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
    .Caption = "Appel à annuler"
    .BeginGroup = True
    .OnAction = "Macro"
   End With

J'ai deux questions :
1. Est-il possible d'ajouter une icone autre qu'un faceid
2. Est-il possible de modifier la couleur/ le fond des caractères pour "Appel à annuler"

Merci pour vos réponses,

LL
 
Trier par date Trier par votes
Re : Mise en forme dans menu contextuel

Salut,pour 2 je pense que non, pour 1 si une image a été chargée dans feuil1 et qu'elle s"appelle Picture 850 par exemple
Code: 
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
    .Caption = "Appel à annuler"
    .BeginGroup = True
    .OnAction = "Macro"
    Feuil1.Shapes("Picture 850").Copy
    .PasteFace
End With
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme dans menu contextuel

Merci pour ta réponse kiki,
Ca donne l'effet que j'espérais.

Cependant, il y a un petit hic :

Lorsque je travaille sur la feuille excel, j'ai l'impression qu'il garde l'image "Picture 850" en mémoire et dès que je veux faire un copier-coller, il colle l'image là où je veux veux faire un collage... 😕.

Y-a-t'il un moyen de résoudre ce pb ?

LL
 
Vote positif 0 Vote négatif
Re : Mise en forme dans menu contextuel

Bonjour à tous,

comprends pas trop, car si avant de faire ton "coller" tu fais un "copier", en pure logique le contenu du presse-papier est remplacé....

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Mise en forme dans menu contextuel

Re,

Remarque on peut vider le presse papier après le collage de l'image... modifie ainsi :

Code: 
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
    .Caption = "Appel à annuler"
    .BeginGroup = True
    .OnAction = "Macro"
    Feuil1.Shapes("Picture 850").Copy
    .PasteFace
End With
x.SetText ""
x.PutInClipboard

n'oublie pas d'activer la référence Microsoft Forms 2.0 Object Library. Dans l'éditeur vba => barre de menu => outils => références
 
Vote positif 0 Vote négatif
Re : Mise en forme dans menu contextuel

Merci pierrot pour tes indications.😉

Et effectivement, lorsque je fais un "copier" avant le "coller" ça marche normallement.
C'est juste lorsque je fesais un coller directement après le lancement de la macro qu'il me recollait l'image...😀
 
Vote positif 0 Vote négatif
Re : Mise en forme dans menu contextuel

Salut,Effectivement il y a ce probleme, une autre approche pour effacer le clipboard
Ajouter dans un module
Code: 
Option Explicit

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
 
Sub EffacerPP()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
End Sub

Code: 
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
    .Caption = "Appel à annuler"
    .BeginGroup = True
    .OnAction = "Macro"
    Feuil1.Shapes("Picture 850").Copy
    .PasteFace
End With
EffacerPP
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 Supprimer "Rechercher dans les menus" du menu contextuel de cellule Excel
Réponses
3
Affichages
339
jurassic pork
  • Résolu(e)
XL 2010 Mise en forme d’un graphique spécifique
Réponses
6
Affichages
130
jeanmi
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
729
fanfan38
D
  • Résolu(e)
Microsoft 365 Création d'une barre personnalisée dans Excel
2 3
Réponses
35
Affichages
3 K
laurent950
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
769
marie3107
M
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
154
Lu76Fer
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
474
vgendron
P
  • Résolu(e)
XL 2013 Mise en forme suite à utilisation de UserForm
Réponses
4
Affichages
665
PR.
P
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
646
casualexcel
C
A
  • Question Question
XL 2016 Placer icone devant menu contextuel
Réponses
0
Affichages
921
alain160
A
  • Question Question
XL 2016 Mise En Forme d'un commentaire de cellule
2 3
Réponses
30
Affichages
3 K
TooFatBoy
  • Question Question
XL 2016 Modele Objet "Application.CommandBars" Chemin Classeur A Pour Création dans un Autres Classeurs B
Réponses
1
Affichages
1 K
laurent950
T
  • Question Question
XL 2019 Créer bouton dans la barre d'outils
Réponses
2
Affichages
1 K
team18fr
T
C
  • Question Question
XL 2010 Mise en forme formulaire VBA
2
Réponses
15
Affichages
2 K
ChTi160
I
  • Question Question
XL 2019 Envoyer image et mise en forme conditionnelle dans un mail
Réponses
1
Affichages
945
patricktoulon
  • Résolu(e)
XL 2016 Menu contextuel sur Clic droit d'un shape
Réponses
11
Affichages
3 K
fanch55
G
  • Résolu(e)
XL 2016 Mise en forme conditionnelle ou macro pour changer la couleur de LA cellule en double
Réponses
3
Affichages
1 K
Graounette92
G
A
  • Résolu(e)
XL 2016 Macro Word pour remplacer une chaîne dans une chaîne recherchée sans changer la mise en forme
Réponses
2
Affichages
1 K
Axelair
A
A
  • Question Question
Autres Macro Excel pour modifier une valeur dans une recherche
Réponses
1
Affichages
869
Bernard_XLD
S
  • Question Question
Lancer deux Macros avec un menu contextuel
Réponses
4
Affichages
1 K
softimen
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…