Microsoft 365 RESOLU: recherchex dans une fontion en VBA

C

Compte Supprimé 979

Guest

• 16 Novembre 2021

• #2

Bonjour Merinos,

La fonction RechercheX() ou en VBA XLOOKUP() retourne une matrice ou plage
Donc le retour ne peut pas être un String

En variant ça fonctionne 😉

VB:

Public Function Fctn_Prix(MaChaine As String) As Variant
  Fctn_Prix = Application.XLookup(MaChaine, Range("Table1[fruit]"), Range("Table1[prix]"), "pas trouvé", 0, 1)
End Function

Ceci dit, une simple RechercheV() suffit dans ce cas

Code:

Public Function Fctn_Prix2(MaChaine As String)
  Fctn_Prix2 = Application.VLookup(MaChaine, Range("Table1[#All]"), 2, False)
End Function

A+

 

Vote positif 0 Vote négatif

Solution

merinos-BernardEtang

XLDnaute Accro

• 16 Novembre 2021

• #3

Salut @BrunoM45,

Merci de la reponce, je vais tester avec recherchev...

mais juste a titre indicatif: le recherche a effectuer est du style "*pomme*
pour rechercher pomme dans un texte.

A+

Merinos

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 16 Novembre 2021

• #4

Encore Merci @BrunoM45

VB:

Public Function fctn_Prix(MaChaine As String) As String

Dim result As String

result = Application.WorksheetFunction.XLookup(MaChaine, Range("Table1[fruit]"), Range("Table1[prix]"))
fctn_Prix = result

End Function

Cela fonctionne.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Novembre 2021

• #5

Re,

On peut améliorer celle de RechercheV() qui fonctionne pareil mais est plus longue 😜

VB:

Public Function Fctn_Prix2(MaChaine As String) As Variant
  Dim Result As Variant
  On Error Resume Next
  Result = Application.VLookup(MaChaine, Range("Table1[#All]"), 2, False)
  If Result = 0 Then
    Fctn_Prix2 = "Pas trouvé"
  Else
    Fctn_Prix2 = Result
  End If
  On Error GoTo 0
End Function

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 16 Novembre 2021

• #6

BrunoM45 à dit:

Re,

On peut améliorer celle de RechercheV() qui fonctionne pareil mais est plus longue 😜

VB:

Public Function Fctn_Prix2(MaChaine As String) As Variant
  Dim Result As Variant
  On Error Resume Next
  Result = Application.VLookup(MaChaine, Range("Table1[#All]"), 2, False)
  If Result = 0 Then
    Fctn_Prix2 = "Pas trouvé"
  Else
    Fctn_Prix2 = Result
  End If
  On Error GoTo 0
End Function

Cliquez pour agrandir...

@BrunoM45 ,

Désolé mais vlookup ne travaille comme xlookup que si le 5° parametre est "1" ...
Ici je vais devoir mettre "2" ... ce qui permet de rechercher "Bern*" et de retrouver "Bernard" ou "Bernadette".

dans mon cas précis, j'ai le numero de serie mais pas la marque. donc "478478478" retrouve "478478478VOLVO".

Mais comme tu m'as donné la gramais de vlookup, j'ai pu extrapoller .
mon proble était au niveau de "Range("Table1[#All]")"

Merci encore

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Novembre 2021

• #7

Re,

Désolé de vous contredire, mais cela fonctionne de la même façon avec moins de critères (donc moins de risque d'erreurs) 😉

Essayez avec votre fonction de rechercher "Bern" tout court... Pas trouvé 😁
Ou alors donnez-nous un exemple concret

A+

 

Pièces jointes

• Merinos_Test functions.xlsm

  17.2 KB · Affichages: 8

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 17 Novembre 2021

• #8

Salut @BrunoM45 ,

Je dois revoir mes connaissance de recherchev...

Merci de l'info: recherchev supporte "*" et "?"....

J'avais un retard de connaissances.

A+,
Merinos

 

Vote positif 0 Vote négatif