[VBA-E]Clic droit dansun feuille excel

Version imprimable

05/02/2006, 19h00
gil68

[VBA-E]Clic droit dansun feuille excel
Bonsoir,

voilà mon problème:
j'ai un trableau excel dont je colorise certaines "Range", je le fait grâce au menu de mise forme habituel. Le truc c'est que j'utilise des couleurs spécifiques que je comptabilise par la suite.
L'idée serai que je puisse faire un clic droit sur la case à coloriser et qu'un menu contenant les trois couleurs possibles (ou trois libellés éventuellement) apparaisse. C'est le principe du rightclic habituel mais que je voudrais personnaliser.
Je pense devoir mettre mon code ici:
Code:

1 2 3 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) End Sub
Mais je ne sais pas par où commencer.... :roll:

Merci pour votre aide.
05/02/2006, 19h03
SfJ5Rpw8

je ne pense pas que tu dois passer par l'événement ...Worksheet_BeforeRight ... mais plutôt par modification du menui contextuel...
05/02/2006, 19h04
gil68

je débute dans ce monde....
Pourais tu m'en dire d'avantage?

tiens ... colle ça dans un module... cela te donnera peu-être une idée..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'
' Procedure appellé pour effacer option du Menu
'
'
Sub EffaceMenu(CB As CommandBar, stNom As String)
On Error GoTo Fin
Dim i As Integer
For i = 1 To 100 ' Cette boucle ne sert à rien mais me rassure, pour éviter de partir dans boucle infinie..
   CB.Controls(stNom).Delete
Next
Fin:
 
End Sub
'
' Fonction d'ajout option dans menu contextuel
'
'
Sub AjouteMenuContextuel()
  Dim c As CommandBar
  Dim b As CommandBarButton
  Set c = Application.CommandBars("Cell")
  '.. detruit le bouton si existe déjà
  EffaceMenu c, "Essai"
  Set b = c.Controls.Add(msoControlButton)
  b.Caption = "Essai"
  b.BeginGroup = True
  b.OnAction = "Test2"
 
End Sub
Public Sub test2()
 MsgBox "text2"
End Sub

bonsoir Gil68 , bonsoir Bill

ci joint une autre possibilité

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Reponse As Variant
 
Cancel = True 
 
Reponse = Application.InputBox("Saisissez une valeur entre 1 et 3" & vbLf & vbLf & _
"1 = Rouge" & vbLf & "2 = Vert" & vbLf & "3 = Bleu", "Colorier la cellule active", 1)
 
If Not IsNumeric(Reponse) And Len(Reponse) <> 1 Then Exit Sub
If Reponse > 0 And Reponse < 4 Then ActiveCell.Interior.ColorIndex = Reponse + 2
End Sub

bonne soiree
michel

rebonsoir

une autre possibilité ...

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Long
 
Cancel = True
 
Application.Dialogs(xlDialogPatterns).Show
x = ActiveCell.Interior.ColorIndex
If x = xlColorIndexAutomatic Then x = xlColorIndexNone
ActiveCell.Interior.ColorIndex = x
 
End Sub

bonne soiree
michel

06/02/2006, 12h06
gil68

Salut et merci pour vos réponses.
J'aimerai pouvoir utiliser un menu dans le mêm style que celui qui apparaît lorsque vous faite un clic droit (copier, coller,...)
Vous vopyez comment je vois les choses?
06/02/2006, 12h14
SfJ5Rpw8

justement le code que je t'ai mis + haut permet de modifier le menu contextuel ... manque plus qu'à l'adapter..
06/02/2006, 16h46
gil68

oups, pardon.

Mais je ne comprends pas trop. Tu veux créer une barre d'outils? Qui s'appelerai "Cell"?

J'ai affecter cette macro à un bouton mais il ne se passe rien...
Je vais chercher un peu.... :?
06/02/2006, 17h20
SfJ5Rpw8

