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