Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access CHANGEMENT COULEUR

CHANGEMENT COULEUR

9 réponses
Avatar
GGYAYA
Bonjour à tous et à toutes;
Est il possible en VBA :

G un formulaire qui possedent plusieurs textbox
Via un une case à cocher je voudrais faire changer les couleurs de fond de
tous les textbox sans passer par
If coche.value= true then
textbox1.backcolor = 255
textbox........
textbox3........
ELSE
textbox1........
END IF

y a t'il un bout de code qui permet d'appliquer une valeur à tous les
controles en meme temps???

Merci d'avance
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jessy SEMPERE
La réponse de Raymond ne te convenait pas ????
Voici ce qu'il avait dit :
******************************************
Bonsoir.

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.BackColor = RGB(212, 208, 200) ' couleur windows
Ctl.ForeColor = RGB(128, 128, 128) 'couleur gris
End If
Next Ctl

Si tu changes souvent faudra mettre tout ça dans une fonction en passant les
couleurs pour ne pas réécrire chaque fois.
******************************************
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"GGYAYA" a écrit dans le message news:

Bonjour à tous et à toutes;
Est il possible en VBA :

G un formulaire qui possedent plusieurs textbox
Via un une case à cocher je voudrais faire changer les couleurs de fond de
tous les textbox sans passer par
If coche.value= true then
textbox1.backcolor = 255
textbox........
textbox3........
ELSE
textbox1........
END IF

y a t'il un bout de code qui permet d'appliquer une valeur à tous les
controles en meme temps???

Merci d'avance




Avatar
Raymond
Bonjour.

La proposition que je t'ai donnée le 24/07 18:56 à la même question que tu
as posé le 24/07 18:35 ne convenait-elle pas ? au cas où tu ne l'as pas
lue, je te la redonne;

Bonsoir.

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.BackColor = RGB(212, 208, 200) ' couleur windows
Ctl.ForeColor = RGB(128, 128, 128) 'couleur gris
End If
Next Ctl

Si tu changes souvent faudra mettre tout ça dans une fonction en passant les
couleurs pour ne pas réécrire chaque fois.
Et prévoir la fonction inverse avec un autre bouton.

Prend soin de lire les réponses aux posts que tu mis il y a deux jours avant
de reposer la même question. Merci.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"GGYAYA" a écrit dans le message de
news:
Bonjour à tous et à toutes;
Est il possible en VBA :

G un formulaire qui possedent plusieurs textbox
Via un une case à cocher je voudrais faire changer les couleurs de fond de
tous les textbox sans passer par
If coche.value= true then
textbox1.backcolor = 255
textbox........
textbox3........
ELSE
textbox1........
END IF

y a t'il un bout de code qui permet d'appliquer une valeur à tous les
controles en meme temps???

Merci d'avance




Avatar
Raymond
Bonjour jessy.

Bon denier WE avant le départ ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
Avatar
GGYAYA
Par erreur, j'a effacé tous les messages, donc j'ai renvoyé la demande;
Merci encore..


"Jessy SEMPERE" a écrit dans le message de
news:bg2ma2$d2j$
La réponse de Raymond ne te convenait pas ????
Voici ce qu'il avait dit :
******************************************
Bonsoir.

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.BackColor = RGB(212, 208, 200) ' couleur windows
Ctl.ForeColor = RGB(128, 128, 128) 'couleur gris
End If
Next Ctl

Si tu changes souvent faudra mettre tout ça dans une fonction en passant
les

couleurs pour ne pas réécrire chaque fois.
******************************************
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"GGYAYA" a écrit dans le message news:

Bonjour à tous et à toutes;
Est il possible en VBA :

G un formulaire qui possedent plusieurs textbox
Via un une case à cocher je voudrais faire changer les couleurs de fond
de


tous les textbox sans passer par
If coche.value= true then
textbox1.backcolor = 255
textbox........
textbox3........
ELSE
textbox1........
END IF

y a t'il un bout de code qui permet d'appliquer une valeur à tous les
controles en meme temps???

Merci d'avance








Avatar
Jessy SEMPERE
Salut m'sieur

Bon denier WE avant le départ ?


Très bon mais épuisant...
je dois être à un baillement par minute ;-))))

Parj contre les vacances ce n'est que dans 2 semaines, il va
donc me rester un week-end avant le départ qui va être tout
aussi épuisant...

Et toi les vacances ???
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------

Avatar
GGYAYA
Peut -on faire une exeption de couleur sur un controle??
, car cette méthode est tres bonne mais elle applique la mise en forme sur
tous les controles textbox du form
Merci d'avance


"Raymond" a écrit dans le message de
news:
Bonjour.

La proposition que je t'ai donnée le 24/07 18:56 à la même question que
tu

as posé le 24/07 18:35 ne convenait-elle pas ? au cas où tu ne l'as pas
lue, je te la redonne;

Bonsoir.

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.BackColor = RGB(212, 208, 200) ' couleur windows
Ctl.ForeColor = RGB(128, 128, 128) 'couleur gris
End If
Next Ctl

Si tu changes souvent faudra mettre tout ça dans une fonction en passant
les

couleurs pour ne pas réécrire chaque fois.
Et prévoir la fonction inverse avec un autre bouton.

Prend soin de lire les réponses aux posts que tu mis il y a deux jours
avant

de reposer la même question. Merci.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"GGYAYA" a écrit dans le message de
news:
Bonjour à tous et à toutes;
Est il possible en VBA :

G un formulaire qui possedent plusieurs textbox
Via un une case à cocher je voudrais faire changer les couleurs de fond
de


tous les textbox sans passer par
If coche.value= true then
textbox1.backcolor = 255
textbox........
textbox3........
ELSE
textbox1........
END IF

y a t'il un bout de code qui permet d'appliquer une valeur à tous les
controles en meme temps???

Merci d'avance







Avatar
Raymond
Bonjour.

C'était ta question.

Si l'exception doit se faire sur un contrôle il suffit de le reprogrammer
après l'ensemble avec ses propres couleurs. Mais il ne faut pas que les
exceptions deviennent nombreuses sinon cette routine n'a pas lieu d'être.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"GGYAYA" a écrit dans le message de
news:
Peut -on faire une exeption de couleur sur un controle??
, car cette méthode est tres bonne mais elle applique la mise en forme sur
tous les controles textbox du form
Merci d'avance




Avatar
Raymond
Arrêt vendredi soir reprise officielle le 1/9.

après le 15 août je pourrais venir faire un tour sur le forum de temps en
temps.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Jessy SEMPERE" a écrit dans le message de
news:bg2nea$dna$
Salut m'sieur

Bon denier WE avant le départ ?


Très bon mais épuisant...
je dois être à un baillement par minute ;-))))

Parj contre les vacances ce n'est que dans 2 semaines, il va
donc me rester un week-end avant le départ qui va être tout
aussi épuisant...

Et toi les vacances ???
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------





Avatar
GGYAYA
C'est parfait en utilisant TAG!!!!;
Merçi à vous tous pour ces renseignements..


"3stone" a écrit dans le message de
news:%
Salut,

GGYAYA
Peut -on faire une exeption de couleur sur un controle??





Dans ce cas, il peut être avantageux d'utiliser la propriété "Remarque"
( Tag )


Voir Propriétés, onglet Autres, ligne Remarques...
Ecrire, par exemple, dans cette ligne remarque le mot "Color"
Cela permet de choisir les contrôles sans s'occuper du type...

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "Color" Then
Ctl.BackColor = RGB(212, 208, 200) ' couleur windows
Ctl.ForeColor = RGB(128, 128, 128) 'couleur gris
End If
Next ctl



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------