Bonjour le forum,
Quelqu'un ici m'avait fait un truc super et tout fonctionne bien.
C'est lorsque j'arrive à mi écran par exemple le 30 ou 31 du mois pour faire remonter en cellule A1 à l'enregistrement pour le mois suivant.
Mais c'est pour des mois avec un espace dans les onglets => Janvier 2014, Février 2014, Mars 2014 etc.
Le code est le suivant dans ThisWorkbook:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If InStr(1, "JanvierFévrierMarsAvrilMaiJuinJuilletAoûtSeptembreOctobreNovembreDécembre", _
             Split(Sh.Name, "")(0), vbTextCompare) Then
        Application.Goto Sh.[A1], True
    End If
End Sub
Mais j'ai aussi un classeur sans espace entre mois et année => Janvier2014, Février2014, Mars2014 etc.
Et là il reste dans la position où il se trouve après enregistrement.
Quelqu'un a t-il une idée?
Merci pour vos éventuelles réponses
Bien cordialement