chercher une valeur dans une liste.

[airsage]

Bonjour,

je bloque sur le développement VBA qui consiste à chercher une valeur dans une liste.

Dans le fichier excel en exemple, j'ai un tableau (valeurs fixes) avec plusieurs serveurs et une extraction de Datas (le nombre et le nom des serveurs changent tous les jours).

je voudrais pour chaque serveur dans le tableau, si il existe dans la liste de Datas, il me copie la valeur "Job Satus" correspondante, dans la colonne "Statut Day-1" du tableau. Si le serveur dans le tableau n'est pas dans les Datas, laisser la valeur "Statut Day-1" vide.

Merci par avance pour votre aide.

 

[BOISGONTIER]

Re : chercher une valeur dans une liste.

Bonjour,

Sub essai()
  Set f = Sheets("datas")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = f.Range("a2:c" & f.[a65000].End(xlUp).Row)  
  For i = LBound(a) To UBound(a)
    mondico(a(i, 1)) = a(i, 3)
  Next i
  Set f = Sheets("tableau")
  For Each c In f.Range("a2:a" & f.[a65000].End(xlUp).Row)   
    If mondico.exists(c.Value) Then c.Offset(, 1).Value = mondico(c.Value)
  Next c
End Sub

jb

 

[airsage]

Re : chercher une valeur dans une liste.

Bonjour BOISGONTIER,

Je suis bluffé par la rapidité de la réponse et du développement.

Je te remercie grandement.