demande de simplification de code pour un usf

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilbert
Le #18410031
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" 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


Daniel.C
Le #18410381
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


Michel Pierron
Le #18411101
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" 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


magic-dd
Le #18412751
Bonsoir à tous

alors la chapeau

bravo merci de votre aide

@ bientôt pour une nouvelle aventure.
Publicité
Poster une réponse
Anonyme