Discussion :

[johan0510]

Bonjour à tous,

J'ai une COMBO_Liste qui est alimenté par des "Zones".
Je souhaite récupérer les "Zones" mais pas avoir de doublons de "Libellé".

C'est pourquoi je souhaite utiliser la fonction ListeCherche().

Voici mon code :

Code :

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

1
2
3
4
5
6
SI HTrouve(Zones) ALORS
nIndice = ListeCherche(COMBO_Liste,Zones.IDZones)
SI nIndice <> -1
ListeAjoute(COMBO_Liste, Zones.Libelle+gLien(Zones.IDZones))
FIN
FIN

Ce code ne fonctionne pas... nIndice est égal à -1...

Voyez vous une erreur ? Des explications sur cette fonction ?

Merci pour votre aide.

[Hemgé]

Bonjour

Tout d'abord vous signaler une syntaxe alternative du ListeCherche dans ce cas précis :

Code :

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

1
2
3
COMBO_Liste = Zones.IDZones
SI COMBO_Liste = -1 ALORS // Zones.IDZones pas présent dans la COMBO
...

Dans cette syntaxe comme dans celle que vous avez utilisée, il faut que la rubrique mémorisée de votre COMBO soit Zones.IDZones (à vérifier dans la Fenêtre de Description de la COMBO ou à fixer par COMBO_Liste..RubriqueMémorisée) et dépend éventuellement de gLienActive().

Si vous allez relire l'aide en ligne sur ListeCherche, c'est (assez) bien expliqué.

Bonne recherche

Hemgé

[johan0510]

Bonjour

Tout d'abord vous signaler une syntaxe alternative du ListeCherche dans ce cas précis :

Code :

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

1
2
3
COMBO_Liste = Zones.IDZones
SI COMBO_Liste = -1 ALORS // Zones.IDZones pas présent dans la COMBO
...

Dans cette syntaxe comme dans celle que vous avez utilisée, il faut que la rubrique mémorisée de votre COMBO soit Zones.IDZones (à vérifier dans la Fenêtre de Description de la COMBO ou à fixer par COMBO_Liste..RubriqueMémorisée) et dépend éventuellement de gLienActive().

Si vous allez relire l'aide en ligne sur ListeCherche, c'est (assez) bien expliqué.

Bonne recherche

Hemgé

Bonjour Hemgé,

Je n'ai pas trop compris ou tu voulais en venir...

Ma COMBO_Liste est dépendant de gLien (Fenêtre Description --> Détail --> x Retourne la valeur spécifiée avec la fonction gLien)

Merci pour ton aide tout de même !

[johan0510]

La solution :

Code :

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

1
2
3
4
5
6
		SI HTrouve(Zones) ALORS	
			nIndice = ListeCherche(COMBO_Liste, Zones.IDZones)
			SI nIndice = -1 ALORS // Zones.IDZones pas présent dans la COMBO
			ListeAjoute(COMBO_Liste, Zones.Libelle+gLien(Zones.IDZones))
			FIN
		FIN

Merci !