Lien entre deux cellules

[David]

Bonjour tout le monde !

Donc, j'ai dans 1 première feuille une colonne avec des noms. Je souhaiterai, par l'intermédiaire d'un lien, que lorsque l'on click sur la cellule ou le nom, celui-ci s'affiche dans une cellule d'une autre feuille qui se situe dans le meme classeur.

Exemple:

j'ai en A2 (feuille2) écrit 'claude' et quand je click dessus, 'claude' s'affiche en A5 (feuille 1)

Merci de m'aider car je ne sais pas comment faire

david

 

[Denis]

Bonjour David
et le Forum
Possible, mais quel et le rapport qui relie ton aaaA2 et ton A5 ?????
à +
Denis B)

 

[ziopizza]

Bonjour David,Denis,
peut étre ça, voir fichier joint
Salut
Yves [file name=clas15.zip size=9954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/clas15.zip[/file]

 

[ziopizza]

Désolé David voici le bon fichier,

 

[ziopizza]

Décidément? [file name=clas15_20060531163540.zip size=9497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/clas15_20060531163540.zip[/file]

 

[david]

Bonjour à tous les 2 et merci de prendre un peu de temps pour m'aider. c'est cool!

Donc, j'ai testé ton fichier joint donc c'est exactement ça qu'il me faut.
Maintenant, il me falloir adapter ta macro à ma feuille.

MErci d'avance !!!
Salut
David

 

[Gorfael]

Salut Claude
Feuil2, ta liste de A2 à A15 (par exemple
Feuil1, en A5, ton résultat

Alt+F11 pour passer en VBA
fenêtre Projet - VBA Project
Double-clic sur Feuil2
Fenêtre code
tu clique sur le menu (Général) et tu sélectionnes Worksheet

tu dois avoir une macro qui se crée :
Worksheet_SelectionChange
Sinon tu la crées en sélectionnant SelectionChange dans le 2me menu (à droite du précédent)

il te reste à rentrer le code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Err_SelectionChange
Dim Réf_Nom As String
Réf_Nom = 'A1:A15'

If Not Intersect(Target, Range(Réf_Nom)) Is Nothing Then
If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
Sheets('Feuil1').Range('A5') = Target
Else
MsgBox ('mauvaise sélection')
End If
End If

Sortie_SelectionChange:
Exit Sub
Err_SelectionChange:
MsgBox (Err.Number & ' - ' & Err.Description)
Resume Sortie_SelectionChange
End Sub

ça devrait fonctionner
A+

 

[david]

Re bonjour !

Bon, en fait, tellement que je suis nul, je n'arrive pas adapter a macro proposée sur mon type.
Donc, je joint le fichier 'essai' qui représente mon classeur. Donc, si quelqu'un peut y jeter u coup d'oeil et m'aider, ca serait gentil.

Merci d'avance à tt le monde.
David

 

[david]

Je suis bête, j'ai oublier de joindre le fichier!!!!

Le voici

David [file name=Essai_20060531171908.zip size=2072]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20060531171908.zip[/file]

 

[Gorfael]

Salut
essaies ça [file name=Essai_Mod.zip size=8717]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_Mod.zip[/file]