XL 2016 Figer des onglets

CorinneB

XLDnaute Nouveau
Bonjour à tous,
Je suis un nouveau membre et j'espère apprendre beaucoup de choses grâce à vos précieux conseils.
J'ai un fichier qui a beaucoup d'onglets et dans les 2 premiers j'ai des données qui me renvoient vers d'autres onglets grâce à des liens.Pourriez-vous me dire s'il y a moyen de "figer" les 3 premiers onglets d'un fichier, c'est à dire qu'ils restent visibles même si je vais sur un autre onglet (car je dois faire beaucoup d'aller retour entre les onglets).
Je vous remercie de votre aide.
 
Solution
Bonjour CorinneB et les autres,

Il a bien été demandé de figer des onglets non ?

Alors voyez le fichier joint, les onglets Feuil1 Feuil2 Feuil3 sont figés.

La macro dans ThisWorkbook :
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a, i%
a = Array("Feuil1", "Feuil2", "Feuil3") 'liste des onglets figés, à adapter
If IsNumeric(Application.Match(Sh.Name, a, 0)) Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next 'si un onglet n'existe pas
For i = 0 To UBound(a)
    Sheets(a(i)).Move Before:=Sh
Next
Sh.Activate
Application.EnableEvents = True 'réactive les évènements
End Sub
Elle se déclenche quand on active une feuille du classeur.

Remarque : on ne peut...

CorinneB

XLDnaute Nouveau
Sylvanu je vais utiliser ta solution qui est vraiment pratique.
Job75, ta solution est pertinente également, si j'avais le détail pour appliquer une macro (pardon je ne sais pas faire) je l'appliquerai à mon fichier.
Bravo et merci encore à tous.
 

Discussions similaires

Réponses
5
Affichages
249

Statistiques des forums

Discussions
312 505
Messages
2 089 070
Membres
104 016
dernier inscrit
Mokson