Boucle actualiser chaque feuille d'un liste une à une

[mdidailler]

Bonjour à toutes et à tous,

J'imagine que ma question est très bête.
J'aimerais créer une boucle me permettant d'actualiser chaque feuille d'un liste une à une.
La liste de feuille a été nommée "NOMRESUME".


Sub REFRESHALL()
'
' REFRESHALL Macro

Dim H
For H = 1 To Range("NOMRESUME").End(xlDown).Row
Sheets(H + 1).Select
Application.Run "MAJONGLET"

Next H

End Sub

Ca ne fonctionne pas, la première feuille actualisée est systématiquement la 2ème feuille du classeur quelle qu'elle soit (dans ma liste ou non).

Merci par avance pour votre aide !

Matthieu

 

[Caillou]

Re : Boucle actualiser chaque feuille d'un liste une à une

Bonjour,

Plutôt :

  Dim c As Range
  For Each c In Range("NOMRES")
    Sheets(c.Value).Select
    Application.Run "MAJONGLET"
 Next

Caillou

 

[mdidailler]

Re : Boucle actualiser chaque feuille d'un liste une à une

C'est parfait ça fonctionne très bien.

Merci beaucoup Caillou !