Microsoft 365 Couleur de fond de textbox [CLOTURE]

Créer une discussion
Répondre
  • 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 !

S'inscrire
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: 12
  • USERFORM2-bis.jpg
    USERFORM2-bis.jpg
    8.3 KB · Affichages: 12
Trier par date Trier par votes
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
66
Abi23
A
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
410
Francky79
F
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
192
patricktoulon
patricktoulon
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
481
Dranreb
Dranreb
Jojo973
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
392
Jojo973
Jojo973
A
  • Question Question
XL 2016 Macro et rajout d'un chiffre au nom d'un Shape
Réponses
9
Affichages
616
alain.raphael
A
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
761
Mody200
M
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
569
AtTheOne
AtTheOne
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
609
Nico2978
Nico2978
M
  • Question 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
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
394
CathyLD
C
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
949
Dudy
D
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
M
  • Question Question
Microsoft 365 Contrôles Validation Formulaire
2
Réponses
15
Affichages
1 K
mld.sebastien
M
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
367
souhaib ad
S
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
451
florian50470
F
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
F
  • Question Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
767
job75
job75
F
  • Résolu(e)
XL 2021 Souci avec une macro lors d'un changement de "statut"
Réponses
3
Affichages
570
fanou06
F
Retour