XL 2016 [RESOLU] Si rechercheV ne renvoi rien alors imposer une valeur

ivan27

XLDnaute Occasionnel
Bonsoir à tous,

J'utilise un code de Jacques Boisgontier pour une recherche V.
Lorsque le code ne trouve rien pour la colonne B, je souhaiterais inscrire la valeur "DIVERS".
Je n'ai rien trouvé sur le forum.
Merci d'avance pour vos suggestions.
Ivan
 

Fichiers joints

ivan27

XLDnaute Occasionnel
Bonjour djidji59430, le forum,
Merci pour cette proposition.
Pourrais-tu la transcrire en VBA dans le code joint à mon classeur s'il te plaît ?
Meilleures salutations
 

M12

XLDnaute Impliqué
Bonjour à tous

A tester
Code:
Function rechv(champ As Range, cles As Range, valeurs As Range)
  a = cles
  b = valeurs
  c = champ
  Dim d()
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = 1 To cles.Count
     mondico.Add a(i, 1), b(i, 1)
  Next i
  ReDim d(1 To champ.Count)
  For i = 1 To champ.Count
  d(i) = mondico.Item(c(i, 1))
  If d(i) = "" Then d(i) = "DIVERS"
  Next i
  rechv = Application.Transpose(d)
End Function
 

Discussions similaires


Haut Bas