Discussion :

[Kaera]

Bonjour à tous !

J'ai un formulaire qui contient 96 zones de texte. Oui oui.
Je souhaite appliquer un même évènement sur clic pour toutes ces zones; en l'occurrence, quand on clique dessus, la zone se colore en bleu.
Est-il possible d'éviter le calvaire d'avoir à faire ça pour chaque zone ?
N'existe-t-il pas un code permettant d'appliquer cet évènement à toutes mes zones ?

Merci d'avance !

Kaera*

[Piou2fois]

Sauf erreur de ma part AC2003 a la gestion des mises en forme conditionnel.
Il suffit de mettre "champ activé" et choisir la couleur.
Pour travailler avec ça, clic droit sur le contrôle texte, mise en forme conditionnelle.

[Kaera]

Bonjour Piou2fois !

Je connais la MFC mais ça ne résoud pas mon problème : je suis contrainte de le faire pour chacune des 96 zones de texte.
Ce que je recherche, c'est une méthode en VBA qui me permette d'effectuer un évènement sur clic avec une boucle pour l'appliquer à toutes mes zones de texte.

[Piou2fois]

Arf
La V 2007 d'access permet de faire des sélections multiples pour les MFC, pas 2003 de souvenir dommage...
Sinon avec l'outil de copie des propriétés ? (le pinceau)
Sinon en VBA gérer les événements pour plusieurs champs je pense que ça existe (spécialement pour les contrôle que tu ajoutes à la volée) mais je n'ai rien en tête...

[Kaera]

Merci tout de même d'avoir répondu.

[Piou2fois]

Une piste peut être avec les WithEvents mais je ne sais pas si en VBA c'est jouable, en VB j'avais utilisé ça sur un projet étudiant il y a 12ans...

a priori ca passe :
http://stackoverflow.com/questions/1...s-on-userforms

[f-leb]

Hello,

Si tu as 96 zones de texte nommées: zdt_1, zdt_2, …, zdt_96

Sur chargement du formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Load()
For i = 1 To 96
    Me.Controls("zdt_" & i).OnClick = "=Mafonction()"
Next
End Sub

Dans Mafonction(), tu peux récupérer le nom du contrôle activé, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Function Mafonction()
    Debug.Print Me.ActiveControl.Name ' Nom du contrôle activé
    Me.Controls(Me.ActiveControl.Name).BackColor = RGB(0, 0, 255) ' le contrôle activé avec un fond bleu
End Function

 

[Kaera]

f-leb : beau gosse.

J'étais bien partie, j'avais ma private sub Form_Load mais je coinçais sur la fonction.

Grand merci à vous deux !

[f-leb]

f-leb : beau gosse.