treza88
XLDnaute Occasionnel
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 :
D'avance merci
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 :
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
Code:
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