Microsoft 365 activer onglet format date

[tahon.patrice]

Bonjour à tous,

je me creuse la tête.
J'aimerai activer un onglet déjà existant ( exemple: 1-06-24)
en msg box ca marche, il m'indique bien le nom de la cellue mais impossible de m'ouvrir l'onglet?
Quelqu'un à une piste?
Merci à tous
Patrice

 

[sylvanu]

Bonjour Patrice,
Un essai en traitant la date non pas sous forme de nombre mais sous forme de chaine :

 Sub MOISSHEET()
 Range("A" & Range("a65536").End(xlUp)(2).Row).Select
 Selection.Offset(-1, 0).Select
 Dim MOIS$, Chaine$
 MOIS = ActiveCell
 MOIS = Replace(MOIS, "/", "-")
 MOIS = Left(MOIS, 6) & Right(MOIS, 2)
 Worksheets(MOIS).Activate
 End Sub

 

[tahon.patrice]

Bonjour Patrice,
Un essai en traitant la date non pas sous forme de nombre mais sous forme de chaine :

 Sub MOISSHEET()
 Range("A" & Range("a65536").End(xlUp)(2).Row).Select
 Selection.Offset(-1, 0).Select
 Dim MOIS$, Chaine$
 MOIS = ActiveCell
 MOIS = Replace(MOIS, "/", "-")
 MOIS = Left(MOIS, 6) & Right(MOIS, 2)
 Worksheets(MOIS).Activate
 End Sub

Merci beaucoup