un internaute
XLDnaute Impliqué
Bonjour le forum,
Comme indiqué dans le titre je n'arrive pas à faire un retour en cellule A1 avec les 3 premières lignes figées.
Si je fais un retour sur A4 tout va bien sinon l'enregistrement reste ou je me trouve.
Malgré les différents codes je n'y arrive pas ou alors quelque chose m'échappe
Voici la macro dans ThisWorkbook:
Merci pour vos éventuels retours
Bien cordialement
Comme indiqué dans le titre je n'arrive pas à faire un retour en cellule A1 avec les 3 premières lignes figées.
Si je fais un retour sur A4 tout va bien sinon l'enregistrement reste ou je me trouve.
Malgré les différents codes je n'y arrive pas ou alors quelque chose m'échappe
Voici la macro dans ThisWorkbook:
Code:
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] '[B6] à la place de [A1] pour faire passer le mois suivant sur cellule B6
'Application.Goto sh.[A1], True 'Supprimer la valeur du deuxième argument Scroll(True) de la méthode GoTo.Sa valeur par défaut est False.
'Application.Goto Sh.[A1], True: Sh.[B6].Select 'Si la cellule active de la feuille Sh est éloignée de A1, une autre option est cette ligne de code
ActiveWindow.ScrollRow = 1 'Pour éviter la méthode .Select, il y a cette autre option de code
End If
End Sub
Merci pour vos éventuels retours
Bien cordialement