voici mon programme : (cette macro est imbriquée dans une autre macro qu'on appelera "intro"
sub test()
Worksheets("approximation1" ).Select Dim i i = 11 While Cells(i, "A" ) <> "" Cells(i, "B" ) = Application.WorksheetFunction.VLookup(Cells(i, "A" ), Worksheets(bac).Range("$B$2:$D$27" ), 3, False) Cells(i, "C" ) = Application.WorksheetFunction.VLookup(Cells(i, "A" ), Worksheets(bac).Range("$B$2:$D$27" ), 2, False) i = i + 1 Wend
end sub
le problème, c'est qu'il m'affiche une erreur lorsque la valeur à trouver n'existe pas dans ma matrice de référence. En mettant "on error resume next", il va à la commance suivante de ma macro "intro", alors que je veux qu'il fasse i=i+1
Marsh Posté le 19-12-2005 à 15:27:59
Bonjour,
voici mon programme : (cette macro est imbriquée dans une autre macro qu'on appelera "intro"
sub test()
Worksheets("approximation1" ).Select
Dim i
i = 11
While Cells(i, "A" ) <> ""
Cells(i, "B" ) = Application.WorksheetFunction.VLookup(Cells(i, "A" ), Worksheets(bac).Range("$B$2:$D$27" ), 3, False)
Cells(i, "C" ) = Application.WorksheetFunction.VLookup(Cells(i, "A" ), Worksheets(bac).Range("$B$2:$D$27" ), 2, False)
i = i + 1
Wend
end sub
le problème, c'est qu'il m'affiche une erreur lorsque la valeur à trouver n'existe pas dans ma matrice de référence.
En mettant "on error resume next", il va à la commance suivante de ma macro "intro", alors que je veux qu'il fasse i=i+1
comment gérer ce problème.
merci beaucoup.