Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel demande de simplification de code pour un usf

demande de simplification de code pour un usf

4 réponses
Avatar
magic-dd
bonjour

j'ai ce code suivant pour colorer une textbox dans mon formaulaire
mais je le trouve long

n'existe t il pas une simplification de celui ci?

voici le code

Sub COLORIE()
With FormSaisie
Select Case ActiveSheet.Name
Case "JANVIER"
.BoxJan.BackColor = RGB(255, 160, 1)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MARS"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(255, 160, 1)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AVRIL"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(255, 160, 1)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MAI"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(255, 160, 1)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUIN"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(255, 160, 1)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUILLET"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(255, 160, 1)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AOUT"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(255, 160, 1)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "SEPTEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(255, 160, 1)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "OCTOBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(255, 160, 1)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "NOVEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(255, 160, 1)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "DECEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(255, 160, 1)
End Select
End With
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilbert
Bonjour,

Tu peux au moins l'écrire comme ça. Tu économises déjà (12*11) 132 lignes.

Sub COLORIE()
With FormSaisie
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Select Case ActiveSheet.Name
Case "JANVIER"
.BoxJan.BackColor = RGB(255, 160, 1)
Case "FEVRIER"
.BoxFev.BackColor = RGB(255, 160, 1)
Case "MARS"
.BoxMar.BackColor = RGB(255, 160, 1)
Case "AVRIL"
.BoxAvr.BackColor = RGB(255, 160, 1)
Case "MAI"
.BoxMai.BackColor = RGB(255, 160, 1)
Case "JUIN"
.BoxJuin.BackColor = RGB(255, 160, 1)
Case "JUILLET"
.BoxJuil.BackColor = RGB(255, 160, 1)
Case "AOUT"
.BoxAout.BackColor = RGB(255, 160, 1)
Case "SEPTEMBRE"
.BoxSept.BackColor = RGB(255, 160, 1)
Case "OCTOBRE"
.BoxOct.BackColor = RGB(255, 160, 1)
Case "NOVEMBRE"
.BoxNov.BackColor = RGB(255, 160, 1)
Case "DECEMBRE"
.BoxDec.BackColor = RGB(255, 160, 1)
End Select
End With
End Sub

--
Cordialement,

Gilbert


"magic-dd" a écrit dans le message de
news:
bonjour

j'ai ce code suivant pour colorer une textbox dans mon formaulaire
mais je le trouve long

n'existe t il pas une simplification de celui ci?

voici le code

Sub COLORIE()
With FormSaisie
Select Case ActiveSheet.Name
Case "JANVIER"
.BoxJan.BackColor = RGB(255, 160, 1)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MARS"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(255, 160, 1)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AVRIL"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(255, 160, 1)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MAI"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(255, 160, 1)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUIN"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(255, 160, 1)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUILLET"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(255, 160, 1)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AOUT"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(255, 160, 1)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "SEPTEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(255, 160, 1)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "OCTOBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(255, 160, 1)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "NOVEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(255, 160, 1)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "DECEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(255, 160, 1)
End Select
End With
End Sub


Avatar
Daniel.C
Bonjour.
Essaie (non testé) :

Sub COLORIE()
Dim Mois, ColMois As Double, Col As Double, M As Integer
Dim TBs, N
TBs = Array("BoxJan", "BoxFev", "BoxMar", "BoxAvr", "BoxMai", _
"BoxJuin", "BoxJuil", "BoxAout", "BoxSept", "BoxOct", "BoxNov",
"BoxDec")
ColMois = RGB(255, 160, 1)
Col = RGB(209, 223, 229)
Mois = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", _
"JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", _
"NOVEMBRE", "DECEMBRE")
With FormSaisie
M = Application.Match(ActiveSheet.Name, Mois, 0)
For i = 0 To 11
Set Var = ActiveSheet.OLEObjects(TBs(i))
ActiveSheet.OLEObjects(TBs(i)).Object.BackColor = Col
Next i
ActiveSheet.OLEObjects(TBs(M - 1)).Object.BackColor = ColMois
End With
End Sub

Cordialement.
Daniel

bonjour

j'ai ce code suivant pour colorer une textbox dans mon formaulaire
mais je le trouve long

n'existe t il pas une simplification de celui ci?

voici le code

Sub COLORIE()
With FormSaisie
Select Case ActiveSheet.Name
Case "JANVIER"
.BoxJan.BackColor = RGB(255, 160, 1)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MARS"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(255, 160, 1)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AVRIL"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(255, 160, 1)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MAI"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(255, 160, 1)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUIN"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(255, 160, 1)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUILLET"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(255, 160, 1)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AOUT"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(255, 160, 1)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "SEPTEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(255, 160, 1)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "OCTOBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(255, 160, 1)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "NOVEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(255, 160, 1)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "DECEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(255, 160, 1)
End Select
End With
End Sub


Avatar
Michel Pierron
Bonjour magic-dd;
Simplement:

Const N$ = "janfevmaravrmaijuinjuilaoutseptoctnovdec"
Dim Ctl As Control
For Each Ctl In Me.Controls
With Ctl
If InStr(1, N, Mid(.Name, 4), 1) Then .BackColor = RGB(209, 223, 229)
If InStr(1, ActiveSheet.Name, Mid(.Name, 4), 1) Then .BackColor = RGB(255,
160, 1)
End With
Next Ctl

MP


"magic-dd" a écrit dans le message de
news:
bonjour

j'ai ce code suivant pour colorer une textbox dans mon formaulaire
mais je le trouve long

n'existe t il pas une simplification de celui ci?

voici le code

Sub COLORIE()
With FormSaisie
Select Case ActiveSheet.Name
Case "JANVIER"
.BoxJan.BackColor = RGB(255, 160, 1)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MARS"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(255, 160, 1)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AVRIL"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(255, 160, 1)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "MAI"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(255, 160, 1)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUIN"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(255, 160, 1)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "JUILLET"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(255, 160, 1)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "FEVRIER"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(255, 160, 1)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "AOUT"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(255, 160, 1)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "SEPTEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(255, 160, 1)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "OCTOBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(255, 160, 1)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "NOVEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(255, 160, 1)
.BoxDec.BackColor = RGB(209, 223, 229)
Case "DECEMBRE"
.BoxJan.BackColor = RGB(209, 223, 229)
.BoxFev.BackColor = RGB(209, 223, 229)
.BoxMar.BackColor = RGB(209, 223, 229)
.BoxAvr.BackColor = RGB(209, 223, 229)
.BoxMai.BackColor = RGB(209, 223, 229)
.BoxJuin.BackColor = RGB(209, 223, 229)
.BoxJuil.BackColor = RGB(209, 223, 229)
.BoxAout.BackColor = RGB(209, 223, 229)
.BoxSept.BackColor = RGB(209, 223, 229)
.BoxOct.BackColor = RGB(209, 223, 229)
.BoxNov.BackColor = RGB(209, 223, 229)
.BoxDec.BackColor = RGB(255, 160, 1)
End Select
End With
End Sub


Avatar
magic-dd
Bonsoir à tous

alors la chapeau

bravo merci de votre aide

@ bientôt pour une nouvelle aventure.