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

Kaka133 · 29 Avril 2022

Salut
merci de m'aider à trouver une fonction personnalisé par VBA pour rechecher une critère dans un chaine de caractère ci-dessous l’exemple.

merci d’avance

mapomme · 29 Avril 2022

Re,

Le code qui suit devrait le faire (avec ou sans espace) :

VB:

Function Ville(ByVal xID, xRecherche)
Dim t, ref, i&
   t = xRecherche.Value: xID = Mid(Replace(xID, " ", ""), 4)
   ref = Val(Left(xID, Len(xID) - 3))
   For i = 1 To UBound(t)
      If ref = t(i, 1) Then Ville = t(i, 2): Exit Function
   Next i
End Function

mapomme · 29 Avril 2022

Bonjour @Kaka133

Cliquez sur le bouton Hop !
Le code dans module1 :

VB:

Sub Macro()
With Sheets("Feuil1").ListObjects("Tableau24").DataBodyRange.Columns(2)
   .FormulaR1C1 = "=VLOOKUP(VALUE(LEFT(SUBSTITUTE(MID([@ID],5,9),"" "",""   ""),3)),Tableau1,2,FALSE)"
   .Value = .Value
   End With
End Sub

chris · 29 Avril 2022

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

mapomme · 29 Avril 2022

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

Kaka133 · 29 Avril 2022

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

je tiens à vous remercier pour votre aide et votre soutien

Kaka133 · 29 Avril 2022

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

je vous remercie pour votre aide

Kaka133 · 29 Avril 2022

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

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

Salam

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

Kaka133 · 29 Avril 2022

chris · 29 Avril 2022

Re

Kaka133 à dit:
la fonction recherche ne fonctionne pas les caractère sans espace

C'est sûr que si le fichier initial n'est pas représentatif on ne risque pas de donner la solution...

mapomme · 29 Avril 2022

Re,

Le code qui suit devrait le faire (avec ou sans espace) :

VB:

Function Ville(ByVal xID, xRecherche)
Dim t, ref, i&
   t = xRecherche.Value: xID = Mid(Replace(xID, " ", ""), 4)
   ref = Val(Left(xID, Len(xID) - 3))
   For i = 1 To UBound(t)
      If ref = t(i, 1) Then Ville = t(i, 2): Exit Function
   Next i
End Function

Kaka133 · 29 Avril 2022

Merci de nous avoir consacré du temps pour répondre à ce problème .

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

Kaka133

XLDnaute Nouveau

Pièces jointes

mapomme

mapomme

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Kaka133

XLDnaute Nouveau

Kaka133

XLDnaute Nouveau

Kaka133

XLDnaute Nouveau

Pièces jointes

Kaka133

XLDnaute Nouveau

chris

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Kaka133

XLDnaute Nouveau

Discussions similaires