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

Discussions similaires

F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
366
Francky79
F
A
  • Question
XL 2016 Macro et rajout d'un chiffre au nom d'un Shape
Réponses
9
Affichages
564
alain.raphael
A
Jojo973
  • Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
342
Jojo973
Jojo973
M
  • Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
683
Mody200
M
M
  • Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
1 K
Mody200
M
lynyrd
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
486
AtTheOne
AtTheOne
D
  • Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
882
Dudy
D
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
322
CathyLD
C
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
491
Nico2978
Nico2978
M
  • Question
Microsoft 365 Contrôles Validation Formulaire
2
Réponses
15
Affichages
1 K
mld.sebastien
M

Membres actuellement en ligne

3 membres et 44 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
314 708
Messages
2 112 097
Membres
111 416
dernier inscrit
philipperoy83