Tout marche bien sauf quand j'ai un codepays qu'il ne retrouve pas dans le tableau. Pour gérer ce cas, j'ai utilisé la fonction 'On error Go to' cependant bien que je devrais gérer l'erreur, un message d'erreur s'affiche.
Savez vous comment faire pour empêcher l'apparition du message d'erreur s'il ne trouve pas le 'codepays' dans mon tableau ?
On Error Resume Next
J1 = Application.Index(Sheets("Setup").Range("AF17:AM51"), Application.Match(codepays, Sheets("Setup").Range("AF17:AF51"), 0), E1)
If Err.Number <>0 then
MsgBox "Impossible de trouver la valeur du code pays"
End if
On peut se passer de gestion d'erreur si J1 est une variable Variant :
Code:
Dim J1 As Variant
'------
For Each k In ....
J1 = Application.Index(Sheets("Setup").Range("AF17:AM51"), Application.Match(codepays, Sheets("Setup").Range("AF17:AF51"), 0), E1)
If Not IsError(J1) Then
'-------
End If
Next