FONCTION LookUp A MODIFIER

B

br44

Guest
Bonjour le forum

me voilà de retour aprés quelque temps de silence .
j'ai un petit problème pour adapter une fonction .Dans la procédure qui suit je voudrait pouvoir mettre la prioritée sur un classeur est non sur une feuille puisqu'elle n'existe pas .

ma procédure :

For Each Ws In Array('Détail','Facture')
With ThisWorkbook.Sheets(Ws)
.Range('G3').Value=RefClient
NomClient.Value=MyFunctionLoolUp(.Range('C3').Value)
.Range('A4).Value=NomClient
.Range('C3').Value=Mois.Value
End With
Next Ws

Private Function MyFunctionLookUp(ByVal RefClient As String)As String
Dim Plage As Range
Dim Cell As Range

With ThisWorkbook.Sheets('RefClient')
Set Plage=.Range(.Range('A2'),.Range('A65536').End(xlUp))
End With

For Eacth Cell In Plage
If Cell=RefClient Then
MyFunctionLookUp=Cell.offset(0,1)
Exit For
End if
Next
End Fonction

Il faudrait que ja puisse mettre l'addresse suivante pour trouver la 'RefClient',puisque je n'es pas de feuille'Client'),mais un classeur

Workbooks('C.xls').Sheets('Feuil1')

je vous remercie par avance des réponses que vous pourrez me transmettre et me tient à votres disposition pour toutes infos complèmentaires .
A BIENTOT SUR LE FORUM BR44
 

Discussions similaires

Réponses
1
Affichages
228
Réponses
0
Affichages
206

Statistiques des forums

Discussions
312 901
Messages
2 093 403
Membres
105 723
dernier inscrit
jopi