non .. je modifie le menu contextuel des feuilles de calculs ... ( clic droit sur cellule...)

Voilà la solution que j'ai trouver:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Public menucontext As CommandBar Sub creabar() 'On Error GoTo fin Application.CommandBars("Couleurs").Delete Set menucontext = Application.CommandBars.Add("Couleurs", msoBarPopup, False, True) Set BPfait = menucontext.Controls.Add With BPfait .Caption = "Fait" .OnAction End With Set BParret = menucontext.Controls.Add With BParret .Caption = "A l'arrêt" End With Set BPprepa = menucontext.Controls.Add With BPprepa .Caption = "Avec préparation" End With Set BPsuivre = menucontext.Controls.Add With BPsuivre .Caption = "A suivre" End With fin: End Sub Sub affichagemenu() menucontext.ShowPopup End Sub
Le problème c'est que j'ai le menu contextuel habituelle qui s'affiche de manière très très courte. C'est pas trés élégant.

Merci bbil. Ta solution est très bien :lol:
Une dernière chose, je n'arrive pas à retirer tout les éléments du menu contextuel. Si j'y arrive est-ce que c'est réversible automatiquement ou dois-je remettre mon menu "Cell" d'equerre moi même?

06/02/2006, 17h49
zazaraignée

Salut

Je crois que c'est bbil qui est sur la meilleure voie. J'ai essayé d'afficher une barre d'outils perso ou un UserForm avec l'événement beforeRightClick mais une fois l'action effectuée (changement de la couleur de fond), le menu contextuel s'affiche intempestivement... Alors, puisqu'il tient à s'afficher, celui-là, laissons-le faire et ajoutons lui une ou deux options... voire trois.
06/02/2006, 17h57
gil68

ok, je suis d'accord avec vous.

Mais je voudrai que lorsque je fais un clique droit, le menu ne me propose plus que 4 options. :oops:

Je vais regarder pour supprimer les autres options....
06/02/2006, 18h02
gil68

Bon j'ai tout virer mais maintenant je peux plus faire marche arrière.

Le menu ne contient plus que ce que les options que j'ai créer même après relancement d'excel. :cry:

Je vais le réinstaller.
06/02/2006, 19h03
gil68

Aïe, aïe, aïe,...

c'est vraiment pas le truc à faire ça. J'ai désinstaller puis réinstaller Office et rien à faire mon menu contextuel habituel (copi, coller,...) ne veux plus revenir.
Comment dois-je faire?
06/02/2006, 19h09
jmfmarques

Citation:

Le menu ne contient plus que ce que les options que j'ai créer même

Et... les avais-tu sauvegardées quelque part , ces options créées par toi et qui ne sont plus là après la réinstallation ?
07/02/2006, 07h34
gil68

Salut,

et bien en fait, bbil ma orienté vers la possibilité de modifier le menu contextuel nommé "Cell". C'est celui qui apparaît quand tu fais clic droit dans excel. Dans la macro que j'ai fais, j'ai demandé l'effacement total de ce menu et j'y est inséré mes 4 nouvelles options.
Mais maintenant je ne peux plus faire marche arrière..... :cry:

Je pense que je vais partir sur la solution de créer un nouveau menu contextuel que j'appellerai au moment du right clic. Le problème avec cette solution est que le menu contextuel "Cell" apparaît intempestivement au moment du clic droit..
Peu-t-on empeché son apaprition sans toute fois le supprimer?

Merci pour toutes vos réponses.

@+
07/02/2006, 08h20
SilkyRoad
bonjour

tu peux tester cette macro pour reinitialiser ton menu contextuel

Code:

Application.CommandBars("cell").Reset

je ne comprends pas quand tu dis que le menu apparait intempestivement

cette procedure empeche l'apparition du menu contextuel sans le supprimer
Code:

1 2 3 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub
bonne journée
michel
07/02/2006, 19h56
gil68

je vais essayer,
cancel=true, j'ai pas fais attention... :oops:

@+