Combo semi automatique

**samsam007** · 11/12/2017, 12h02

Bonjour le forum,

Après quelques recherches, je ne parviens pas à faire exactement ce que je souhaite. Je vous explique : est-il possible de faire une combo en saisie qui en fonction de ce qui est tapé réduit la liste des possibilités?
EXEMPLE:
mon fichier de données(HFSQL classique)
pomme
banane
abricot
pêche
cerise

COMBO
Si utilisateur tape "ri" par exemple la combo va lui proposer 2 choix : "abricot" ou "cerise"

Je sais le faire via une table et un champ de saisie (avec la fonction "ActivFiltre) mais pas contre je bloque pour mettre en place le même système sur une combo!!
Est-ce possible? Pouvez-vous me donner des pistes?
Merci d'avance pour vos retours.

**midou23175** · 11/12/2017, 13h31

Bonjour,

Je ne sais pas, si cela est possible de construire un tel filtre, ni la requête correspondante.
En tout cas, voici une piste

Code :

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

1
2
3
4
5
6
 
POUR TOUT Fichier x
      SI ChaîneOccurrence(Fichier.Libellé, "ri", SansCasse) > 0 ALORS
          Trace(Fichier.Libellé)
      FIN
FIN

**serendib** · 11/12/2017, 13h57

Par HFiltre, c'est facile :

] Contient : prend en compte la casse des caractères
~] Contient : ne prend pas en compte la casse des caractères

**midou23175** · 11/12/2017, 15h28

Envoyé par serendib

Par HFiltre, c'est facile :

] Contient : prend en compte la casse des caractères
~] Contient : ne prend pas en compte la casse des caractères

Test concluant

Code :

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

1
2
 
HFiltre(Fichier," Libellé ~] 'valeur' ")

Merci

**samsam007** · 11/12/2017, 23h52

Bonsoir à tous,

Je vous remercie pour vos différents retours.

J'ai du mal m'expliquer : cette fonction attends une condition de sélection (sous forme de chaîne de caractères) mais en réalité l'utilisateur connait plus au moins le contenu de la combo mais la recherche n'est pas toujours identique!!
Elle doit se baser sur la chaîne de caractère renseignée dans la combo elle-même.
En espérant avoir été plus précis dans ma demande?:

Merci

**Yusep** · 12/12/2017, 00h38

Avez-vous recherché dans ce forum ?

https://www.developpez.net/forums/d1...namique-combo/

Je n'ai que WD15, essayez :

https://doc.pcsoft.fr/fr-FR/?1000021074

**midou23175** · 12/12/2017, 00h42

MaCombo..ValeurAffichée ? pour plus de détails http://doc.pcsoft.fr/?2510129&verdisp=200

Pour l'adaptation du filtre en fonction de la valeur saisie, inspirez-vous de ceci

Code :

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

1
2
3
4
5
6
 
Ville = "Lyon"
POUR TOUT Client AVEC "VilleClient = ' "+Ville+" ' "
        // Ajout des clients dans la liste
        ListeAjoute(LISTE_ListeClient, Client.NumClient)
FIN

**samsam007** · 12/12/2017, 00h49

@Yusep
Merci pour le premier lien... j'avais déjà lu le fil.... mais impossible de mettre en place l'ensemble des fonctions ^^ je ne sais pas trop par ou commencer?? Si vous avez un exemple ou des indications je suis preneur! Merci

**midou23175** · 12/12/2017, 00h54

Il me semble que le message que je viens de vous envoyer est passé inaperçu
le filtre à adapter est le suivant

Code :

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

1
2
 
HFiltre(Fichier," Libellé ~] 'valeur' ")

**samsam007** · 12/12/2017, 00h58

@midou23175
Non non votre message n'est pas passé inaperçu ^^ je vous remercie pour votre réponse
Je suis entrain de réfléchir à comment l'adapter à ma situation.....
Débutant sur Windev, tout ne me vient pas instantanément....

**samsam007** · 12/12/2017, 01h02

@midou23175
Ou dois je placer ce code?
"A chaque modification de..." ma combo?
fichier = mon fichier de donnée : OK
libellé = colonne de mon fichier à afficher : OK
valeur? doit être égal à ma combo..valeurAffichée si je me trompe pas??

**midou23175** · 12/12/2017, 01h11

OK 4/4

Code :

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

1
2
 
HFiltre(Fichier, "Libellé ~] ' "+MaCombo..ValeurAffichée+" ' ")

