Ajouter fonction au menu contextuel d'Excel
Fermé
pelnaude
Messages postés
36
Date d'inscription
dimanche 10 janvier 2010
Statut
Membre
Dernière intervention
21 mai 2012
-
8 févr. 2010 à 14:22
pelnaude - 28 mars 2010 à 14:25
pelnaude - 28 mars 2010 à 14:25
A voir également:
- Ajouter fonction au menu contextuel d'Excel
- Fonction si et excel - Guide
- Menu déroulant excel - Guide
- Windows 11 menu contextuel classique - Guide
- Fonction moyenne excel - Guide
- Word et excel gratuit - Guide
12 réponses
Voici une petite macro que j'ai trouvé sur un forum et que j'ai adapté
Sub Macro1()
Selection.Interior.ColorIndex = 3
End Sub
Sub Creer_Menu_Contextuel_2()
'réinitialize la sourie comme à l'origine
Application.CommandBars("Cell").Reset
'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Cellule Rouge" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
' il y a un nouveau pavé de créer
.OnAction = "Macro1" ' la macro 1 est lancé
End With
End Sub
Sub Macro1()
Selection.Interior.ColorIndex = 3
End Sub
Sub Creer_Menu_Contextuel_2()
'réinitialize la sourie comme à l'origine
Application.CommandBars("Cell").Reset
'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Cellule Rouge" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
' il y a un nouveau pavé de créer
.OnAction = "Macro1" ' la macro 1 est lancé
End With
End Sub
pelnaude
Messages postés
36
Date d'inscription
dimanche 10 janvier 2010
Statut
Membre
Dernière intervention
21 mai 2012
1
10 févr. 2010 à 10:37
10 févr. 2010 à 10:37
Personne pour m'aider???
HELP
Y'a pas un expert en excel ???
Please...SVP...ça me gagnerai un temps fou...
HELP
Y'a pas un expert en excel ???
Please...SVP...ça me gagnerai un temps fou...
Bonjour,
Oui biensur que je suis interressé !!!!
Comment fais tu ?
Oui biensur que je suis interressé !!!!
Comment fais tu ?
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
26 mars 2010 à 10:28
26 mars 2010 à 10:28
Bonjour,
excusez l'incruste
as tu essayé par raccourci apres avoir demandé copier (ctrl+c)
Alt+e+g+l
excusez l'incruste
as tu essayé par raccourci apres avoir demandé copier (ctrl+c)
Alt+e+g+l
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le problème avec les combinaisons de touches c'est qu'il faut lacher la souris... c'est plus long que de cliquer 3 fois ...et puis je ne suis pas très équilibriste...
l'index sur le ALT , le mageur sur e, le pouce sur g, le nez sur le l et l'orteil droit sur entrée...
merci quand même
l'index sur le ALT , le mageur sur e, le pouce sur g, le nez sur le l et l'orteil droit sur entrée...
merci quand même
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
26 mars 2010 à 12:05
26 mars 2010 à 12:05
Et ça t'as pas trop fatigué d'aller sur un forum? y'a au moins 4 clics et du texte à saisir...
Si, Je suis exténué
PS: suis toujours en attente de la solution de notre ami philou...
philou si tu nous écoutes... sache que toute l'équipe est au garde a vous en attendant ta réponse...
PS: suis toujours en attente de la solution de notre ami philou...
philou si tu nous écoutes... sache que toute l'équipe est au garde a vous en attendant ta réponse...
Il suffit ensuite de modifier la macro1 avec ce que vous avez besoin
vous pouvez sur le même principe ajouter plusieurs menus et des sous menus
vous pouvez sur le même principe ajouter plusieurs menus et des sous menus
C'est très gentil Philou...mais c'est trop compliqué pour moi...désolé.
Je ne sais pas me servir des macros ???
c'est simple à mettre en oeuvre?
Je ne sais pas me servir des macros ???
c'est simple à mettre en oeuvre?
c'est ou le module excel ? dans le menu macro?
par quel opération tu la lances?
par quel opération tu la lances?
je suis pas doué...j'ai essayé, mais quand je fais executer...rien ne se passe...
c'est sensé faire quoi exactement??
(peut tu m'envoyer une capture d'écran de la page visual basic une fois le texte de la macro collé, avant de refermer la fenetre?)-> je me demande si j'ai pas écraser des trucs en le copiant...
c'est sensé faire quoi exactement??
(peut tu m'envoyer une capture d'écran de la page visual basic une fois le texte de la macro collé, avant de refermer la fenetre?)-> je me demande si j'ai pas écraser des trucs en le copiant...
En tout cas je te remercie de t'intéresser à mon cas...pour te répondre: non, je n'ai jamais fait de macro, je n'ai jamais pris le temps de me former...ça doit être en effet un outils fascinant..et très utile.
Je vais essayer de me faire la main sur cet exemple et si ca marche je chercherai des cours sur le net, ou des tuto...
Je vais essayer de me faire la main sur cet exemple et si ca marche je chercherai des cours sur le net, ou des tuto...
Non?? ça marche pas: je récapitule:
niveau de secu reglé sur moyen
j'ouvre une nouvelle macro
je stoppe l'enregistrement (par la barre de menu visual basic)
j'ouvre macro1 en pas a pas détaillé
je colle ta macro à la place de celle qui est dedans:
Sub Macro1()
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
End Sub
ensuite je fais executer la macro
et là rien...
ni dans le menu contextuel du clic droit
ni en faisant un ctrl+V...ça colle pas en valeur uniquement...
HELP !!
(merci d'avance)
a+
niveau de secu reglé sur moyen
j'ouvre une nouvelle macro
je stoppe l'enregistrement (par la barre de menu visual basic)
j'ouvre macro1 en pas a pas détaillé
je colle ta macro à la place de celle qui est dedans:
Sub Macro1()
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
End Sub
ensuite je fais executer la macro
et là rien...
ni dans le menu contextuel du clic droit
ni en faisant un ctrl+V...ça colle pas en valeur uniquement...
HELP !!
(merci d'avance)
a+
Bonjour Pelnaude, tu es bien matinale
Coller la macro 1 ne suffit pas
dans la facon que je t'intique, il ya a 2 macros à coller
la premiere ( Sub Creer_Menu_Contextuel() ) sert pour creer une ligne commande supplementaire dans le cli droit souris (le nom sera cellule rouge mais tu peux mettre autre chose) et cette ligne commande lance la macro1 (pareil tu peux changer le nom de la macro)
la seconde macro collée est la macro1 (c'est celle la qui travaille dans excel; tu peux changer le contenu par ce que tu veux (moi je lui fais faire un coper coller valeur)
et ensuite tu lance la macro Sub Creer_Menu_Contextuel()
en dessous, les 2 macros à coller en même temps
Sub Creer_Menu_Contextuel()
'réinitialize la sourie comme à l'origine
Application.CommandBars("Cell").Reset
'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Cellule Rouge" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
' il y a un nouveau pavé de créer
.OnAction = "Macro1" ' la macro 1 est lancé
End With
End Sub
Sub Macro1()
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
End Sub
Coller la macro 1 ne suffit pas
dans la facon que je t'intique, il ya a 2 macros à coller
la premiere ( Sub Creer_Menu_Contextuel() ) sert pour creer une ligne commande supplementaire dans le cli droit souris (le nom sera cellule rouge mais tu peux mettre autre chose) et cette ligne commande lance la macro1 (pareil tu peux changer le nom de la macro)
la seconde macro collée est la macro1 (c'est celle la qui travaille dans excel; tu peux changer le contenu par ce que tu veux (moi je lui fais faire un coper coller valeur)
et ensuite tu lance la macro Sub Creer_Menu_Contextuel()
en dessous, les 2 macros à coller en même temps
Sub Creer_Menu_Contextuel()
'réinitialize la sourie comme à l'origine
Application.CommandBars("Cell").Reset
'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Cellule Rouge" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
' il y a un nouveau pavé de créer
.OnAction = "Macro1" ' la macro 1 est lancé
End With
End Sub
Sub Macro1()
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
End Sub