Microsoft 365 RESOLU: recherchex dans une fontion en VBA

[merinos]

Bonjour le fofo,

je cherche a simplifier la vie de certains utilisateurs.
ce que je veux: avoir une fonction ne necesitant qu'un paramettre et randant le resultat d'une recherchex....

j'ai essayé de créer ma fonction : fctn_Prix

je dois être aveugle aujourd'hui.... j'y arrive pas...

// modification: j'ai besoin de recherchex, car je vais effectuer des recherches que recherchev ne peut effectuer. L'exemple joint est une simplification//

Merinos

 

[Compte Supprimé 979]

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

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

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

A+

 

[merinos]

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

 

[merinos]

Encore Merci @BrunoM45

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.

 

[Compte Supprimé 979]

Re,

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

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

 

[merinos]

Re,

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

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

@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

 

[Compte Supprimé 979]

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+

 

[merinos]

Salut @BrunoM45 ,

Je dois revoir mes connaissance de recherchev...

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

J'avais un retard de connaissances.

A+,
Merinos