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

 

[aspect]

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

merci pour votre réponse

 

[aspect]

merci pour votre réponse

au final, Jai fait ceci:

Sub REMISE_A_ZERO_affaires()
Sheets(" affaires").Select
Range("A1").Select
Sheets("affaires").Select
End Sub

merci encore pour vos réponses
aspect

 

[Nain porte quoi]

Hello,

y'a un Sheets Select de trop

Sub REMISE_A_ZERO_affaires()
    Sheets("affaires").Select
    Range("A1").Select
End Sub

 

[aspect]

Hello,

y'a un Sheets Select de trop

Sub REMISE_A_ZERO_affaires()
    Sheets("affaires").Select
    Range("A1").Select
End Sub

Ok, merci

 

[job75]

Bonjour,

au final, Jai fait ceci:

Sub REMISE_A_ZERO_affaires()
Sheets(" affaires").Select
Range("A1").Select
Sheets("affaires").Select
End Sub

merci encore pour vos réponses
aspect

Je ne comprends pas : ce code ne traite qu'une feuille, la feuille "affaires".

Or vous en avez plusieurs et au post #1 vous dites vouloir toutes les traiter.

Faudrait savoir ce que vous voulez 😎

A+

 

[TooFatBoy]

Je ne comprends pas : ce code ne traite qu'une feuille, la feuille "affaires".

Or vous en avez plusieurs et au post #1 vous dites vouloir toutes les traiter.

"Toutes", sauf la feuille active nommée GENERAL. 😉

 

[aspect]

Bonjour,

Je ne comprends pas : ce code ne traite qu'une feuille, la feuille "affaires".

Or vous en avez plusieurs et au post #1 vous dites vouloir toutes les traiter.

Faudrait savoir ce que vous voulez 😎

A+

En fait j'utilise plusieurs onglets, dans certains j'utilise des valeurs VRAI / FAUX et dans d'autres je demande juste à revenir en position A1, maintenant tout cela fonctionne bien. J'ai soumis une autre demande afin d'améliorer mon Excel, j'ai un bouton sur mon 1er onglet qui me permet justement de faire une remise à ZERO de tous les onglets (43 au total). On m'a donné une commande 'Application.ScreenUpdating = False' qui me permet donc de faire cette remise à ZERO en tâche de fond. Les onglets avec mes valeurs VRAI / FAUX fonctionne bien, par contre maintenant ceux ou je veux faire un retour en position A1 ne fonctionne plus.

 

[aspect]

"Toutes", sauf la feuille active nommée GENERAL. 😉

Absolument

 

[TooFatBoy]

Les onglets avec mes valeurs VRAI / FAUX fonctionne bien, par contre maintenant ceux ou je veux faire un retour en position A1 ne fonctionne plus.

As-tu essayé la génialissime macro de #3 ?


Si tu as la possibilité de poster ton classeur, sans données confidentielles, ce serait un plus pour les personnes voulant tenter de t'aider. 😉

Par exemple, perso je ne suis pas persuadé de l'utilité de se positionner en cellule A1 sur une feuille qui n'est pas affichée. Mais ça dépend du contexte.

 

[dysorthographie]

bonjour,
tu n'es pas obligé de sélectionner l'onglet.

Sub PositionnerA1SurToutesLesFeuilles()

    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ws.ScrollRow = 1
        ws.ScrollColumn = 1
    Next ws

End Sub