Microsoft 365 Couleur de fond de textbox [CLOTURE]

R

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: 10
  • USERFORM2-bis.jpg
    USERFORM2-bis.jpg
    8.3 KB · Affichages: 10
Trier par date Trier par votes

Discussions similaires

F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
177
Francky79
F
D
  • Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
468
Dudy
D
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
177
Nico2978
Nico2978
M
  • Question
Microsoft 365 Contrôles Validation Formulaire
2
Réponses
15
Affichages
757
mld.sebastien
M
S
  • Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
147
souhaib ad
S
T
  • Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
910
thivame
T
F
  • Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
543
job75
job75
A
  • Question
XL 2010 Contrôles dans USF avant ajout
Réponses
5
Affichages
486
Oneida
Oneida
F
  • Résolu(e)
XL 2021 Souci avec une macro lors d'un changement de "statut"
Réponses
3
Affichages
349
fanou06
F
F
  • Question
XL 2019 erreur 1004
Réponses
8
Affichages
229
florian50470
F

Membres actuellement en ligne

5 membres et 46 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 165
Messages
2 085 882
Membres
103 010
dernier inscrit
Sys974