[VBA] VlookUp vers une autre feuille

Bonjour,

J'aimerais savoir si il est possible d'utiliser la fonction VlookUp pour transférer une valeur d'une colonne d'une feuille précédente vers la colonne de la feuille suivante.

Si oui, comment la synthaxe se fait dans VBA svp ?

Mes remerciements,

Marc

Bonjour

Oui, c'est possible. La syntaxe est exactement la même que pour la fonction RECHERCHEV dans Excel.

Code:

---

1 2 3

Sub MonVLookUp() Feuil2.Range("B1") = Application.WorksheetFunction.VLookup(Feuil2.Range("A1"), Feuil1.Range("A1:B2"), 2, False) End Sub

---

Sinon, petite astuce, il est possible de taper VLookUp dans le VBA, puis de sélectionner ce mot et d'appuyer sur la touche F1 de son clavier ;).
Cela nous amène dans l'aide d'Excel VBA à cette page :
https://docs.microsoft.com/fr-fr/off...6)%26rd%3Dtrue

En espérant que cela puisse aider.

Bonne journée

Pierre Dumas

Merci beaucoup pour l'astuce, cela va beaucoup m'aider !

Cependant , cela ne me dit pas comment passer d'une feuille à une autre sans passer par le nom de la feuille !

Ceci dit la solution proposée réponds déjà à une grosse partie de ma question et je vous remercie !

Amicalement,

marc

Bonjour,

Citation:

---

Cependant , cela ne me dit pas comment passer d'une feuile à une autre sans passer par le nom de la feuille !

---

Qu'entends-tu par là ?
Utiliser la fonction pour une autre feuille ?

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Qu'entends-tu par là ?
Utiliser la fonction pour une autre feuille ?

---

C'est ça, en gros utiliser la RECHERCHEV pour que les valeurs de la feuille -1 soit copiée dans la feuille suivante, donc par exemple :
ligne 3 feuille 2 a les même données que la ligne 7 feuille 3 , donc valeur A3 feuille 2 copiée dans la cellule A7 feuille 3.

Citation:

---

Envoyé par Numenor_Illuvatar

Cependant , cela ne me dit pas comment passer d'une feuile à une autre sans passer par le nom de la feuille !

---

Bonjour

Par rapport à la feuille active, pour obtenir le nom VBA de la feuille précédente, il est possible d'utiliser le code suivant :

Code:

---

ActiveSheet.Previous.CodeName

---

Pour avoir le nom Excel de la feuille précédente, il faut utiliser :

Code:

---

ActiveSheet.Previous.Name

---

En étant sur la feuille active (celle où l'on veut recevoir la valeur de la feuille précédente), on peut donc utiliser le code suivant :

Code:

---

ActiveSheet.Range("C1") = Application.WorksheetFunction.VLookup(ActiveSheet.Range("A1"), ActiveSheet.Previous.Range("A1:B2"), 2, False)

---

Cela ne marche pas, bien entendu, sur la première feuille.

Je pense que cela correspond au besoin

Pierre Dumas

Bonjour ,

Merci pour votre réponse je ne connaissais pas le code

Code:

---

ActiveSheet.Previous

---

Cependant , même en essayant d'adapter votre code je n'ai toujours pas réussit à transférer les valeurs colonne A, je met en PJ le tableau en question qui illustre parfaitement la situation, vous verrez que les valeurs de la feuille 1 et 2 ne sont pas entièrement identique, certaines lignes se répètent , le but est de transférer les valeurs de la colonne A de la feuille 1 dans les lignes correspondantes de la feuille 2 , sans passer par le nom des feuilles.
Je vous met en pièce jointe le tablau en question
Pièce jointe 543577

Marc

Bonjour

Cela est tout à fait normal de ne pas pouvoir récupérer les valeurs de la colonne A, car elles se trouvent à GAUCHE de la colonne de recherche. Et cela est IMPOSSIBLE avec RECHERCHEV.
Ne sachant pas quelle version d'Excel vous avez, je vous propose la syntaxe suivante :

Code:

---

ActiveSheet.Range("A3") = Application.WorksheetFunction.Index(ActiveSheet.Previous.Range("A2:A20"), Application.WorksheetFunction.Match(ActiveSheet.Range("B3"), ActiveSheet.Previous.Range("B2:B20"), 0))

---

Je vous laisse finir de l'adapter pour votre besoin concret.

Cette fois-ci cela devrait aller mieux ;)

Bonne journée

Pierre Dumas

La fonction match est intéressante ! Je vous remercie pour votre aide je vais continuer de mon côté ça va me former !
Passez un agréable week-end

Cordialement,

Marc