[XL-2003] LIEN entre une cellule et une feuille référente [Résolu]

[drive0033]

Bonsoir je suis nouvelle ici et ce que je recherche avant tout est de mieux appréhender cet outil qu'est excel.
Mon problème est le suivant: Je souhaite "créer" un "lien référent" entre une cellule et une feuille de calcul. Je m'explique, si ma cellule s'appelle "SCARLET" et que dans mon classeur j'ai plusieurs feuilles de noms différents, j'aimerai qu'en cliquant sur ma cellule, ma feuille nommée "SCARLET" s'ouvre automatiquement.
Pouvez-vous m'aider? (j'ai tout tenté internet, les forums, les macros, les fonctions rien n'y fait!! et pourtant je suis persuadée que cela est possible )
Merci pour vos réponses
A bientôt
Dr

[White Mibu]

Bonsoir,

Voici une proposition :
pour placer ce code, ALT+F11 ensuite dans "Excel Microsoft Objets" double clic sur la feuille où tu souhaite tu voudra cliqué.

C'est ici que tu copie cette macro :

Code :

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("A1")) Is Nothing Then Sheets("SCARLET").Activate
 
End Sub

Grâce à cette macro lorsque la valeur change dans la cellule A1 l'onglet SCARLET est activé. Tu peux modifier "A1" par une autre cellule.

C'est pas exactement avec un clic, il faut faire un double clic sur la cellule puis faire entrer. Je sais pas si ça t'ira mais bon...

Tiens nous au courant !

Cordialement

[gFZT82]

Bonsoir,

Tu peux également utiliser l'événement Worksheet_BeforeDoubleClick.

Cordialement.

[drive0033]

Bonsoir White Mibu

Merci pour ton aide, ca marche super
Bonnes fetes de fin d'année à tous!!

[pafpaf69]

Salut

Ajoute un lien hypertext en pointant sur la cellule et cliquant sur la touche droite de la souris

des que tu clique sur la cellule , excel te renvoie sur la position que tu as choisie

a+

[drive0033]

Bonsoir,

oui j'avais dejà essayé, le problème c'est que (même étant administrateur) je n'ai pas de droit d'accès (un message d'erreur s'affiche). Je dois résoudre ce problème c'est sur!!

Mais pour revenir à ma question précédente qui marche pour UNE cellule, comment pourrais-je éventuellement appliquer la macro à TOUTES mes cellules correspondant a mes autres feuilles?

Toute aide sera bienvenue

Je vous remercie

A bientôt

[White Mibu]

Bonjour,

si c'est pour choisir l'onglet que tu veux sélectionner, c'est possible et le mieux serait un menu déroulant en A1, voici la macro :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim NOmOnglet As String
 
    If Not Intersect(Target, Range("A1")) Is Nothing Then
 
    'Initialisation de la liste
    Sheets("Liste").Range("B:B").Clear
 
    'Création de la liste des onglets
    For i = 2 To Sheets.Count
    Sheets("Liste").Cells(i - 1, 2) = Sheets(i).Name
    Next i
 
    'Selection de l'onglet
    NOmOnglet = ActiveCell.Value
    On Error Resume Next
    Sheets(NOmOnglet).Activate
 
    End If
 
End Sub

Voir fichier joint, la macro te créer la liste de tes onglets sur l'onglet Liste, colonne B. Ensuite l'onglet activé est celui que tu sélectionne avec le menu déroulant.

Si t'a des questions n'hésite pas !

Cordialement