Vlookup-hlookup VBA
Bonjour à tous,
j'aurais besoin de votre expertise sur un problème de vlookup que je n'arrive pas à résoudre.
Je voudrais récupérer la valeur d'une celulle en fonction de 2 variables.
1ère variable: valeur d'une ligne
2ème variable: couleur d'une celulle
2 onglets nous intéressent dans le fichier joint (Sheet1 et MOTORS CHART IN AIR).
1) SI value Sheet1!B2 appartient à RANGE "MotorRating" (MOTORS CHART IN AIR!C17$C45) ALORS remplacer MOTORS CHART IN AIR!F6 par Sheet1!C2
2) Selectionner ligne qui contient la valeur Sheet1!B2 dans le RANGE "MotorRating" et se décaler vers la droite jusqu'à 1ère cell interior color = 36 (beige) OU si pas cellule beige sélectionner 1ère celulle verte ALORS récupérer la valeur de la ligne 10 et la copier en Sheet1!D2
passer à la ligne suivante Sheet1!B3...
Prenons un exemple de mon fichier excel.
Valeur 132 dans colonne "Power" en sheet1!B2, on va remplacer la valeur MOTORS CHART IN AIR!F6 par 350 (Sheet1!C2)
On va chercher la valeur 132 dans le range "MotorRating" et on va chercher la 1ère celulle beige (U37) de la ligne value = 132
et nous copions la valeur de la ligne U10 en Sheet1!D2
J'espère que vous avez compris là ou je voulais en venir... pas facile je sais.
N'hésitez pas à me poser des questions si ce n'est pas assez compréhensif.
merci beaucoup
Bonne journée !
Bonsoir,
Et la Sheet1 peut évoluer (en nombre de ligne) c'est ça ?
A+
galopin01 a écrit :Bonsoir,
Et la Sheet1 peut évoluer (en nombre de ligne) c'est ça ?
A+
Bonsoir, absolument.
Voici le code que j'ai l'habitude d'utiliser:
Dim J As Long
With Sheets("Sheet1")
For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row
Cordialement
Bonjour
Tu écris :
1) SI value Sheet1!B2 appartient à RANGE "MotorRating" (MOTORS CHART IN AIR!C17$C45) ALORS remplacer MOTORS CHART IN AIR!F6 par Sheet1!C2
Mais tu ne dis pas ce qu’on fait si la valeur de Sheet1!B2 n’est pas dans dans la plage C17 :C45. J’ai supposé qu’on ne faisait rien et qu’on passait aux cas suivant.
J'ai supposé également que le nombre de lignes du tableau était fixe.
Voici donc un essai à tester.
Merci c'est exactement ce que je cherchais à faire !
Vous êtes au top !
J'ai plus qu'a coupler ça à ma grosse base de donnée et ses 6000 lignes et je vais voir comment il réagit.
Bonne journée !