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