Boucle for each pour modifier affichage

Bonjour à tous,

Je souhaite que toutes les feuilles sélectionne la plage "YTD" (existant sur chaque feuille).

C'est juste une question d'affichage.

Sub ALLYTD()
Dim rs As Worksheet
For Each rs In Sheets
Range("YTD").Select
Application.Goto ActiveCell, Scroll:=True
On Error Resume Next
Next rs
End Sub

La macro sans la boucle fonctionne correctement.

Merci de votre aide,

Bonjour

Quel est l'utilité de cette sélection sur des feuilles que vous ne voyez pas ?

La plage se situe au même endroit sur chaque feuille

Cordialement

Bonjour,

Ceci sélectionne la plage YTD de toutes les feuilles

    Set d1 = CreateObject("Scripting.Dictionary")
    For i = 1 To Sheets.Count
        d1.Add Sheets(i).Name, ""
    Next i
    Sheets(d1.keys).Select
    Range("YTD").Select

Cdlt

    Set d1 = CreateObject("Scripting.Dictionary")
    For i = 1 To Sheets.Count
        d1.Add Sheets(i).Name, ""
On Error Resume Next
    Next i
    Sheets(d1.keys).Select
    Range("YTD").Select

Cdlt

J'ai essayé le code, cela ne fonctionne pas. La méthode Select de classe a échoué.

Comme j'ai aussi 2 onglets qui n'ont pas de plage YTD, j'ai ajouté "On Error Resume Next". Cela ne fonctionne pas non plus

J'ai plusieurs noms de plage dont YTD mais aussi MTD, MTD 2 etc...

EN cliquant sur un bouton, toutes les feuilles se mettent sur la plage concernée.