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 Accro
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas