Bonjour à tous,
Je vous explique mo but :
Rechercher la valeur G4 dans la colonne C d'un autre classeur, voici mon code mais je n'arrive pas à l'élaborer comme il faut avec la fonction Find??
Dim Work As String
Work = Sheets("Commande").Range("G4").Value
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Analyse\Analyse du système.xlsm", UpdateLinks:=0
Sheets("Informations").Select
If Sheets("Informations").Range("C65536").End(xlUp).Value = Work Then
ActiveWorkbook.Save
ActiveWindow.Close
MsgBox ("Veuillez mettre la référence du client!( ex : non du client . réf)Celle indiquée est déjà utilisée.")
Exit Sub
End If
ActiveWorkbook.Save
ActiveWindow.Close
Donc je ne sais pas si je peux modifier le code? .Range("C65536").End(xlUp).Value (et comment?)ou alors est-ce qu'il y a un autre moyen?
Merci de votre aide
Yohan
Je vous explique mo but :
Rechercher la valeur G4 dans la colonne C d'un autre classeur, voici mon code mais je n'arrive pas à l'élaborer comme il faut avec la fonction Find??
Dim Work As String
Work = Sheets("Commande").Range("G4").Value
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Analyse\Analyse du système.xlsm", UpdateLinks:=0
Sheets("Informations").Select
If Sheets("Informations").Range("C65536").End(xlUp).Value = Work Then
ActiveWorkbook.Save
ActiveWindow.Close
MsgBox ("Veuillez mettre la référence du client!( ex : non du client . réf)Celle indiquée est déjà utilisée.")
Exit Sub
End If
ActiveWorkbook.Save
ActiveWindow.Close
Donc je ne sais pas si je peux modifier le code? .Range("C65536").End(xlUp).Value (et comment?)ou alors est-ce qu'il y a un autre moyen?
Merci de votre aide
Yohan