Probleme couleur d'onglet en VBA

[treza88]

Bonjour à tous,

J'ai fait une macro pour changer la couleur d'onglet sur mes feuilles excel mais ça ne fonctionne que partiellement, ça ne fonctionne pas avec toute les couleurs, par exemple avec les couleurs de la palette et certaine couleur personalisé ça fonctionne mais pas avec toutes les couleurs personalisé.

Pouvez vous me dire pourquoi car là je ne comprend pas

Mon code :

Sub SelectionColor()

    Set ComDlg = CreateObject("MSComDlg.CommonDialog")
Debut:
    With ComDlg
        .CancelError = True
        .color = RGB(255, 0, 0)
        .Flags = cdlCCFullOpen Or cdlCCRGBInit
        ' Appel de la boite couleur
        On Error GoTo fin
        .ShowColor
    End With
    couleur = ComDlg.color
    Stop
fin:

    Select Case Err.Number
    Case 32755
        Stop
        couleur = -4142
        Exit Sub
    Case Else
        Resume Next
        couleur = ComDlg.color
        Stop
    End Select
End Sub

Call SelectionColor
Stop
If couleur = -4142 Then
Sheets(Nom1 & Nom2 & " " & Nom3).Tab.ColorIndex = couleur
Stop
Else
Sheets(Nom1 & Nom2 & " " & Nom3).Tab.color = couleur
Stop
End If

D'avance merci

 

[treza88]

Re : Probleme couleur d'onglet en VBA

Bonjour,

Je me permet de revenir poser ma question puisque je n'ai eu aucune reponse, dites moi si toutes fois dans ma question quelque chose ne va pas ou s'il faut que je mettes des infos supplementaires.

Merci