[AC-2007] Identifier les colonnes filtrées dans un formulaire continu [Résolu]

[Triton972]

Bonjour à tous,

Dans un formulaire continu on peut effectuer des filtres et des tris. Je souhaiterais avoir une procédure "simple" pour identifier quelles sont les données filtrées (et triées). Ceci afin que je puisse modifier l'apparence des étiquettes de tête de colonne pour les identifier rapidement.

Merci de vos aides.

[Simplifi]

hello
il suffit d'afficher me.filter et me.orderby
petite précision: quand on désactive le filtre ou le tri, on ne supprime pas la valeur de ces deux variables, on les conserve mais on passe me.filteron et me.orderby on à false

pour les afficher:
deux zones de texte "Filtre" et "Tri" indépendantes
et ce miniVBA:

Code :

1
2
3
4
5
6
7
8
Private Sub Filtre_GotFocus()
Filtre = Me.Filter
If Me.FilterOn Then Else Filtre = ""
End Sub
Private Sub Tri_GotFocus()
Tri = Me.OrderBy
If Me.OrderByOn Then Else Tri = ""
End Sub

ensuite, tu peux complexifier autant que tu veux (changer des étiquettes.caption, changer des couleurs, etc) et sur l'évènement qui te plait form_click par exemple

[Triton972]

Bonjour Simplifi,

Je te remercie pour ta réponse mais cela ne répond pas vraiment à mon problème. Je vais essayer de le reformuler autrement.


Je souhaite intégrer dans la procédure évènementielle

Code :

Form_ApplyFilter

un morceau de code qui :

1-Balaie tous les contrôles de mon formulaire continu
2-Vérifie pour chaque contrôle si il fait partie de la clé de filtre

Code :

Me.Filter

3-Retrouve l'étiquette associée à ce contrôle
4-Modifie l'apparence de l'étiquette (changer la couleur du fond par exemple, mais ça je sais faire !)

Merci,
Cordialement,

[Simplifi]

Hello
Attention

Code :

Form_ApplyFilter

ne démarre que si tu utilises le bouton activer/désactiver le filtre, ou bien si tu filtres par le bouton droit
Ce qui veut dire que si tu filtre par programmation tu dois ajouter les lignes de prog

Voilà le prog qui fait ce que tu demandes, pas besoin de balayer les contrôles, ni de chercher les zones ou étiquettes....

Code :

1
2
3
4
5
6
7
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
If Me.Filter Like "*nom facturation*" Then
    nom_facturation.BackColor = 255
Else
    nom_facturation.BackColor = -2147483643
End If
End Sub

ou bien

Code :

1
2
3
4
5
6
7
8
9
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
If Me.Filter Like "*nom facturation*" And Me.FilterOn = True Then
    nom_facturation_Étiquette.BackColor = 255
    nom_facturation_Étiquette.Caption = "Nom Facturation Filtré"
Else
    nom_facturation_Étiquette.BackColor = -2147483643
    nom_facturation_Étiquette.Caption = "Nom Facturation"
End If
End Sub

[Triton972]

Bonjour,

Je te remercie Simplifi, je pense que je vais me débrouiller avec cà. Mais bon, j'aurai bien bien voulu trouver une procédure "standard" qui marche avec tous les formulaires sans devoir "dérouler" tous les contrôles. Cela en fait, je sais le faire.
En fait ce que je ne trouve pas, c'est comment retrouver, de façon automatique, l'étiquette d'un contrôle.

Mes recherches m'ont mené vers la propriété

Code :

Parent

de l'étiquette qui "devrait" donner la référence du contrôle associé mais elle me renvoie inlassablement la référence du formulaire actif

Apparemment quand les contrôles sont organisés en mode "Empilé" (donc les étiquettes et les contrôles dans la même section) la propriété

Code :

Me.Etiquette123.Parent.Name

renvoie bien le nom du contrôle associé -> donc Pb pratiquement résolu. Par contre, quand les contrôles sont organisés en mode "Tabulaire" (les étiquettes dans l'en-tête et les contrôles dans la section détail) la propriété Parent renvoie la référence du formulaire.
C'est embêtant car pour un formulaire continu le mode "Tabulaire" me parait incontournable ...

Si tu connais une astuce pour réaliser cette opération ou comment me débrouiller pour que je puisse utiliser cette propriété, je pense que je pourrais concevoir LA procédure que j'espère réaliser.
Merci d'avance pour ta contribution,

Cordialement,

[Simplifi]

Hello
perso j'utilise simplement une procédure de 'nommage' (ou nomination):
Contrôle , Contrôle_Étiquette
Diamètre_Nuance, Diamètre_Nuance_Étiquette
etc....
sinon, je viens d'en apprendre une: pour moi 'parent' renvoyait toujours le nom du formulaire !?!? Merci

[Triton972]

Bonsoir Simplifi,

Tes infos m'ont bien aidé à voir ce qui était, en fait, devant mes yeux ...
Un renommage cohérent de mes étiquettes et l'affaire est entendue !
En fin de compte j'ai plutôt fait une boucle sur les étiquettes ainsi "renommées" (et identifiées ainsi comme étant LES étiquettes qui m'intéressent) et vérifié si les contrôles associés faisaient parti des clés de tri et de filtre.
Quand les contrôles font partie de la clé du filtre : je change la couleur du fond de l'étiquette. Quand les contrôles font partie de la clé du tri : je change la couleur de la police.

Merci à toi.
@+