XL 2019 Texbox en couleur suivant conditions

Mapat

XLDnaute Occasionnel

• 15 Février 2020

• #16

Oui c'est vrai
C'est la requête que j'aurais dû formuler dès le départ
Méa culpa !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2020

• #17

Re

Sauf que j'ai toujours pas compris ce que tu souhaites
Est-ce de colorier le TextBox qui précède Colonne5 si celui-ci affiche Oui ?
(C'est ce que semble vouloir dire ta dernière copie d'écran)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2020

• #18

je rejoins Staple
si tu donnais tout les éléments d'un coup on épiloguerais pas 😉

alors quand tu dis que ca marche pas assure toi d'avoir posé ta question avec toute les conditions
sinon on s'en sort pas

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 15 Février 2020

• #19

Staple
Est-ce de colorier le TextBox qui précède Colonne5 si celui-ci affiche Oui ?
Oui c'est exactement cela

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2020

• #20

re
me.controls(colonne5.tabindex-1).propriété
a condition que tu n'est pas construit ton userform et Control comme un chapacan et que le tableau (tabindex) soit cohérent (dans l'ordre) sinon tu sera obligé de le nommer explicitement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2020

• #21

Re

Alors ajoute ce code dans celui de l'userform

VB:

Private Sub couleur()
 With Me.Colonne4
        .BackStyle = IIf(Colonne5 = "Oui", fmBackStyleOpaque, fmBackStyleTransparent)
        .BackColor = IIf(Colonne5 = "Oui", &H80FFFF, &H80000005)
        .ForeColor = IIf(Colonne5 = "Oui", &HFF&, &H0&)
    End With
End Sub

puis cette ligne dans la procédure nommée Private Sub CléCherchée_click()

VB:

 Select Case TypeName(c)
           Case "TextBox", "ComboBox"
             Me(nom_control) = f.Cells(ligneEnreg, col)
             couleur '<- ajout à faire ici
           Case "Frame"

NB: Donc reprendre le code initial présent dans ta PJ du premier message
Et faire juste ces deux ajouts.

Test OK sur mon PC.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2020

• #22

re
exemple le texte box change la couleur du précédent si "oui"

VB:

Private Sub tous_Change(txtb, bkcolor, fontcolor, mot$)
    Dim X
   X = Abs(LCase(Me.ActiveControl.Value) = mot)
        With txtb
         .BackStyle = X
        .BackColor = bkcolor
        .ForeColor = fontcolor(X)
    End With
End Sub

Private Sub colonne2_Change()
    tous_Change colonne1, vbYellow, Array(vbBlack, vbRed), "oui"
End Sub

Private Sub colonne3_Change()
    tous_Change colonne2, vbYellow, Array(vbBlack, vbRed), "oui"
End Sub

Private Sub colonne4_Change()
    tous_Change colonne3, vbYellow, Array(vbBlack, vbRed), "oui"
End Sub
Private Sub colonne5_Change()
    tous_Change colonne4, vbYellow, Array(vbBlack, vbRed), "oui"
End Sub

ca peut fonctionner avec les combobox aussi 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2020

• #23

Re

patricktoulon
Si on se fie strictement au dernier message de Mapat
Seule la colonne5 est concernée
(D'où le "bête" code du message#21) 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2020

• #24

re
@Staple1600
ca fait rien si il change encore de version, c'est réutilisable par les arguments de la sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2020

• #25

Re

Certes, certes
Mais j'ai toujours mon KISS coincé derrière l'oreille 😉
Donc je vais au (presque) plus simple pour le demandeur 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2020

• #26

re
ouais mais la ça n'est pas du kiss
le K.I.S.S serait de faire x sub ou fonction faisant la même chose pour x control
😉
D'autant plus que la sub générique utilisant le bouleen est certainement moins lourde qu'un "IIF(...,...,...)"même si dans le cas présent ca représente un quart de pois chiche

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2020

• #27

Re

Je voulais juste dire que je poste un bout de code "simple" que le demandeur (Mapat) est en mesure de tester facilement sans se faire des noeuds dans la tête
(vu qu'on est déjà rendu au post#27)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2020

• #28

😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2020

• #29

Re

D'ailleurs, je me suis fait un noeud aussi
En ajoutant juste cette procédure, je rends hommage à Gribouille 😉

VB:

Private Sub CléCherchée_AfterUpdate()
With UserForm1.Colonne4
        .BackStyle = IIf(Colonne5 = "Oui", fmBackStyleOpaque, fmBackStyleTransparent)
        .BackColor = IIf(Colonne5 = "Oui", &H80FFFF, &H80000005)
        .ForeColor = IIf(Colonne5 = "Oui", &HFF&, &H0&)
    End With
End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2020

• #30

re

VB:

Private Sub CléCherchée_AfterUpdate()
With UserForm1.Colonne4
        .BackStyle = Colonne5 = "Oui"
        .BackColor = array(&H80FFFF, &H80000005)(abs(Colonne5 = "Oui"))
        .ForeColor =array(&HFF&, &H0&)(abs(Colonne5 = "Oui"))
    End With
End Sub

😉 😛 😛 😛 😛
bon d'accords je sort 😉

 

Vote positif 0 Vote négatif