clic droit

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

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

bonjour

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

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

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

Sheets(val).Select

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

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é

Ah ben voui, SUPER, ça! Merci jmps

C@thy

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

A+

José

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é.

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'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

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é

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

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

Bonne journée et bon ouik tout le monde!

C@thy