Fonction FindNext

Bonjour,

Depuis quelque semaines je me retrouve confronté a une erreur que je n'arrive pas à résoudre ....

Il s’agit d'un fichier de suivi des congés avec une option de centralisation du tableau à la date du jour.

Cette fonction fonctionnait parfaitement jusque courant mai. Mais maintenant elle me claque une erreur => "Variable Objet ou variable de bloc non définie"

J'ai cherché mais ne trouve pas l'erreur.... j'aurais donc besoin de votre aide plz !!!

Merci d'avance

voici le code en question

17classeur1.xlsm (85.96 Ko)
Dim daterecherche As Date
Private Sub Worksheet_Activate()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Annee = Range("A1")

    mois = Month(Date)

    M = Choose(mois, "january", "february", "march", "april", "may", "juny", "july", "august", "september", "october", "november", "december")

    If Annee = Year(Now) Then

        daterecherche = Day(Date) & " " & M

        Cells.Find(What:=daterecherche, after:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select

        ligne = Selection.Row
        colonne = Selection.Column - 1

        Do While Cells(ligne, colonne) = Cells((ligne - 1), colonne)

            ligne = ligne - 1

        Loop

        Cells(ligne, colonne).Select

        jourtrouve = Selection.Row - 1

        If Selection.EntireRow.Hidden = True Then

        Rows("3:370").EntireRow.Hidden = False

        End If

        Rows("3:" & jourtrouve).EntireRow.Hidden = True

    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Bonjour,

Pas le temps de regarder en détail, mais Juin, c'est june, et pas juny.

A force de cherché la grosse erreur de code on ne voit pas la petite erreur de traduction de la personne qui a mis en place l’outil -_-" c'était tout con !!! merci encore !!!!

Rechercher des sujets similaires à "fonction findnext"