Fonction FindNext
P
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
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.
P
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 !!!!