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

 

[aspect]

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

merci beaucoup

 

[job75]

j'ai un bouton sur mon 1er onglet qui me permet justement de faire une remise à ZERO de tous les onglets (43 au total).

La macro de votre post #7 n'est certainement pas celle qui est affectée à ce bouton, alors quelle est cette macro ?

 

[aspect]

La macro de votre post #7 n'est certainement pas celle qui est affectée à ce bouton, alors quelle est cette macro ?

tout fonctionne parfaitement maintenant, je suis maintenant sur un autre problème. 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.

 

[job75]

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).

Vous répétez ce que vous avez dit au post #12 mais vous ne nous dites pas quelle est la macro affectée au bouton 🙄

 

[TooFatBoy]

Vous répétez ce que vous avez dit au post #12 mais vous ne nous dites pas quelle est la macro affectée au bouton 🙄

En effet, pas facile d'avoir des réponses aux questions posées. 🙁

---

La macro du camarade Nain porte quoi en #3 me semble quasiment parfaite. Mais tu n'as toujours pas dit si tu l'avais testée ou pas.
J'y ajouterai éventuellement deux instructions, ce qui donnerait ceci :

Sub Gazougazou()
    Set MaSelection = Selection ' Mémorisation de la plage sélectionnée dans la feuille active
    Sheets.Select               ' Sélection de toutes les feuilles
    Range("A1").Select          ' Sélection de la cellule A1 dans chacune des feuilles
    Sheets("GENERAL").Select    ' Sélection de la feuille "GENERAL"
    MaSelection.Select          ' Sélection de la plage mémorisée
End Sub

Pas de réponse non plus concernant l'intérêt de sélectionner la cellule A1 dans des feuilles qui ne sont pas affichées.

Et aucune réponse concernant l'éventuelle fourniture d'un classeur représentatif.