Microsoft 365 Couleur de fond de textbox [CLOTURE]

  • Initiateur de la discussion Initiateur de la discussion romubzh35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

romubzh35

XLDnaute Occasionnel
Bonjour à tous,

pour savoir ou sont positionnés mes types de produits dans le magasin, j'ai fait une vue de dessus dans le userform et chaque emplacement est représenté par une textbox
dans mon plan d'adressage j'attribue un emplacement et pour chaque référence j'ai un type de produit (jusqu'à 15 différents pour le moment) différencié par une couleur
donc chaque textbox peut avoir 15 couleurs de fond différentes...

Je viens regarder dans la colonne 649 si je trouve l'emplacement A01 D1, si oui je vais regarder quel est le type de produit ce qui me donne ma couleur de fond
mais j'ai fait 8 textbox sur 500 en gros et j'ai le message que ma procédure est trop longue le fichier fait 7 mo pour le moment car il est utilisé pour autre chose je peux pas le télécharger ici.

Pourriez vous m'aider svp

Code:
Private Sub UserForm_Initialize()
Dim i As Integer

i = 6

Do While Not IsEmpty(Sheets("Plan d'adressage 2").Cells(i, 1))
        If Sheets("Plan d'adressage 2").Cells(i, 649) = "A01 D1" Then
        If Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI2") Then
           TextBox18.BackColor = RGB(192, 192, 192)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI3") Then
           TextBox18.BackColor = RGB(255, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI4") Then
           TextBox18.BackColor = RGB(128, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI5") Then
           TextBox18.BackColor = RGB(255, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI6") Then
           TextBox18.BackColor = RGB(128, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI7") Then
           TextBox18.BackColor = RGB(0, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI8") Then
           TextBox18.BackColor = RGB(0, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI9") Then
           TextBox18.BackColor = RGB(0, 255, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI10") Then
           TextBox18.BackColor = RGB(0, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI11") Then
           TextBox18.BackColor = RGB(255, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI12") Then
           TextBox18.BackColor = RGB(163, 228, 215)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI13") Then
           TextBox18.BackColor = RGB(41, 182, 246)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI14") Then
           TextBox18.BackColor = RGB(253, 216, 53)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI15") Then
           TextBox18.BackColor = RGB(255, 205, 210)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI16") Then
           TextBox18.BackColor = RGB(183, 149, 11)
        End If
    End If
   i = i + 1
Loop

i = 6

Do While Not IsEmpty(Sheets("Plan d'adressage 2").Cells(i, 1))
    If Sheets("Plan d'adressage 2").Cells(i, 651) = "A01 D1" Then
             If Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI2") Then
           TextBox18.BackColor = RGB(192, 192, 192)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI3") Then
           TextBox18.BackColor = RGB(255, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI4") Then
           TextBox18.BackColor = RGB(128, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI5") Then
           TextBox18.BackColor = RGB(255, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI6") Then
           TextBox18.BackColor = RGB(128, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI7") Then
           TextBox18.BackColor = RGB(0, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI8") Then
           TextBox18.BackColor = RGB(0, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI9") Then
           TextBox18.BackColor = RGB(0, 255, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI10") Then
           TextBox18.BackColor = RGB(0, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI11") Then
           TextBox18.BackColor = RGB(255, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI12") Then
           TextBox18.BackColor = RGB(163, 228, 215)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI13") Then
           TextBox18.BackColor = RGB(41, 182, 246)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI14") Then
           TextBox18.BackColor = RGB(253, 216, 53)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI15") Then
           TextBox18.BackColor = RGB(255, 205, 210)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI16") Then
           TextBox18.BackColor = RGB(183, 149, 11)
        End If
    End If
   i = i + 1
Loop

i = 6

Do While Not IsEmpty(Sheets("Plan d'adressage 2").Cells(i, 1))
    If Sheets("Plan d'adressage 2").Cells(i, 653) = "A01 D1" Then
        If Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI2") Then
           TextBox18.BackColor = RGB(192, 192, 192)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI3") Then
           TextBox18.BackColor = RGB(255, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI4") Then
           TextBox18.BackColor = RGB(128, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI5") Then
           TextBox18.BackColor = RGB(255, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI6") Then
           TextBox18.BackColor = RGB(128, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI7") Then
           TextBox18.BackColor = RGB(0, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI8") Then
           TextBox18.BackColor = RGB(0, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI9") Then
           TextBox18.BackColor = RGB(0, 255, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI10") Then
           TextBox18.BackColor = RGB(0, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI11") Then
           TextBox18.BackColor = RGB(255, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI12") Then
           TextBox18.BackColor = RGB(163, 228, 215)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI13") Then
           TextBox18.BackColor = RGB(41, 182, 246)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI14") Then
           TextBox18.BackColor = RGB(253, 216, 53)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI15") Then
           TextBox18.BackColor = RGB(255, 205, 210)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI16") Then
           TextBox18.BackColor = RGB(183, 149, 11)
        End If
    End If
   i = i + 1
Loop

[CODE=vb]Private Sub UserForm_Initialize()
Dim i As Integer

i = 6

Do While Not IsEmpty(Sheets("Plan d'adressage 2").Cells(i, 1))
        If Sheets("Plan d'adressage 2").Cells(i, 649) = "A01 D1" Then
        If Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI2") Then
           TextBox18.BackColor = RGB(192, 192, 192)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI3") Then
           TextBox18.BackColor = RGB(255, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI4") Then
           TextBox18.BackColor = RGB(128, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI5") Then
           TextBox18.BackColor = RGB(255, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI6") Then
           TextBox18.BackColor = RGB(128, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI7") Then
           TextBox18.BackColor = RGB(0, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI8") Then
           TextBox18.BackColor = RGB(0, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI9") Then
           TextBox18.BackColor = RGB(0, 255, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI10") Then
           TextBox18.BackColor = RGB(0, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI11") Then
           TextBox18.BackColor = RGB(255, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI12") Then
           TextBox18.BackColor = RGB(163, 228, 215)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI13") Then
           TextBox18.BackColor = RGB(41, 182, 246)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI14") Then
           TextBox18.BackColor = RGB(253, 216, 53)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI15") Then
           TextBox18.BackColor = RGB(255, 205, 210)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI16") Then
           TextBox18.BackColor = RGB(183, 149, 11)
        End If
    End If
   i = i + 1
Loop

i = 6

Do While Not IsEmpty(Sheets("Plan d'adressage 2").Cells(i, 1))
    If Sheets("Plan d'adressage 2").Cells(i, 651) = "A01 D1" Then
             If Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI2") Then
           TextBox18.BackColor = RGB(192, 192, 192)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI3") Then
           TextBox18.BackColor = RGB(255, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI4") Then
           TextBox18.BackColor = RGB(128, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI5") Then
           TextBox18.BackColor = RGB(255, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI6") Then
           TextBox18.BackColor = RGB(128, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI7") Then
           TextBox18.BackColor = RGB(0, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI8") Then
           TextBox18.BackColor = RGB(0, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI9") Then
           TextBox18.BackColor = RGB(0, 255, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI10") Then
           TextBox18.BackColor = RGB(0, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI11") Then
           TextBox18.BackColor = RGB(255, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI12") Then
           TextBox18.BackColor = RGB(163, 228, 215)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI13") Then
           TextBox18.BackColor = RGB(41, 182, 246)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI14") Then
           TextBox18.BackColor = RGB(253, 216, 53)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI15") Then
           TextBox18.BackColor = RGB(255, 205, 210)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI16") Then
           TextBox18.BackColor = RGB(183, 149, 11)
        End If
    End If
   i = i + 1
Loop

i = 6

Do While Not IsEmpty(Sheets("Plan d'adressage 2").Cells(i, 1))
    If Sheets("Plan d'adressage 2").Cells(i, 653) = "A01 D1" Then
        If Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI2") Then
           TextBox18.BackColor = RGB(192, 192, 192)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI3") Then
           TextBox18.BackColor = RGB(255, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI4") Then
           TextBox18.BackColor = RGB(128, 0, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI5") Then
           TextBox18.BackColor = RGB(255, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI6") Then
           TextBox18.BackColor = RGB(128, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI7") Then
           TextBox18.BackColor = RGB(0, 255, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI8") Then
           TextBox18.BackColor = RGB(0, 128, 0)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI9") Then
           TextBox18.BackColor = RGB(0, 255, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI10") Then
           TextBox18.BackColor = RGB(0, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI11") Then
           TextBox18.BackColor = RGB(255, 0, 255)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI12") Then
           TextBox18.BackColor = RGB(163, 228, 215)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI13") Then
           TextBox18.BackColor = RGB(41, 182, 246)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI14") Then
           TextBox18.BackColor = RGB(253, 216, 53)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI15") Then
           TextBox18.BackColor = RGB(255, 205, 210)
        ElseIf Sheets("Plan d'adressage 2").Cells(i, 682) = Sheets("Contraintes").Range("AI16") Then
           TextBox18.BackColor = RGB(183, 149, 11)
        End If
    End If
   i = i + 1
Loop
end sub
 

Pièces jointes

  • USERFORM2.jpg
    USERFORM2.jpg
    254.8 KB · Affichages: 12
  • USERFORM2-bis.jpg
    USERFORM2-bis.jpg
    8.3 KB · Affichages: 12
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
410
Réponses
3
Affichages
569
Réponses
0
Affichages
367
Retour