recherche dans une feuille

Dranreb

XLDnaute Barbatruc

• 19 Mai 2018

• #2

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

 

Vote positif 0 Vote négatif

S

stoky

Guest

• 19 Mai 2018

• #3

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Mai 2018

• #4

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 ?

 

Vote positif 0 Vote négatif

S

stoky

Guest

• 19 Mai 2018

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Mai 2018

• #6

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.

 

Vote positif 0 Vote négatif

S

stoky

Guest

• 20 Mai 2018

• #7

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

 

Vote positif 0 Vote négatif