Vlookup avec condition

Bonjour à tous,

je voudrais à l'aide d'une rechercheV, partir d'une cellule et si celle-ci ce trouve être dans une plage de cellules dans un autre onglet alors il me met la cellule en gras.

mais j'ai un souci avec la recherchev.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Devise_A_traiter() Dim i As Integer   Worksheets("Import").Activate   For i = 2 To 20   If Worksheets("Import").Range("G" & i).Value = Application.WorksheetFunction.VLookup(Worksheets("Import").Range("A" & i), Worksheets("Menu").Range("O5:O7"), 2, 0).Value Then With Worksheets("Import").Range("G" & i) .Select .Selection.Font.Bold = True End With End If Next i End Sub

---

Pourriez vous m'aiguiller ?

Meci bien

Bonjour,

à défaut d'une explication claire et détaillée tant sur le contexte comme pour le souci rencontré,
n'étant pas sur un forum de divination !     Cf règles de ce forum …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Désole j'avoue que ce n'est pas très clair.

en fait je veux que dans mon classeur sur ma feuille j'ai un tableau n1

date	devise à traiter
13/05	USD
14/05	EUR

et dans une autre feuille j'ai un autre tableau officiel tableau n2 avec

date	devise Fermée
13/05	USD - RON - GBP
14/05	EUR - HUF

ces tableaux sont sur deux feuilles différentes.
et j'aurai besoin de faire une rechercheV à partir du tableau n1 pour qu'il me grise la cellule en fonction si dans le tableau n2 la devise est fermé en fonction de date.

j'espère que c'est plus clair. :/

Bonjour,

Attention VLookUp retourne la valeur de la cellule, donc :

Code:

---

Application.WorksheetFunction.VLookup("13/05", Worksheets("Menu").Range("O5:O7"), 2, 0)

---

1. Retourne une valeur et pas une cellule --> donc pas de .Value
2. Renvoie "USD - RON - GBP" et pas seulement "USD" donc ta condition n'est pas vérifiée.

Tu peux peut-être utiliser la combinaiseon de VLookUp et de l'opérateur Like.

Code:

---

1 2	If Application.VLookup(Worksheets("Import").Range("A" & i), Worksheets("Menu").Range("O5:O7"), 2, 0) Like "*" & Worksheets("Import").Range("G" & i).Value & "*" Then '...

---

Je ne garantie pas le résultat, mais à essayer ;)

Autre commentaire : évit d'utiliser Select/Slection/Activate/ActiveSHeet... très souvent ça ne sert à rien et ç a entraîne des problèmes difficilement repérables :

Code:

---

1 2 3 4

With Worksheets("Import").Range("G" & i) .Select .Selection.Font.Bold = True End With

---

4 lignes --> 1 ligne :

Code:

---

Worksheets("Import").Range("G" & i).Font.Bold = True

---

Et pas besoin du Worksheets("Import").Activate au début du code

Merci bien pour ton commentaire, tu as complètement raison.
Avec l'outil like ça ne fonction pas.

Mais est ce que tu penses si j'utilise l'outil .find tel que si la date de la première ligne du tableau 1 est = a la date de la première ligne du tableau 2 alors il fait une recherche de la devise dans la cellule du tableau 2 et si c'est vrai il me grise la ligne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub M() Dim i As Integer   For i = 2 To 30 If Worksheets("Import").Range("A" + i).Value = Worksheets("Menu").Range("O5").Value Then If Worksheets("Menu").Range("O5").Find(what:=Worksheets("Import").Range("G" & i).Value, LookIn:=xlValues, lookAt:=xlPart) = True Then Worksheets("Import").Range("G" & i).Font.Bold = True End If End If Next i End Sub

---

Ce que tu peux faire avec Application.Match et Application.Search :

1. Trouver la ligne où se situe la date voulue grâce à Application.Match
   
   Code:

   ---

   1 2	Dim i As Variant i = Application.Match("toto", Range("A:A"), 0)

   ---

   i vaut la ligne sur laquelle on trouve "toto" en colonne A. Si on ne trouve pas "toto" i est une erreur. On peut donc vérifier qu'on trouve bien la date en posant une condition avec IsError :
   
   Code:

   ---

   If Not IsError(i) Then '...

   ---

2. Vérifier si on trouve la devise dans la cellule voulue de cette ligne i (ligne i, colonne B?) avec Application.Search
   
   Code:

   ---

   1 2	Dim j As Variant j = Application.Search("USD", Cells(i, 2))

   ---

   j vaut la position de "USD" dans la cellule. Si on ne trouve pas "USD" j est une erreur. On peut donc vérifier qu'on trouve bien la date en posant une condition avec IsError :
   
   Code:

   ---

   If Not IsError(j) Then '...

   ---

Ca devrait pouvoir s'adapter avec Find aussi (Match & Find), mais je pense que Search est plus adaptée ici.

Ca m'a donné envie de manger du brownie ton pseudo ... :mrgreen:

C'est aussi possible via l'opérateur Like comme avec la méthode Find pour peu de respecter enfin la logique
comme dans l'exemple de l'aide VBA interne !

Eviter aussi d'utiliser WorksheetFunction, Application suffisant largement !

Sinon via une simple formule :

Code:

---

1 2 3 4 5 6 7 8

Sub Demo1() Const F = "ISNUMBER(FIND(G#,VLOOKUP(A#,Menu!$O$5:$P$7,2,FALSE)))" With Worksheets("Import") For R& = 2 To .UsedRange.Rows.Count .Cells(R, 7).Font.Bold = .Evaluate(Replace(F, "#", R)) Next End With End Sub

---

___________________________________________________________________________________________________________

   :arrow:   Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci beaucoup à vous c'est parfait.