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
Private Sub Colonne5_Change()
If Colonne5 = "Oui" Then
Me.Colonne5.BackStyle = fmBackStyleOpaque
Me.Colonne5.BackColor = &H80FFFF
Me.Colonne5.ForeColor = &HFF&
Else
Me.Colonne5.BackStyle = fmBackStyleTransparent
Me.Colonne5.BackColor = &H80000005
Me.Colonne5.ForeColor = &H0&
End If
End Sub
En hommage à Lana Del Rey ou serait-ce Ray Cooper
(donc juste pour le fun)
VB:
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
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
@ 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 :
VB:
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)
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.
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.