XL 2016 Position d'un onglet au début da ma barre onglets

mapomme à dit:

Bonjour à tous ,

Une macro qui devrait faire ce que tu souhaites @Claudy . Pour la lancer, taper la combinaison de touches Ctrl+Maj+o.

La macro :

• ne change pas l'ordre des feuilles
• on saisit le mois et l'année en chiffre séparés par un caractère qui n'est pas un chiffre (on peut donc tout faire avec le pavé numérique et l’orthographe de la saisie importe peu)
• Il ne se passe rien si la saisie ne correspond à aucune feuille

nota : bien évidemment, quand on veut sélectionner un onglet situé vers la fin à droite, il se peut que l'onglet ne soit pas positionné en 1ère position à gauche puisqu' Excel est capable d'afficher de manière visible l'onglet désiré et tous les onglets à sa droite.

Le code:

VB:

Sub OngletEnPos1()
Dim MoisAn$, mois$, an$, c$, deb&, onglet$, Lindex&

   MoisAn = Trim(InputBox("Indiquez le mois et l'année en chiffres séparés par ""non chiffre"" ?:" _
      & vbLf & vbLf & "Exemple: 8 20 ou 08 2020 ou 8.20 pou 8,20 ou 8/20 pour août 2020", vbQuestion))

   For deb = 1 To Len(MoisAn)    'extraction du mois
      c = Mid(MoisAn, deb, 1)
      If c >= "0" And c <= "9" Then mois = mois & c Else Exit For
   Next deb

   For deb = Len(MoisAn) To 1 Step -1     'extraction année
      c = Mid(MoisAn, deb, 1)
      If c >= "0" And c <= "9" Then an = c & an Else Exit For
   Next deb

   onglet = Format("28" & "/" & mois & "/" & an, "mmmyy") 'nom de l'onget sous la forme MMMAA
   On Error Resume Next: Lindex = Sheets(onglet).Index: On Error GoTo 0    'index de l'onglet
   'si index inexistant donc onglet inexistant, on ne fait rien
   If Lindex = 0 Then MsgBox "La feuille '" & MoisAn & "' est inexistante!", vbCritical: Exit Sub

   Application.ScreenUpdating = False
   ActiveWindow.ScrollWorkbookTabs -Sheets.Count      'on affiche la 1ère feuille tout à droite
   ActiveWindow.ScrollWorkbookTabs Lindex             'on déplace les onglets vers la droite de ce qu'il faut
   Application.Goto Sheets(Lindex).Range("a1"), True  'on sélectionne A1 de la feuille désirée
End Sub

edit: v1a

Cliquez pour agrandir...

On Error Resume Next: Lindex = Sheets((Format(Date, "mmmmyy"))).Index: On Error GoTo 0    'index de l'onglet
   'si index inexistant donc onglet inexistant, on ne fait rien
   'If Lindex = 0 Then MsgBox "La feuille '" & MoisAn & "' est inexistante!", vbCritical: Exit Sub

   Application.ScreenUpdating = False
   ActiveWindow.ScrollWorkbookTabs -Sheets.Count      'on affiche la 1ère feuille tout à droite
   ActiveWindow.ScrollWorkbookTabs Lindex             'on déplace les onglets vers la droite de ce qu'il faut
   Application.Goto Sheets(Lindex).Range("G150").End(xlUp)(2), True  'on sélectionne de la feuille désirée