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