clic droit

[MARIE]

bonsoir le forum

je débute en vba j'aimerais avec une macro
evenementielle déclencher avec clic droit ouvrir
la feuille correspondant au référence de la colonne A c'est a dire si je clic en A1 (devis) ouvrir la feuille devis
est ce possible
merci a tous bonne soirée

 

[C@thy]

Bonjour Marie, biensûr c'est possible, mais pourquoi faire une macro là où un lien hypertexte suffirait, en fait il ne s'agit pas d'ouvrir une feuille mais de se déplacer dessus.

C@thy

 

[Aveores]

bonjour

il te suffit de créer un bouton auquel tu affecte une macro.
J ai répondu a ta question?

 

[C@thy]

sinon, évidemment tu peux écrire ça :
(dans le
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) de ta feuille


Dim val As String
If Not Intersect(Range("A1:A3"), Target) Is Nothing Then
val = ActiveCell.Value
Sheets("" & val & "").Select
End If
End sub

C@thy

 

[C@thy]

euh non, ça ça suffit avant le end if :

Sheets(val).Select

C@thy

 

[C@thy]

Ya juste un truc : le clic droit affiche le menu contextuel, évidemment!
Je ne sais pas comment le masquer, si quelqu'un le sait...

C@thy

 

[jmps]

Bonsoir MARIE, C@thy, Averoes,

Peut-être avec un Cancel = True mais je n'en suis pas sûr. A tester.

Bonne soirée,

José

 

[C@thy]

Ah ben voui, SUPER, ça! Merci jmps

C@thy

 

[jmps]

Serviteur C@thy. Heureux de te croiser pour la première fois je crois.

A+

José

 

[andré]

Salut à vous tous,

Mais pourquoi se compliquer la vie ?

Il suffit de nommer (menu Insertion / Nom / Définir) "devis" la cellule A1 (ou une autre) de la feuille "devis" et puis de cliquer sur "devis" dans la liste déroulante qui s'ouvre en cliquant sur la flèche de la petite fenêtre à l'extrème gauche de la barre de formule, là où est normalement indiqué la référence de la cellule active.

Ândré.

 

[C@thy]

Du coup, on n'a plus jamais l'affichage du menu contextuel, même si on
clique ailleurs, il faudrait peut-être refaire une macro événementielle qui,
lorsqu'on clique ailleurs qu'en col A réaffiche le menu contextuel, qu'en penses-tu???


C@thy

 

[C@thy]

C'est juste, André, pour moi la meilleure macro consiste à ne pas en écrire,
alors forcément je cherche toujours d'abord une autre solution!!! ;o)

C@thy

 

[Hervé]

Bonsoir

Sinon pour gérer le menu contextuel ailleurs que dans la plage a1 : a3 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim val As String
If Not Intersect(Range("A1:A3"), Target) Is Nothing Then
Sheets(ActiveCell.Value).Select
Else
Cancel = False
End If
End Sub

salut
Hervé

 

[MARIE]

Re bonsoir le forum

Merci a tous pour vos reponses,c'est sur mon exemple vous à sembler peut etre bizare ou superflus mais ce code va rejoindre une application plus consequente et je ne maitrisait pas{Sheets("" & val & "").Select}

encore merci et bonne soiree

 

[C@thy]

Ah ben là c'est parfait, pile poil!
Merci Hervé!

Bonne journée et bon ouik tout le monde!

C@thy