Erreur dans la fonction FIND

Bonsoir à tous,

Je n'arrive pas à trouver la cause de l'erreur lors de l'action FIND.

Sur la macro, je recherche une date (en format nombre) afin de pouvoir copier les données d'un autre onglet du fichier sur l'onglet où à lieu la recherche.

Je joins mon fichier pour aide!

En vous remerciant de vos "lumières"!

Bonsoir,

Dans ton code à l'instruction FIND, il faut remplacer XLFORMULAS par XLVALUES

Mais ton code peut être simplifié en évitant les Select qui ralentissent toujours l'exécution. essaie comme ceci :

Sub Copier_Valeur_Efficacité()
Dim v_date As String
'copie les données de l'onglet Productivité casino dans l'onglet Efficacité Casino à la date correspondante
With Sheets("Efficacité Casino")
    .Select
    v_date = Sheets("Productivité Journalière Casino").Range("S8").Value
    .Range("G9:G440").Find(What:=v_date, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
'Copie une fois la date trouvée les données de Productivité Casion dans les colonnes correspondantes de Efficacité Casino
    .Cells(ActiveCell.Row, ActiveCell.Column + 1) = Sheets("Productivité Journalière Casino").Range("D11")
End With
End Sub

On pourrait encore améliorer bien sur.

Si ok, lors de ta réponse, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Bonjour

Bonjour Dan

Essayes cette macro à la place de la tienne

Option Explicit

Sub Copier_Valeur_Efficacité()
Dim v_date As Long
Dim Cel As Range

  v_date = Sheets("Productivité Journalière Casino").Range("S8").Value
  Set Cel = Sheets("Efficacité Casino").Range("G9:G440").Find(what:=v_date, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    Cel.Offset(0, 1) = Sheets("Productivité Journalière Casino").Range("D11")
  End If
End Sub

Merci!

Tout fonctionne.

Je continue à apprendre et à rendre mes lignes de VBA plus "jolies" grâce à vos savoirs! Je progresse doucement mais surement! Merci encore!