[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
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
A voir également:
- [Excel 2007] Raccourci pour accéder au contenu d'un formule
- Formule excel pour additionner plusieurs cellules - Guide
- Formule excel si et - Guide
- Formule excel moyenne - Guide
- Excel mise en forme conditionnelle formule - Guide
- Formule excel - Guide
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
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
Je ne sais pas si j'ai bien compris le problème. Une tentative avec macro
https://www.cjoint.com/?3Flnmc0gBj6
Bonne suite
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.
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
11 juin 2013 à 13:42
est ce que la macro fonctionne?
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
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