XL 2019 Texbox en couleur suivant conditions

[Mapat]

Bojour

J'ai adapté un formulaire créé par Mr Boisgontier
Serait-il possible, suivant la réponse qui est en colonne E (Oui ou Non) que le texBox
correspondant sur le formulaire se mette en couleur : Oui = fond jaune et police rouge

En vous souhaitant une bonne soirée

Cordialement

 

[Staple1600]

Re

Oui aussi, mais faut aimer la raie 😉

 

[patricktoulon]

😛 😛 😀 😀 😀 😎

 

[Staple1600]

Re

En hommage à Lana Del Rey ou serait-ce Ray Cooper 😉
(donc juste pour le fun)

Private Sub CléCherchée_AfterUpdate()
t = Array(Array(1, &H80FFFF, &HFF), Array(0, &H80000005, &H0&))
Z = (2 + (Colonne5 = "Oui")) - 1
With UserForm1.Colonne4
.BackStyle = t(Z)(0): .BackColor = t(Z)(1): .ForeColor = t(Z)(2)
End With
End Sub

 

[Mapat]

C'est un feu d'artifice !
Je suis un peu scotché de voir tous ces messages
J'ai donc mis le code du message 27 et ça fonctionne très bien.
Pour les autres messages vous me perdez ...
Je n'irai pas jusqu'à dire que j'avais du tracas jusqu'au cou mais ce que vous avez fait tous les deux est super.
Les costauds de ce forum sont des passionnés et savent, malgré les questions naïves des demandeurs,
passer du temps pour les autres. Ça c'est balèze !
Merci à vous deux et cordialement

 

[Staple1600]

Re,

Mapat
Il n'y a pas de question naïve ou de question bête.
Au pire il y a des questions posées N fois sur le forum 😉

Quant au message#27, je n'y vois aucun code VBA.
Dans ces conditions, il ne peut que fonctionner 😉

 

[Mapat]

Bon, encore une
C'est le #21

 

[Eric C]

Bonsoir le fil,

@ Patrick : ton code #30 ne fonctionne pas comme il se doit. Tu as inversé certaines données. Après recherches (ben ouai... moi je ne conçois pas, je bidouille 😎), je me suis permis de modifier ton code :

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

Bonne soirée à toutes & à tous et bon dimanche à venir (attention aux coups de vent)

 

[Staple1600]

Bonsoir Eric_C

Et mon mien, il fonctionne (celui du#33) ? 😉
J'ai rien inversé normalement 😉

 

[Eric C]

Bonsoir Staple...

Ben, ton tien, il fonctionne fin bien mais trop complexe pour mon petit cerveau (ça me fait des nœuds là haut et c'est pas bien .... ). Comme disait Mapat (#34), je laisse cela aux costauds qui fréquentent notre chaleureux forum.

 

[Staple1600]

Re

Je ne suis pas costaud.
J'ai juste plus d'heures de vol que toi 😉 sur Excel Air Lines.
A mon sens, le moins compliqué (pour le moment) c'est le code du post#29.

 

[Eric C]

@ Staple : "Je ne suis pas costaud" ... peut être physiquement ..... Ok, je sors 😉