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

[ivan27]

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

 

[djidji59430]

Bonjour,

=sierreur(recherchev(etc..);"DIVERS")
Crdlmt

 

[ivan27]

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]

Bonjour à tous

A tester

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

 

[ivan27]

Bonsoir djidji59430, M12, le forum
C'est parfait, merci beaucoup et bonne soirée à tous
Ivan