Formule equivalent à CTRL+F

Bonjour,

Existe il une formule de recherche equivalente a CTRL+F ?

J'ai tenté avec un INDEX+EQUIV mais les données de la cellule doivent correspondre exactement. un caractere de plus et ca ne rapatrie pas le resultat souhaité.

Dans l'exemple joint, je souhaite que le numero CMD associé au NMO soit reporté enface du bon numero NMO a droite.

Bonsoir,

Essayez ceci en F2:

=INDEX(Tableau1[#Tout];EQUIV("*"&E2;A:A;0);2)

Cdlt

bonsoir

un essai .................

cordialement

ou alors simplement

=RECHERCHEV("*"&E2;Tableau1;2;0)

Bonjour tout ceci est fonctionnel, parfait. Merci a vous.

"Bonsoir,

Essayez ceci en F2:

=INDEX(Tableau1[#Tout];EQUIV("*"&E2;A:A;0);2)

Cdlt"

Mon INDEX EQUIV ne fonctionnait pas. je pense que la différence est le "*". Cela permet de chercher un bout et pas la correspondance exact, c'est ca ?

Si je voulais el faire par macro, il me faudrai une fonction FIND ?

Merci a vous tous en tous cas, vous m'avez bien aider

J'etais persuader que pour une recherchev les donnée devait etre par ordre croissant ce qui ne sera pas le cas sur mon tableau Mais ca marche aussi

"

ou alors simplement

=RECHERCHEV("*"&E2;Tableau1;2;0)

Bonjour,

Si je voulais le faire par macro, il me faudrait une fonction FIND ?

OUI, avec quelque chose comme ceci:

Sub CMD()
    Dim DerLig As Long, i As Long
    Dim x As Range
    Application.ScreenUpdating = False
    DerLig = Sheets("Feuil1").ListObjects("Tableau1").DataBodyRange.Rows.Count + 1
    For i = 2 To DerLig
        With Sheets("Feuil1").Columns(1)
            Set x = .Find(Cells(i, "A"), LookAt:=xlPart)
            If Not x Is Nothing Then
                Cells(i, "F") = Cells(x.Row, "B")
            End If
        End With
    Next i
    Set x = Nothing
End Sub

Cdlt