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
 

Pièces jointes

  • test.xlsm
    17.4 KB · Affichages: 41

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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG