Référence autre feuille

tototiti2008

XLDnaute Barbatruc

• 14 Octobre 2011

• #2

Re : Référence autre feuille

Bonjour Photosol,

Peut-être une piste par là :

[XL-2003] Lien hypertexte automatique entre 2 feuilles d'1 même fichier - Forum des professionnels en informatique

 

Vote positif 0 Vote négatif

P

Photosol

Guest

• 17 Octobre 2011

• #3

Re : Référence autre feuille

Salut,
Ceci peut être une solution mais il faudrait qu'une macro génére ce que je souhaite.

Avec les macros ça m'a l'air beaucoup plus fiable...
De plus, je ne souhaite pas utiliser de formule, mon tableau est rempli et beaucoup trop complet pour insérer de nouvelles cases.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Octobre 2011

• #4

Re : Référence autre feuille

Bonjour.
Un double clic ça vous irait ? :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.Goto [ListeNom].Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
End Sub

À mettre dans le module Feuil1

À +

 

Vote positif 0 Vote négatif

P

Photosol

Guest

• 17 Octobre 2011

• #5

Re : Référence autre feuille

Cette Solution est parfaite;

J'arrive à l'utiliser dans mon fichier simplifié pour Excel download mais je n'arrive pas à l'incorporer dans mon fichier de base, où il y a plus de détail.

Peux tu m'expliquer en plus détaillé?
Ainsi je pourrais adapter la ligne à mon fichier.

Merci!

 

Dernière modification par un modérateur: 17 Octobre 2011

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Octobre 2011

• #6

Re : Référence autre feuille

Bonjour a tous

A tester (dans un module standard):
nb fonctionne avec ctrl +f

Code:

Sub Macro1()
' Touche de raccourci du clavier: Ctrl+f
Set c = Sheets("Feuil2").Cells.Find(Selection.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  Sheets("Feuil2").Select
  ActiveWindow.ScrollRow = c.Row
  c.Select
End If
End Sub

 

Vote positif 0 Vote négatif

P

Photosol

Guest

• 17 Octobre 2011

• #7

Re : Référence autre feuille

J'ai changé ma réponse entre temps (désolé pierre Jean)
J'ai alloué mon double clic à une autre action.

Ma seule contrainte maintenant est d'adapter la solution de Dranreb à mon fichier.

Quelqu'un peut t'il m'expliquer svp?

Ya t'il des histoires de nom de feuille, de nom de colonne etc?

 

Dernière modification par un modérateur: 17 Octobre 2011

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 17 Octobre 2011

• #8

Re : Référence autre feuille

Bonjour

Une petit variante du code VBA de pierrejean

Code:

Sub Macro1()
' Touche de raccourci du clavier: Ctrl+f
Dim c As Range
Set c = Sheets("Feuil2").Cells.Find(Selection.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Application.Goto c, True
End If
End Sub

 

Vote positif 0 Vote négatif

N

Numidia

XLDnaute Occasionnel

• 17 Octobre 2011

• #9

Re : Référence autre feuille

merci pierrejean , on apprend tt les jours avec vous
bonne journée

 

Vote positif 0 Vote négatif

P

Photosol

Guest

• 17 Octobre 2011

• #10

Re : Référence autre feuille

Merci beaucoup pour toutes vos solutions,
La solution de Dranreb me convient parfaitement car j'ai modifié mon fichier pour que le double clic soit associé à cette action.

C'est parfaitement ce que je veux cependant, d'ailleurs cela marche très bien dans le Fichier ED6 que je vous ai envoyé.
Par contre je n'arrive pas à faire fonctionner le code VBA dans Mon fichier général.

Pouvez vous m'éclairer et m'expliquer comment l'adapter à mon fichier? Voulez vous que je mette mon fichier général en PJ?
Sa taille est trop grosse pour l'envoyer tel quelle, mais je peux supprimer des parties qui ne sont pas utiles pour le sujet de cette discussion...

 

Vote positif 0 Vote négatif

P

Photosol

Guest

• 17 Octobre 2011

• #11

Re : Référence autre feuille

C'est bon j'ai réussi,
Merci beaucoup à tous,
Mon patron va être très content (et oui je suis en stage..)

 

Vote positif 0 Vote négatif