XL 2016 Fonction personnalisé par VBA recherche dans une critère dans un chaine de caractère

mapomme à dit:

Re,

Avec une fonction personnalisée Vilkle()( dans module1 : Ville(xID, xRecherche) où xID est l'ID à rechercher et Xrecherche la plage de recherche.

Le code :

VB:

Function Ville(xID, xRecherche)
Dim t, ref, i&
   t = xRecherche.Value: ref = Val(Mid(xID, 5, 3))
   For i = 1 To UBound(t)
      If ref = t(i, 1) Then Ville = t(i, 2): Exit Function
   Next i
End Function

Cliquez pour agrandir...

chris à dit:

Bonjour

Sans VBA :

VB:

=RECHERCHEV(STXT([@ID];CHERCHE(" ";[@ID])+1;CHERCHE("@";SUBSTITUE([@ID];" ";"@";2))-1-CHERCHE(" ";[@ID]))*1;Tableau1;2;0)

En VBA

Code:

Function Ch_Pays(ID As Range, Tabl As Range)
    Parties = Split(ID, " ")
    With Tabl.ListObject
        Set ID2 = .ListColumns(1).DataBodyRange.Find(Parties(1))
        y = .Range.Row
        Ch_Pays = .ListColumns(2).DataBodyRange.Rows(ID2.Row - y)
    End With
End Function

Cliquez pour agrandir...

mapomme à dit:

Re,

Avec une fonction personnalisée Vilkle()( dans module1 : Ville(xID, xRecherche) où xID est l'ID à rechercher et Xrecherche la plage de recherche.

Le code :

VB:

Function Ville(xID, xRecherche)
Dim t, ref, i&
   t = xRecherche.Value: ref = Val(Mid(xID, 5, 3))
   For i = 1 To UBound(t)
      If ref = t(i, 1) Then Ville = t(i, 2): Exit Function
   Next i
End Function

Cliquez pour agrandir...

chris à dit:

Bonjour

Sans VBA :

VB:

=RECHERCHEV(STXT([@ID];CHERCHE(" ";[@ID])+1;CHERCHE("@";SUBSTITUE([@ID];" ";"@";2))-1-CHERCHE(" ";[@ID]))*1;Tableau1;2;0)

En VBA

Code:

Function Ch_Pays(ID As Range, Tabl As Range)
    Parties = Split(ID, " ")
    With Tabl.ListObject
        Set ID2 = .ListColumns(1).DataBodyRange.Find(Parties(1))
        y = .Range.Row
        Ch_Pays = .ListColumns(2).DataBodyRange.Rows(ID2.Row - y)
    End With
End Function

Cliquez pour agrandir...

Kaka133 à dit:

la fonction recherche ne fonctionne pas les caractère sans espace

Cliquez pour agrandir...