Déterminer sa propre couleur d'après texte RGB se trouvant à l'intérieur

Bonjour,

Une fois mon onglet je le clôture en supprimant les lignes vides et en déterminant sa couleur d'onglet

J'aimerai que cette couleur d'onglet soit modifiable sans passer par le modification de la macro

Je mets donc une cellule à dispo pour ce changement de couleur avec le RGB tout en changeant le couleur manuellement

ActiveSheet.Tab.Color = Sheets("PLANIF").Range("F48").Interior.Color

D'après vous, est-il possible de faire un bout de code dans la feuille qui colorerait la cellule F4 une fois le RGB rentré et validé par "enter" ?

Merci par avance

Bonsoir,

Dans la cellule F48 ne mettezpas RGB(...), uniquement les chiffres, exemple:

255,23,156

et copiez cette macro dans le module de la feuille "PLANIF"

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bleu As Long, Rouge As Long, Vert As Long
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Target.Address = "$F$48" Then
        Rouge = Left(Target, InStr(1, Target, ",", 1) - 1)
        Bleu = Mid(Target, InStrRev(Target, ",", -1) + 1, 3)
        Vert = Mid(Target, InStr(1, Target, ",", 1) + 1, Len(Target) - InStrRev(Target, ",", -1) + 1)
        Target.Interior.Color = RGB(Rouge * 1, Vert * 1, Bleu * 1)
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

Vous êtes au taquet pour moi aujourd'hui merci beaucoup, ça marche de ouf ;-)

Par contre si je ne peux pas mettre "RGB" dans cette case, comment changer mes autres lignes de code qui fonctionnent toutes avec "RGB" s'il vous plait ?

ActiveSheet.Tab.Color = Sheets("PLANIF").Range("F48").Interior.Color

Il va manquer "RGB" ensuite !

Encore un grand merci pour votre disponibilité

Bonjour

Bonjour à tous

Un essai avec les prescriptions initiales.

Bye !

Heyyyy GMB vous êtes génial MERCIIII beaucoup.

Bonne soirée

Bien à vous

David ;-)