recherche dans une feuille

stoky · 19 Mai 2018

Bonjour tout le monde et merci de me lire.
Je pense connaître la fonction recherche mais je ne vois pas comment l’appliquer dans ce cas. je joins un fichier excel 2010 en illustration. Il est simplifié à l'extrême mais donne une bonne idée de ce que je veux.
je voudrais qu'en cliquant sur une des cellules dans la cadre noir, excel m'envoie automatiquement sur la cellule ayant le même contenu dans le cadre en pointillé. sachant que les cellules du cadre noir sont issues de la liste à droite. (Dans mon cas complet, elles sont issues d'une autre feuille). Est-ce même possible avec une formule?
Déjà un tout grand merci de vos réponses.
Amicalement
Stocky
brolajeter@gmail.com

Dranreb · 19 Mai 2018

Bonsoir.
dans le module de la feuille :

VB:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim Cel As Range
   If Intersect([C3:D5], Target) Is Nothing Then Exit Sub
   Set Cel = [B7:F25].Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole, _
      SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Cel Is Nothing Then Exit Sub
   Application.Goto Cel
   End Sub

stoky · 19 Mai 2018

Merci beaucoup mais cela ne fonctionne pas. je dois faire une erreur quelque part. Pourriez-vous s'il vous plaît me renvoeyr mon fichier avec le code "dedans"? merci d'avance.

Dranreb · 19 Mai 2018

L'avez vous bien mis dans le module de la feuille et non dans un module standard ?
Et les macros sont elles bien activées ?

stoky · 19 Mai 2018

Je ne parviens pas à créer un module dans la feuille.

Dranreb · 19 Mai 2018

Un module de feuille existe déjà, il n'y a pas lieu de le créer, juste mettre le code dedans.
On peut y accéder depuis Excel: clic droit sur l'onglet, Visualiser le code.

stoky · 20 Mai 2018

Ça fonctionne. Merci beaucoup ! Bonne soirée !

recherche dans une feuille

stoky

XLDnaute Junior

Pièces jointes

Dranreb

XLDnaute Barbatruc

stoky

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

stoky

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

stoky

XLDnaute Junior

Discussions similaires