Discussion :

[Numenor_Illuvatar]

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

[Pierre Dumas]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Numenor_Illuvatar]

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

[Philippe Tulliez]

Bonjour,

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 ?

[Numenor_Illuvatar]

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.

[Pierre Dumas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Previous.CodeName

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Numenor_Illuvatar]

Bonjour ,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
TEST_TRANSFERT_COMMENTAIRE.xlsx

Marc

[Pierre Dumas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Numenor_Illuvatar]

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