Microsoft 365 Retour à la case A1

[aspect]

Bonjour,
j'ai automatiser un fichier EXCEL par le biais d'un bouton "RAZ" qui me permet de faire une remise à zéro de certains onglets. Ce bouton est sur mon 1er onglet GENERAL.
je reste coincé sur un petit problème, je voudrait faire en sorte de rajouter dans mon VBA qui fonctionne avec mon bouton de remise à zéro le fait que tous les autres onglets reviennent automatiquement sur la case A1.
Exemple : onglet "affaires", onglet "concurrence", onglet "en cours", ... un clic sur le bouton "RAZ" tous mes onglets reviennent en case A1 même si je suis sur une autre case.
J'ai rajouter dans mon VBA bouton RAZ cette commande pour l'onglet "affaires" et de même pour les autres onglets:
Sub affaires ()
'
' REMISE_A_ZERO_affaires Macro
'

'
Sheets("affaires").Select
With ActiveWindow
.ScrollColumn = 1
.ScrollRow = 1
End With
End Sub
cette commande fonction parfaitement en mode manuel lors que je le lance dans le VBA, mais ne fonctionne pas si j'utilise mon bouton "RAZ".
Si quelqu'un aurait une petite idée? merci
Aspect

 

[Saboh12617]

Bonjour,
Dans votre Sub RAZ, j'imagine que vous bouclez sur les feuilles, auquel cas dans chaque feuille, il faut ajouter à la fin l'instruction Range("A1").Activate

Public Sub Example()
    dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        ' votre code
        MaMacroRAZ ws
       
        ' à la fin
        ws.Range("A1").Activate
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[Nain porte quoi]

Hello,

un poil plus simple que la solution (fonctionnelle !) de Saboh12617

Sub Select_All_A1()
    Sheets.Select
    Range("A1").Select
    Sheets(1).Select
End Sub

 

[aspect]

TOP !, merci pour vos réponses
Aspect

 

[Phil69970]

Bonjour à tous

Perso j'aime bien ceci sans select ni activate

Sub affaires()

    ' Ton code ici

Application.Goto Reference:=Worksheets("Feuil1").Range("A1"), Scroll:=True 'Nom de la feuille à adapter

End Sub