Microsoft 365 Besoin d'aide sur la fonction find en vba

[comardud]

Bonjour à tous,
j'ai une nouvelle fois besoin des spécialistes Excel.
Je bute sur la fonction find en vba, je vous explique mon soucis:

Dans le fichier joint j'ai 2 onglets (Feuil1 et Feuil2),
ce que je voudrais obtenir c'est que dans l'onglet Feuil2 quand je double clic dans une cellule de la colonne I (i) ça sélectionne le numéro qui se trouve 2 cellules à droite (colonne K) et que ce numéro soit recherché (fonction find ?) dans l'onglet Feuil1 et quand celui ci est trouvé ça sélectionne la 4eme cellule à gauche de ce résultat.

Je ne sait pas si je suis très clair j'ai mis en PJ un extrait du fichier en question avec les explications, ce sera surement plus parlant.

Merci de votre aide.

 

[job75]

Bonjour comardud,

La macro dans le code de Feuil2 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Intersect(Target, [I:I]) Is Nothing Or CStr(Target(1, 3)) = "" Then Exit Sub
Cancel = True
With Feuil1
    .Visible = xlSheetVisible 'si la feuille est masquée
    Set c = .Columns(5).Resize(, .Columns.Count - 4).Find(CStr(Target(1, 3)), , xlValues, xlWhole)
End With
If Not c Is Nothing Then Application.Goto c.Offset(, -4)
End Sub

Notez qu'en VBA il est déconseillé de sélectionner...

A+

 

[comardud]

Bonjour comardud,
---------------

Je savais qu'il y avait des spécialistes ici mais une réponse une heure après ma demande, franchement je n'en demandait pas tant !

Merci infiniment à toi et bonne journée

 

[comardud]

Si je peux me permettre d'abuser, pourrais tu m'expliquer ton code, j'aime comprendre pour apprendre ;-)

merci

 

[job75]

Si vous ne comprenez pas certains mots recherchez-les sur le web.

Sinon dites-moi ce que vous ne comprenez pas.

 

[comardud]

Ok merci