N.B
- pensez à annuler le filtre si valeurAffichée de la combo =""
pour réafficher tout le fichier
- je pense qu'il manque dans le code en question, une instruction pour réafficher la combo, du genre TableAffiche ?

**samsam007** · 12/12/2017, 01h21

@midou23175
je viens d'adapter votre code.... pas d'erreur de syntaxe mais lorsque je rentre dans ma conbo et que j'insère des caractères de certains libellé de mon fichier de données, je n'ai pas de tri ^^ l'ensemble de mon fichier de données s'affiche??

Merci de votre aide

**midou23175** · 12/12/2017, 01h30

J'ai modifié mon dernier message, à lire éventuellement.

Après la ligne HFiltre(), mettre :

Code :

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

1
2
 
TableAffiche(MaCombo,taDébut)

**samsam007** · 12/12/2017, 01h30

voilà le code que j'ai dans "A chaque modification de ..."

Code :

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

1
2
3
4
5
6
SI COMBO_Motif_saisine_cm..ValeurAffichée = " " ALORS
	HDésactiveFiltre(motif_saisine_cm)
	SINON
	HFiltre(motif_saisine_cm, "intitule_motif ~] ' "+COMBO_Motif_saisine_cm..ValeurAffichée+" ' ")
	ListeAffiche(COMBO_Motif_saisine_cm)
FIN

Mais là plus rien ne se passe??

**samsam007** · 12/12/2017, 01h34

Nom : Capture.PNG
Affichages : 667
Taille : 57,7 Ko

avec la suite de votre code j'ai le message d'erreur suivant?

**midou23175** · 12/12/2017, 03h23

Envoyé par samsam007

voilà le code que j'ai dans "A chaque modification de ..."

Code :

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

1
2
3
4
5
6
SI COMBO_Motif_saisine_cm..ValeurAffichée = " " ALORS
	HDésactiveFiltre(motif_saisine_cm)
	SINON
	HFiltre(motif_saisine_cm, "intitule_motif ~] ' "+COMBO_Motif_saisine_cm..ValeurAffichée+" ' ")
	ListeAffiche(COMBO_Motif_saisine_cm)
FIN

Mais là plus rien ne se passe??

Justement, la syntaxe que j'ai utilisé dans le filtre (messages précédents) est erronée,
les espaces ajoutés exprès (pour un meilleur visuel du code), faussent le résultat.

l'emplacement de la procédure de traitement, ne convient pas dans la combo, pour diverses raisons.
On peut utiliser 2 boutons (Filtrer) et (Annuler le filtre)

Finalement, je vous propose ceci
Ajouter un champ "Rechercher (Filtrer)"

Dans le code " à chaque modification" du champ Rechercher

Code :

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

1
2
3
4
 
// à chaque modification du champ Rechercher
HFiltre(MonFichier, "Libellé ~]'"+MoiMême+"'")
ListeAffiche(MaCombo,taDébut)

N.B :
- la combo initiale, pas de code supplémentaire. fonctionnement normal avec saisie et sélection
- pour annuler le filtre, remettre à blanc le champ "Rechercher"
- dans code sortie de la fenêtre, mettre HDésactiveFiltre(MonFichier),
pour parer à l'éventualité "fermeture fenêtre avec champ rechercher non vidé"

**samsam007** · 12/12/2017, 09h11

Bonjour midou23175,

Un grand merci pour ce retour.
Je vais mettre tout cela en place

Bonne journée à vous et au forum.

++

**midou23175** · 12/12/2017, 09h25

Envoyé par midou23175

N.B :
- la combo initiale, pas de code supplémentaire. fonctionnement normal avec saisie et sélection
- pour annuler le filtre, remettre à blanc le champ "Rechercher"
- dans code sortie de la fenêtre, mettre HDésactiveFiltre(MonFichier),
pour parer à l'éventualité "fermeture fenêtre avec champ rechercher non vidé"

En réalité, en remettant à blanc, le champ Rechercher, le filtre reste toujours activé.
La particularité du filtre avec contient "", permet de remonter tous les enregistrements, ce qui arrange les choses.
Donc, HDésactiveFiltre() dans code sortie fenêtre, a sa raison d'être.

**Hemgé** · 12/12/2017, 13h54

Bonjour,

C'est peut-être l'occasion de rappeler 3 anciennes discussions sur le forum de PC soft :

Simulation saisie assistée : OK
Combo avec saisie limitée aux valeurs de la liste
Saisie assistée dans un champ sur un autre fichier

Bon travail

Hemgé

Combo semi automatique [WD20]

WinDev

Discussions similaires

Partager

Partager