XL 2010 Figer un ou plusieurs onglets

Goose

XLDnaute Occasionnel
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
 

Phil69970

XLDnaute Impliqué
Bonjour @Goose

La réponse est ici :

Dans module ThisWorkBook :
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ws As Worksheet, i As Byte, j As Byte
For i = 1 To Sheets.Count
    If Sheets(i).CodeName <> "Feuil" & i Then
    For j = 1 To Sheets.Count
        If Sheets(j).CodeName = "Feuil" & i Then
            Sheets(j).Move before:=Sheets(i)
            Exit For
        End If
    Next j
    End If
Next i

End Sub

@Phil69970
 

Phil69970

XLDnaute Impliqué
Bonjour @Goose

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 dans un fichier vierge avec 4 ou 5 onglets que tu as "mélangé" et après tu appliques la macro .....

*c'est marrant car chez moi cela fonctionne... 🤔

Merci de ton retour argumenté...

@Phil69970
 

Pièces jointes

  • Ordre onglet V1.xlsm
    23.5 KB · Affichages: 2

Goose

XLDnaute Occasionnel
Je viens de me rendre compte que cette macro ne correspond pas a mes attentes de départs !!
Je cherche simplement a ce que l'onglet "Recap" soit toujours en position 1 (figer) lorsque je fait défiler tous mes autres onglets à l'instar de "figer les volets"?
Slts
 

Pièces jointes

  • Cinéma2.xls
    394.5 KB · Affichages: 1

Phil69970

XLDnaute Impliqué
Bonjour @Goose

Avec un fichier exemple et des explications claires cela va nettement mieux.

Je te propose ce fichier l'onglet "Récap" te suit ..."à la trace" c'est à dire qu'il se place juste avant l'onglet qui est actif.

Chaque fois que tu changes d'onglet il viendra se mettre juste avant....
*J'ai mis l'onglet "Récap" en rouge comme cela il sera plus facilement repérable. ;)

@Phil69970
 

Pièces jointes

  • Cinéma2 V1.xlsm
    227.4 KB · Affichages: 4

Phil69970

XLDnaute Impliqué
@Goose

Je pense que c'est pas évident car cela dépends de ton écran.
Exemple:
Ton fichier en plein écran chez moi ==> 17 onglets visibles
1617878802670.png

Et le même ==> 12 onglets visibles
1617878869214.png


@Phil69970
 

Phil69970

XLDnaute Impliqué
Re

Sauf à déployer une usine à gaz j'en ai bien peur....
De plus si tu regardes bien les onglets n'ont pas tous la même longueur ...
1617891791355.png

Je ne sais même pas si c'est possible de connaître la "longueur" d'un onglet...

Je pense que la solution que je t'ai donné est la plus light et facilement transposable.

@Phil69970
 

Phil69970

XLDnaute Impliqué
Re

mais quel est le rapport avec la longueur d'un onglet ?

La réponse est dans les 2 images de mon post #10 ou on voit que suivant l'écran il n'y a pas le même nombre d'onglet et sur l'image de mon post #12 on voit que les onglets n'ont pas la même longueur.
Donc si tu veux l'onglet "Récap" en position1 visible quelque soit l'onglet que tu sélectionnes il faut que l'on puisse savoir :
1)La dimension de ton écran.
2)Connaitre la "longueur" de touts les onglets situé avant celui que tu as sélectionné pour pouvoir inséré l'onglet "Récap" en position 1 visible

Il est facile de comprendre que la "longueur" de l'onglet n'est pas la même et donc si tu as 30 onglets de tailles différentes et donc pour avoir la position 1 de l'onglet il faut calculer la longueur de chaque onglet par rapport à l'écran.

1617958443521.png

1617959476098.png

Je le répète :
Je ne sais même pas si c'est possible de connaître la "longueur" d'un onglet...

Pas sur que cela soit possible mais je suis sur que c'est une usine à gaz garantie.

La solution que je t'ai proposé me semble la plus viable maintenant libre à toi de chercher autre chose.

@Phil69970
 

Discussions similaires

Réponses
29
Affichages
1 K

Statistiques des forums

Discussions
286 624
Messages
1 877 552
Membres
160 769
dernier inscrit
Yudlo
Haut Bas