[Excel 2007] Raccourci pour accéder au contenu d'un formule

Fermé
t-id2013 - Modifié par t-id2013 le 11/06/2013 à 12:47
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 11 juin 2013 à 14:33
Bonjour,

Je cherche un raccourci clavier qui me permettrais d'accéder a la case ciblée par une formule, et si possible même (et surtout) quand celle-ci se trouve dans une autre page.

Exemple: La case P40 de la "Page 2" est remplie par :
='Page 1'!E22
J'aurais besoin d'un raccourci qui quand j'ai la case P40 sélectionnée m'envoie sur la case E22 de la page 1.

Merci d'avance!
A voir également:

3 réponses

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
11 juin 2013 à 13:12
Bonjour

Je ne sais pas si j'ai bien compris le problème. Une tentative avec macro
https://www.cjoint.com/?3Flnmc0gBj6

Bonne suite
0
J'ai l'impression que tu as bien compris le problème en observant l'excel que tu m'as envoyé, cepedant je n'arrive pas a faire marcher la macro que tu m'as envoyé. Le module visual basic studio n'est pas lu sur l'ordi au bureau ou je suis.
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
11 juin 2013 à 13:42
est ce que la macro fonctionne?
0
non, enfin, je ne peux pas la tester, alt F11 n'est bindé a rien puisque dans ton fichier je n'arrive pas a lire la parti microsoft visual basic. Y a-t-il une manip que j'ai oublié de faire?
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
11 juin 2013 à 14:33
La macro à mettre dans le module de la feuille à traiter

Option Explicit

Const plage = "A:A"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim f As String, feuille As String, adr As String
If Not Intersect(Target, Range(plage)) Is Nothing Then
  f = Target.FormulaLocal
  f = Right(f, Len(f) - 1)
  feuille = Split(f, "!")(0)
  adr = Split(f, "!")(1)
  Sheets(feuille).Activate
  ActiveSheet.Range(adr).Select
End If
End Sub
0