Bonjour à toutes et à tous,
J'ai un petit soucis dans l'exécution d'une macro qui effectue une RECHERCHEV.
L'objectif de cette macro est de renvoyer une désignation (que je considère comme une chaine de caractères même si c'est de l'alphanumérique) lorsque le code article (qui est au format personnalisé 000000 -> ex : 002360 / 000481 / 009856) renseigné se trouve dans la matrice.
Je pense que l'erreur que VBA m'affiche correspond au format des données, mais je ne vois pas comment faire autrement.
CI-joint mon code et les deux feuilles concernées.
Merci par avance !
J'ai un petit soucis dans l'exécution d'une macro qui effectue une RECHERCHEV.
L'objectif de cette macro est de renvoyer une désignation (que je considère comme une chaine de caractères même si c'est de l'alphanumérique) lorsque le code article (qui est au format personnalisé 000000 -> ex : 002360 / 000481 / 009856) renseigné se trouve dans la matrice.
Je pense que l'erreur que VBA m'affiche correspond au format des données, mais je ne vois pas comment faire autrement.
CI-joint mon code et les deux feuilles concernées.
Merci par avance !
VB:
Sub test()
Dim der_lig As Long
Dim code_art As String
Dim rv As String
code_art = Range("A23")
der_lig = (Sheets("Article").Cells(300000, 1).End(xlUp).Row) + 1
If code_art <> "" Then
For i = 23 To 41 Step 2
rv = Application.VLookup(code_art, Sheets("Article").Range("A2:C9000"), 2, False).Text
Range("C" & i) = rv
code_art = Range("A" & i)
Next
Else
End If
End Sub