Excel onglets verticaux
Onglets verticaux sur Excel avec navigation et actualisation simplifiées
🎯 Découvrez dès maintenant, comment lister et actualiser vos onglets verticalement en 1 seul clic sur Excel, en suivant les étapes de ce tutoriel !
En effet, lorsque vous travaillez avec de nombreux onglets, cela peut rendre la navigation entre vos différentes feuilles Excel difficile.
✅ Cependant, en listant les onglets verticalement dans la colonne A, vous obtenez une meilleure visibilité de tous vos onglets, ce qui vous permet de rester organisé et de gagner du temps.
👍 De plus, lorsque vous modifiez, ajoutez ou déplacez l'un des onglets, alors en un seul clic, vous pouvez actualiser automatiquement la liste de vos onglets qui se met à jour également sur toutes vos feuilles Excel.
📌↪️→ 1er Code VBA à utiliser pour afficher les onglets verticalement et naviguer facilement dans votre fichier Excel :
Sub listerNomsOngletsSurTousLesOnglets()
Dim FeuilleCible As Worksheet
Dim FeuilleSource As Worksheet
Dim i As Integer
For Each FeuilleCible In ThisWorkbook.Worksheets
FeuilleCible.Range("A2:" & FeuilleCible.Cells.SpecialCells(xlCellTypeLastCell).Address).ClearContents
FeuilleCible.Cells.ClearFormats
' Appliquer une couleur de remplissage à la cellule A1
FeuilleCible.Range("A1").Interior.Color = RGB(131, 61, 12)
' Appliquer une couleur de police blanche à la cellule A1
FeuilleCible.Range("A1").Font.Color = RGB(255, 255, 255) ' Couleur blanche
FeuilleCible.Hyperlinks.Delete
i = 2
For Each FeuilleSource In ThisWorkbook.Worksheets
With FeuilleCible.Cells(i, 1)
FeuilleCible.Hyperlinks.Add _
Anchor:=FeuilleCible.Cells(i, 1), _
Address:="", _
SubAddress:="'" & FeuilleSource.Name & "'!A1", _
TextToDisplay:=FeuilleSource.Name
' Modifier la couleur de fond de la cellule
.Interior.Color = RGB(145, 249, 229)
' Modifier la couleur de la police d'écriture
.Font.Color = RGB(0, 0, 0)
' Modifier la couleur de la bordure inférieure
.Borders(xlEdgeBottom).Color = RGB(191, 191, 191)
End With
i = i + 1
Next FeuilleSource
FeuilleCible.Columns(1).AutoFit
' Ajouter "Lister onglets" dans la cellule A1
FeuilleCible.Range("A1").Value = "Lister onglets"
Next FeuilleCible
End Sub
📌↪️→ 2ème Code VBA à insérer dans "ThisWorkbook"
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Call listerNomsOngletsSurTousLesOnglets
Sh.Columns(1).AutoFit
Application.EnableEvents = True
End If
End If
End Sub
Un autre tutoriel qui pourrait vous être utile :