Scroll Area sur feuille (01....à 12)

Le 04/11/2018 à 19:08

Bonjour

tu peux aussi inverser

Private Sub Workbook_Open()
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
      With Sh
        Select Case .Name
          Case Feuil13.Name, Feuil14.Name 'mettre les 12 CodeName
             .ScrollArea = "$A$1:$S$1270"
        End Select
      End With
    Next Sh
End Sub

pour moi ses fini

A+

Maurice

Le 04/11/2018 à 20:16

Bonsoir Marie, le forum,

rappel de ton énoncé :

« J'ai 25 feuilles au total.

je souhaiterais seulement les feuilles 07,08,09,10,11,12,01,02,03,04,05,06. »

je te propose cette solution, qui n'est pas basée sur une liste de feuilles (à inclure ou exclure) :

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim fl As Worksheet, s$, v%
  For Each fl In Worksheets
    s = fl.CodeName
    If Len(s) = 7 Then
      If Left$(s, 5) = "Feuil" Then
        v = Val(Right$(s, 2))
        If v >= 1 And v <= 12 Then fl.ScrollArea = "A1:S1270"
      End If
    End If
  Next fl
End Sub

merci de me donner ton avis.

dhany

Le 04/11/2018 à 20:27

ajout : j'ai modifié s = fl.Name en s = fl.CodeName car dans ton post de 14:21 tu as mis cette image :