Créer la liste des onglets avec leur couleur

Accueil – Le CFO masqué Forums VBA Créer la liste des onglets avec leur couleur

  • Ce sujet contient 1 réponse, 1 participant et a été mis à jour pour la dernière fois par Paul, le il y a 7 années et 9 mois.
2 sujets de 1 à 2 (sur un total de 2)
  • Auteur
    Articles
  • #33102
    Paul
    Participant

    Bonjour,

    Je souhaite créer la liste des onglets d’un classeur avec, dans chaque cellule contenant le nom de l’onglet, la couleur de l’onglet correspondant.
    De plus, je ne souhaite pas voir les onglets masqués.

    Francis PAQUET a gentiment répondu à ma question avec le code suivant :
    Sub Snamelist()
    Dim i As Integer

    Range(“B5”).Select

    For i = 1 To Sheets.Count
    If Sheets(i).Visible = xlSheetVisible then
    ActiveCell.Value = Sheets(i).Name
    ActiveCell.Interior.Color = Sheets(i).Tab.Color
    ActiveCell.Offset(1, 0).Select
    End If
    Next i

    End Sub

    Cependant, les onglets sans couleur apparaissent en noir. Serait-il possible qu’ils apparaissent sans couleur?

    Merci,

    Paul

    #33409
    Paul
    Participant

    Je me permet de répondre à mon propre sujet. En effet, j’avais posté cette question dans les commentaires d’un article du CFO masqué et Francis PAQUET m’a répondu à la suite de cet article. Donc si vous voulez voir la réponse, vous pouvez aller voir à cette adresse :

    Excel: Sauvegarder des onglets dans un fichier PDF

    Paul

2 sujets de 1 à 2 (sur un total de 2)
  • Vous devez être connecté pour répondre à ce sujet.