Code dans fonction recherche INDEX/EQUIV

[gourdin]

Bonjour,

Je souhaite un petit "code" pour mettre dans "ma" fonction de recherche "INDEX/EQUIV"

Le mieux est de voir l'exemple très simplifié

Merci

 

[mromain]

Re : Code dans fonction recherche INDEX/EQUIV

bonjour gourdin,

je te propose ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("F4").Value = Application.Intersect(Target.Resize(1, 1).EntireRow, Range("D:D")).Text
'Cancel = True
End Sub

a+

 

[Dull]

Re : Code dans fonction recherche INDEX/EQUIV

Salut Gourdin

deux Soluces

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B15:B22")) Is Nothing Then _
[F4].FormulaLocal = "=INDEX(D15:D22;EQUIV(" & Target.Address & ";B15:B22))"
End Sub

Ou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set C = ActiveSheet.Columns("B").Find(What:=Target)
If Not C Is Nothing Then [F4] = C.Offset(0, 2).Value
End Sub

La première te met la Formule en F4
la Deuxième te met seulement le Résultat

EDITION: Change le Private Sub Worksheet_SelectionChange(ByVal Target As Range)
par
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Salut Romain 🙂
RE EDITH: Et en plus j'avais pas vu qu'il pouvait y avoir plusieurs fois le Même Nom 😱
Garde le Code de Romain
Bonne Journée

 

[gourdin]

Re : Code dans fonction recherche INDEX/EQUIV

Merci beaucoup