Vlookup
Résolu
Marc
-
Marc -
Marc -
Bonjour à tous,
J'aimerais faire un Vlookup en VB au sein d'une boucle Do Until.
Mon fichier excel a plusieurs sheets
Le vlook up sera sur la sheet appellée test
i est un compteur sur la feuille "test".
J'ai essayé la syntaxe suivante :
Cells(i,8)= Application.WorksheetFunction.VLookup(Cells(i,3),Sheets("Input").Range("A:A","AO:AO"),3,False)
Cela ne fonctionne pas malheureusement. Je pense que c'est lié au second argument de la fonction...
Merci beaucoup pour votre aide.
J'aimerais faire un Vlookup en VB au sein d'une boucle Do Until.
Mon fichier excel a plusieurs sheets
Le vlook up sera sur la sheet appellée test
i est un compteur sur la feuille "test".
J'ai essayé la syntaxe suivante :
Cells(i,8)= Application.WorksheetFunction.VLookup(Cells(i,3),Sheets("Input").Range("A:A","AO:AO"),3,False)
Cela ne fonctionne pas malheureusement. Je pense que c'est lié au second argument de la fonction...
Merci beaucoup pour votre aide.
A voir également:
- La fonction vlookup a pour résultat une valeur hors plage.
- Fonction si et - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Resultat foot - Télécharger - Vie quotidienne
- Apparaitre hors ligne instagram - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? - Forum Graphisme
2 réponses
Bonjour,
exemple avec traitement erreur si non trouve:
exemple avec traitement erreur si non trouve:
Sub test1()
If Not IsError(Application.VLookup(Cells(i, 3), Sheets("Input").Range("A:C"), 3, False)) Then
y = Application.VLookup(Cells(i, 3), Sheets("Input").Range("A:C"), 3, False)
ElseIf Not IsError(VLookup(Cells(i, 3), Sheets("Input").Range("AO:AQ"), 3, False)) Then
y = Application.VLookup(Cells(i, 3), Sheets("Input").Range("AO:AQ"), 3, False)
Else
y = "Pas Trouvé"
End If
Cells(i, 8) = y
End Sub
