Couleur d'onglet qui ne revient pas à "sans couleur"

Bonjour bonjour,

Un petit problème avec les couleurs d'onglets intégrées à une Macro qui fait soit disparaitre les lignes vides et colorie l'onglet en vert :

Sub Macro6_Cacher_lignesvides()
Dim cellule As Range

Application.ScreenUpdating = False
With ActiveSheet
    For Each cellule In .Range("A5:A125")
        If WorksheetFunction.CountA(.Range("A" & cellule.Row)) = 0 Then
        cellule.EntireRow.Hidden = True
        Cells(131, 1).Select

ActiveSheet.Tab.Color = RGB(146, 208, 80)

        Range("J1").Select
        End If
    Next cellule
End With
Application.ScreenUpdating = True

End Sub

Et une autre qui devrait me faire réapparaitre les lignes vides tout en m'enlevant la couleur de cet onglet ; mais ce dernier reste bleu alors que je mes sers de "ActiveSheet.Tab.Color = xlColorIndexNone" !

Sub Macro2_Remettre_lignes_vides()

 Application.ScreenUpdating = False
    Rows("5:125").Select
        Selection.RowHeight = 14.4
            ActiveWindow.ScrollRow = 1

ActiveSheet.Tab.Color = xlColorIndexNone

                Range("J1").Select
Sheets("Feuil2").Select
 Application.ScreenUpdating = True

End Sub

Encore une subtilité d'Excel je suppose ?!

Auriez-vous une idée s'il vous plait ?

Merci par avance

Bonjour,

Ceci:

Sub Macro2_Remettre_lignes_vides()
    Application.ScreenUpdating = False
    Rows("5:125").RowHeight = 14.4
    ActiveSheet.Tab.Color = RGB(255, 255, 255)
    Range("J1").Select
    Sheets("Feuil2").Select
    Application.ScreenUpdating = True
End Sub

Sub Macro6_Cacher_lignesvides()
    Dim cellule As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        For Each cellule In .Range("A5:A125")
            If WorksheetFunction.CountA(.Range("A" & cellule.Row)) = 0 Then
                cellule.EntireRow.Hidden = True
            End If
        Next cellule
    End With
    ActiveSheet.Tab.Color = RGB(146, 208, 80)
    Range("J1").Select
    Application.ScreenUpdating = True
End Sub

Cdlt

Re merci Arturo89 mais RGB(255, 255, 255) correspond au blanc et nom à la couleur d'un onglet d'origine !

J'ai besoin également en fin d'année de retrouver mon classeur d'origine avec des onglets "sans couleur"

C'est relou ce bleu avec le "xlColorIndexNone" hein ?!

j'ai moi, mes onglets sont blancs, d'où ma proposition,

la bonne ligne c'est:

    ActiveSheet.Tab.ColorIndex = xlColorIndexNone

Cdlt

Merci Arturo89 ça fonctionne et c'est nickel

Une bonne fin de journée avec ce beau temps

Bien à toi

David