Bonjour,

Je m'excuse par avance, cette question a déjà été probablement posée mais je n'ai pas trouvé exactement ce que je veux faire. Étant débutant en VBA, j'ai beaucoup de mal avec tout ce qui syntaxe donc encore une fois désolé !

Je souhaiterais écrire une fonction permettant d'aller chercher l'information dont j'ai besoin dans un classeur B en fonction de deux critères.
Cette information concerne le prix d'un équipement en fonction de sa marque et son modèle.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function RechercheVPrix(Marque As Range, Modele As Range) As Variant
 
    For i = 2 To 5000
        If Workbooks("OUTIL_CHIFFRAGE.xlsm").Worksheets("SYNTHESE_BIBLE").Cells(i, 3).Value = Marque.Value Then 'permet de trouver la marque dans le classeur B
            For j = i To i + 20
                If Workbooks("OUTIL_CHIFFRAGE.xlsm").Worksheets("SYNTHESE_BIBLE").Cells(j, 3).Value = Modele.Value Then 'permet de trouver le modèle dans le classeur B
                    RechercheVPrix = Workbooks("OUTIL_CHIFFRAGE.xlsm").Worksheets("SYNTHESE_BIBLE").Cells(j, 6).Value 'affecte le prix de l'équipement dans la cellule faisant appel à la fonction
                    GoTo PorteDeSortie
                End If
            Next j
        End If
    Next i
 
PorteDeSortie:
End Function
Malheureusement, la cellule faisant appel à la fonction affiche #Valeur!
Je vous remercie pour votre aide.

Pamsu