Code VBA à revoir pour Mois et Année juxtaposés

Version imprimable

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:

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

bonjour,
le chemin de enfer est parsemé de bonne intentions!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Type M_A
    Mois As String
    Annee As Integer
    Trouve As Boolean
End Type
 
Sub test()
Dim a As M_A
a = MoiAnnee("Janvier2014")
If a.Trouve = False Then MsgBox "pas cool"
a = MoiAnnee("Janvier 2014")
If a.Trouve = False Then MsgBox "pas cool"
a = MoiAnnee("Janvier-2014")
If a.Trouve = False Then MsgBox "pas cool"
a = MoiAnnee("Janvier_2014")
If a.Trouve = False Then MsgBox "pas cool"
Debug.Print "Mois:= " & a.Mois & " Année:= " & a.Annee
End Sub
 
Function MoiAnnee(V) As M_A
Dim T
Dim t2
t2 = V
T = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre", False)
For I = 1 To 12
   If InStr(UCase(Trim("" & V)), UCase(T(I))) <> 0 Then Exit For
Next
If T(I) <> False Then
MoiAnnee.Mois = "" & T(I)
t2 = Replace(t2, T(I), "")
t2 = Replace(t2, "-", "")
t2 = Replace(t2, "_", "")
MoiAnnee.Annee = CInt(t2)
MoiAnnee.Trouve = True
End If
End Function

Bonsoir rdurupt et le forum,
J'ai trouvé ça et ça fonctionne.
Merci rdurupt d'avoir pris le temps de considérer le problème.
Bonne fin de soirée à tous

Code:

1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If InStr(1, "JanvierFévrierMarsAvrilMaiJuinJuilletAoûtSeptembreOctobreNovembreDécembre", _
             Left(Sh.Name, Len(Sh.Name) - 4), vbTextCompare) Then  'Partie gauche du nom de la feuille(Exemple:Janvier)-4 représentant les 4 derniers caractères(2014)
        Application.Goto Sh.[A1], True
    End If
End Sub