Créer la liste des onglets avec leur couleur

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

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • 10 January 2017 at 5 h 01 min #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

    21 January 2017 at 1 h 50 min #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

  • Author
    Posts
Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.