Problème pour utiliser Vlookup en VBA - VB/VBA/VBS - Programmation
MarshPosté le 05-08-2011 à 10:15:08
Bonjour,
Je suis débutant en VBA. J'ai besoin de faire un vlookup en VBA mais mon code ne donne rien. L'aide VBA est avare en détail sur le sujet.
Je veux rapatrier des infos d'un onglet à un autre. Pour que la formule regarde la liste entière de valeurs du premier onglet, j'ai fait une boucle (je ne sais pas si c'est correct). Dans la 16e colonne de la feuille info, je veux la donnée de la 3eme colonne de la feuille info2 si la valeur de la colonne 1 info et de la colonne 1 info2 correspondent.
For i = 4 To ifin Sheets("infos" ).Cells(i, 16) = Application.VLookup(Sheets("infos" ).Cells(i, 1), Sheets("infos2" ).Range("a1:c" & fincolonne), 2, False) next i
Le code s'exécute mais aucun résultat ne s'affiche dans la 15e colonne. Si quelqu'un peut m'aider
Message édité par Ouiche54 le 05-08-2011 à 10:26:16
Marsh Posté le 05-08-2011 à 10:15:08
Bonjour,
Je suis débutant en VBA. J'ai besoin de faire un vlookup en VBA mais mon code ne donne rien. L'aide VBA est avare en détail sur le sujet.
Je veux rapatrier des infos d'un onglet à un autre.
Pour que la formule regarde la liste entière de valeurs du premier onglet, j'ai fait une boucle (je ne sais pas si c'est correct).
Dans la 16e colonne de la feuille info, je veux la donnée de la 3eme colonne de la feuille info2 si la valeur de la colonne 1 info et de la colonne 1 info2 correspondent.
Dim i, ifin As Integer
fincolonne = Sheets("infos2" ).Range("a:a" ).End(xlDown).Row
ifin = CInt(fincolonne)
For i = 4 To ifin
Sheets("infos" ).Cells(i, 16) = Application.VLookup(Sheets("infos" ).Cells(i, 1), Sheets("infos2" ).Range("a1:c" & fincolonne), 2, False)
next i
Le code s'exécute mais aucun résultat ne s'affiche dans la 15e colonne.
Si quelqu'un peut m'aider
Message édité par Ouiche54 le 05-08-2011 à 10:26:16