Figer les volets sur plusieurs onglets

[curious]

Bjr
Je voudrais savoir s'il est possible d'executer une manip pour figer les volets au meme endroit sur plusieurs onglets
J'ai essauyé en selectionnant plusieurs onglets avec Ctrl mais ca ne semble fonctionner
Si quelqu'un a une methode
Merci beaucoup

 

[gex1403]

Salut le forim, curious
Voici une macro ou je fiche a la ligne 3 sur trois feuilles, a mettre dans this worbook open, ( pas testé)

Sub Macro1()
Sheets('Feuil1').Select
Range('A3').Select
ActiveWindow.FreezePanes = True
Sheets('Feuil2').Select
Range('A3').Select
ActiveWindow.FreezePanes = True
Sheets('Feuil3').Select
Range('A3').Select
ActiveWindow.FreezePanes = True

End Sub

@micalement

 

[pat1545.]

Salut,

essaie ceci et adapte si tu veux:

Sub Ligne1Figée()
Dim Mpanel As Boolean
Dim Place_actuelle
Dim nb As Integer, I As Integer
nb = Sheets.Count
For I = 1 To nb
Sheets(I).Select
Application.ScreenUpdating = False
Place_actuelle = ActiveCell.Address
Mpanel = IIf(ActiveWindow.FreezePanes, True, False)
If Not Mpanel Then
Application.Goto Range('A1'), Scroll:=True

ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Else
ActiveWindow.SplitRow = False
ActiveWindow.FreezePanes = False
End If
Application.Goto Range(Place_actuelle), Scroll = True
ActiveWindow.SmallScroll Down:=2
Next I
End Sub

Bye