Discussion :

[Monfy29]

Bonjour à tous,

Je souhaite faire un déclencheur sur une feuille, qui sélectionne la ou les période(s) selon la logique suivante :

"Si aucune période sélectionnée --> sélection période max,
sinon --> garder la sélection actuelle".

Donc :

Code :

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

If(GetSelectedCount("PERIODE")=0,Max("PERIODE"),GetFieldSelections("PERIODE"))

Ca fonctionne bien, sauf en cas de sélection multiple sur la période...

Une idée?

[PhunkyBob]

Bonjour,

La fonction "GetFieldSelections" retourne les valeurs sélectionnées, séparées par des virgules.

Or, pour sélectionner plusieurs valeurs dans les actions, il faut soit :
- sélectionner 1 valeur avec l'action "sélectionner dans le champ", puis sélectionner 1 à 1 les valeurs suivantes avec l'action "Bouton de sélection" (en anglais : "Toggle selection", qui fait l'équivalent de "j'appuie sur la touche Ctrl pendant que je fais ma sélection, pour ajouter la valeur à la liste des valeurs possibles").
Pour faire comme ça, il faut passer par une macro.


MAIS, si on décide de passer par une macro, alors on peut se permettre de directement ne rien faire dans le cas où il y a déjà une sélection.

Dans l'éditeur de module, on met :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub makeSelection
	set doc = ActiveDocument
 
	' On récupère la sélection du champ qui nous intéresse.
	set mySelections = doc.fields("PERIODE").GetSelectedValues
 
	' On regarde combien il y a de valeurs dans cette sélection.	
	if mySelections.Count = 0 then
		' Il n'y a aucune valeur, alors on prend calcul la valeur maximum possible.
		maxPossibleValue = doc.evaluate("max(PERIODE)")
 
		' On change la sélection pour sélectionner la valeur souhaitée.
		doc.fields("PERIODE").select(maxPossibleValue)
	else
		' Il y a déjà une sélection, alors on ne fait rien.
		'msgbox "On ne fait rien"
	end if
end sub

(notez qu'on prend la valeur maximum possible, pas la valeur maximum absolue.

Et dans les actions, on met "exécuter une macro" en précisant le nom de la macro.


Avantage : la sélection est propre.
Inconvénient : ce n'est pas le plus simple à mettre en place.



- donner la liste des valeurs à sélectionner dans l'action "sélectionner dans le champ" au format suivant :

Code :

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

(valeur1|valeur2|...)

Votre expression s'écrira alors ainsi :

Code :

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

=IF(GetSelectedCount(PERIODE)=0, Max(PERIODE), '(' & concat(PERIODE, '|') & ')')

Avantage : c'est simple à mettre en place.
Inconvénient : la sélection qui en résulte dans les sélections actives n'est pas propre : elle affichera "(valeur1|valeur2)" au lieu de "valeur1, valeur2".

[Monfy29]

Bonjour PhunkyBob,

Merci pour cette réponse très complète.

Je pense que je vais opter pour la macro ; j'aime quand les choses sont "propres" dans mes applications