clic droit

C

C@thy

Guest

• 2 Décembre 2004

• #2

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

 

Vote positif 0 Vote négatif

A

Aveores

Guest

• 2 Décembre 2004

• #3

bonjour

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 2 Décembre 2004

• #4

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 2 Décembre 2004

• #5

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

Sheets(val).Select

C@thy

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 2 Décembre 2004

• #6

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

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 2 Décembre 2004

• #7

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é

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 2 Décembre 2004

• #8

Ah ben voui, SUPER, ça! Merci jmps

C@thy

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 2 Décembre 2004

• #9

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

A+

José

 

Vote positif 0 Vote négatif

A

andré

Guest

• 2 Décembre 2004

• #10

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 2 Décembre 2004

• #11

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 2 Décembre 2004

• #12

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

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 2 Décembre 2004

• #13

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é

 

Vote positif 0 Vote négatif

M

MARIE

Guest

• 2 Décembre 2004

• #14

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 3 Décembre 2004

• #15

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

Bonne journée et bon ouik tout le monde!

C@thy

 

Vote positif 0 Vote négatif