XL 2010 Figer un ou plusieurs onglets

[Goose]

Bjr,
je suis a la recherche d'une macro qui puisse me permettre de figer un ou plusieurs onglets,
de sorte que ces onglets reste en 1ère position dans le classeur lorsque je fais défiler les autres !?
possible ou pas ?
merci pour vos futurs réponses

 

[Goose]

encore une chose !! si je prends ta macro, comment figer un deuxième onglet a coté de "Recap" ?

 

[Phil69970]

@Goose

N'oublie pas d'adapter le nom de l'onglet "Feuil1"

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Récap").Move Before:=Sheets(Sh.Name)

'A adapter
Sheets("Feuil1").Move Before:=Sheets("Récap") 'Feui1 à adapter avec le nom que tu souhaites
'
Sh.Activate
Application.EnableEvents = True
End Sub

@Phil69970

 

[Goose]

Merci mais cette modif ne fonctionne pas, il n'y a aucun action !!

 

[Phil69970]

@Goose

Comme d'hab....

Peux tu développer et fournir un fichier exemple représentatif avec les noms de tes onglets...
Répondre cela ne fonctionne ne nous aide pas beaucoup, explique qu'est ce qui ne fonctionne pas as tu copié le code

Qu'as tu écris et ou..... etc...
Voir un fichier

....Car bien sur chez moi ça marche......

@Phil69970

 

[Goose]

Effectivement cela fonctionne a présent bizarre...et pour rajouter un 3ème onglet je rajoute la ligne:
Sheets("Feuil2").Move Before:=Sheets("Récap")
?

 

[Phil69970]

@Goose

Sans tester je dirais plutôt ceci :

'A adapter
Sheets("Feuil2").Move Before:=Sheets("Feuil1") 'Feui2 à adapter avec le nom que tu souhaites

@Phil69970

 

[Goose]

Nikel merci !!