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
384
Francky79
F
A
  • Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
136
patricktoulon
patricktoulon
A
  • Question
XL 2016 Macro et rajout d'un chiffre au nom d'un Shape
Réponses
9
Affichages
601
alain.raphael
A
Jojo973
  • Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
366
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
733
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
526
AtTheOne
AtTheOne
D
  • Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
912
Dudy
D
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
372
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
535
Nico2978
Nico2978

Membres actuellement en ligne

5 membres et 54 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
315 088
Messages
2 116 087
Membres
112 656
dernier inscrit
VNVT