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 generalisation d'un sub à tous les controles

generalisation d'un sub à tous les controles

6 réponses
Avatar
tonio
En cette heure matinale, bonjour,

Peut-on généraliser ceci

'
Private Sub Txt_Nom_Enter()
Txt_Nom.FontWeight = 900
Txt_Nom.FontItalic = True
End Sub

Private Sub Txt_Nom_Exit(Cancel As Integer)
Txt_Nom.FontWeight = 400
Txt_Nom.FontItalic = False
End Sub
'

à tous les contrôle

d'avance merci

--
Tonio
Me.[Débutant]=Null
;-);-);-)
Signaler un problème avec ce contenu

6 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
RaphK34
Salut,
Voir dans l'aide For each control .... Next

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"tonio" a écrit dans le message
de news:
| En cette heure matinale, bonjour,
|
| Peut-on généraliser ceci
|
| '
| Private Sub Txt_Nom_Enter()
| Txt_Nom.FontWeight = 900
| Txt_Nom.FontItalic = True
| End Sub
|
| Private Sub Txt_Nom_Exit(Cancel As Integer)
| Txt_Nom.FontWeight = 400
| Txt_Nom.FontItalic = False
| End Sub
| '
|
| à tous les contrôle
|
| d'avance merci
|
| --
| Tonio
| Me.[Débutant]=Null
| ;-);-);-)
|
|
Avatar
tonio
RaphK34 a écrit dans son message <# :
Salut,
Salut,

Voir dans l'aide For each control .... Next
Le soucis c'est que j'ai pas tout compris dans l'aide


Est-ce quelque chose comme ceci ?



Dim Ctrl As Control

For Each Ctrl in Form1.Controls
if Ctrl.onenter then
Ctrl.FontWeight = 900
Ctrl.ForeColor = vbBlue
endif
if Ctrl.onexit then
Ctrl.FontWeight = 400
Ctrl.ForeColor = vbBlack
endif
Next



--


Merci

@+ Raph.


@+

--
Tonio
Me.[Débutant]=Null
;-);-);-)

Avatar
RaphK34
Tu tiens le bon bout ;)
même si je ne comprends pas le .onexit et le .onenter ...

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"tonio" a écrit dans le message
de news:
| RaphK34 a écrit dans son message <# :
| > Salut,
| Salut,
| > Voir dans l'aide For each control .... Next
| Le soucis c'est que j'ai pas tout compris dans l'aide
|
| Est-ce quelque chose comme ceci ?
|
|
|
| Dim Ctrl As Control
|
| For Each Ctrl in Form1.Controls
| if Ctrl.onenter then
| Ctrl.FontWeight = 900
| Ctrl.ForeColor = vbBlue
| endif
| if Ctrl.onexit then
| Ctrl.FontWeight = 400
| Ctrl.ForeColor = vbBlack
| endif
| Next
|
|
|
| > --
|
| Merci
|
| > @+ Raph.
|
| @+
|
| --
| Tonio
| Me.[Débutant]=Null
| ;-);-);-)
|
|
Avatar
tonio
RaphK34 a écrit dans son message :
Tu tiens le bon bout ;)
ca va tu me rassure

même si je ne comprends pas le .onexit et le .onenter ...
Quand j'entre dans un control (.onenter) je met le texte du control en gras et

en couleur.
Lorsque je sort du control (.onexit) je le remet en en normal et en noir

--
@+ Raph.
@+



--
Tonio
Me.[Débutant]=Null
;-);-);-)

Avatar
RaphK34
Salut,
En effet, je n'ai jamais pensé à faire les "évènements" de cette façon;
merci de m'avoir appris quelque chose ...

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"tonio" a écrit dans le message
de news:
| RaphK34 a écrit dans son message :
| > Tu tiens le bon bout ;)
| ca va tu me rassure
| > même si je ne comprends pas le .onexit et le .onenter ...
| Quand j'entre dans un control (.onenter) je met le texte du control en
gras et
| en couleur.
| Lorsque je sort du control (.onexit) je le remet en en normal et en noir
|
| > --
| > @+ Raph.
| @+
|
|
| --
| Tonio
| Me.[Débutant]=Null
| ;-);-);-)
|
|
Avatar
tonio
Salut,
En effet, je n'ai jamais pensé à faire les "évènements" de cette façon;
merci de m'avoir appris quelque chose ...

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"tonio" a écrit dans le message
de news:
RaphK34 a écrit dans son message :
Tu tiens le bon bout ;) ca va tu me rassure
même si je ne comprends pas le .onexit et le .onenter ...
Quand j'entre dans un control (.onenter) je met le texte du control en gras

et en couleur.
Lorsque je sort du control (.onexit) je le remet en en normal et en noir

--
@+ Raph.
@+



--
Tonio
Me.[Débutant]=Null
;-);-);-)





pour l'instant mat ça de côté je n'ai pas réussi à le faire
fonctionner.

si tu à une idée

j'ai touver une autre façon
mais qui oblige quand même à mettre du code dans chaque controls

crée une fonction
puis simplement l'appeler sur _OnEnter ou _OnExit de chaque controls

une question subsidiaire ne vaut-il pas mieux de le faire sur GotFocus
et LostFocus?

--
Tonio
Débutant mais volontaire ;-)