Bloquer Scroll Area d'une plage définie dans tout le classeur

Bonsoir,

Je fais appel encore à vos talents

J'ai tenté un moyen autre que le VBA, en passant par les fenêtres Propriétés des feuilles, donc je défini la plage qui m'intéresse et ça fonctionne. Je sauvegarde. Mais quand je rouvre mon ficher, le remplissage réalisée dans "ScrollArea" a disparu.

Après de multiples tentatives, j'ai fini par me tourner vers le VBA.

Donc j''ai un code en "Workbook_Open" qui me permet de reporter des valeurs dans d'autres cellules automatiquement.

J'y 'ai inséré la ligne de code permettant de figer le scroll area de A1:V164 mais ce dernier ne fonctionne pas.

Option Explicit

Dim i&, ln&, lgn&, col&, Y As Range, f As Worksheet

Private Sub Workbook_Open()

Worksheets(1).ScrollArea = "A1:V164"

For i = 1 To Sheets.Count

Set f = Sheets(i)

Set Y = f.Cells.Find(Date)

'n = f.Range("A:B").Find("EQUIPE1)", lookat:=xlWhole).Row

If Not Y Is Nothing Then

col = Y.Column

lgn = f.Range("A:B").Find("EQUIPE 1", lookat:=xlWhole).Row

For ln = lgn To Range("A" & Rows.Count).End(xlUp).Row Step 6

f.Cells((3 * ln - 3 * lgn + 24) / 6, 13).Value = f.Cells(ln, col).Value

f.Cells((3 * ln - 3 * lgn + 24) / 6, 14).Value = f.Cells(ln + 2, col).Value

f.Cells((3 * ln - 3 * lgn + 24) / 6, 15).Value = f.Cells(ln + 4, col).Value

Next ln

Exit For

End If

Next i

f.Activate

End Sub

Merci encore les gars

Bonjour

a tester

Private Sub Workbook_Open()
    For I = 1 To Sheets.Count
        Worksheets(I).ScrollArea = "A1:V164"
' 
'
'
'
'
    Next
F.Activate
End Sub

A+

Maurice

ça fonctionne nickel !!

Merci

Bonne soirée