[Résolu][Calc] Zone de liste avec msgbox fonction du choix

[ZEK4]

Bonjour,

dans une feuille calc, j'ai créé une zone de liste liée à une cellule ( qui affiche donc le résultat du choix).
Je voudrais savoir s'il est possible d'ouvrir un msgbox (par exemple :"ce CHOIX INTERDIT de poursuivre la saisie" ) lors d'un choix particulier.


Merci

[Dude]

Salut,

Sous Calc, les contrôles de formulaire sont localisés sur la couche dessin de chaque feuille.
Avec XRay cela te donnera par exemple, pour la feuille courante, l'arborescence des objets suivante :

Code : Tout sélectionner

ThisComponent 
|_ CurrentController 
	|_ ActiveSheet 
		|_ DrawPage 
			|_ Forms 
				|_ liste1

La propriété .currentValue permet de récupérer l'item visible.

Comme d'habitude, la réponse est donnée hors contexte(*).

(*) Fournir le contexte signifie joindre un document explicatif et exhaustif permettant de comprendre et surtout reproduire la problématique.

[ZEK4]

bonjour Dude,

je n'ai rien trouvé dans le forum et tes indications sont pour moi encore trop étrangères.

Si tu me permets, je joints mon fichier ODS ( pas mot de passe de protection);

je souhaite que le choix "aucune pièce d'identité" ( nom le la zone de liste = listbox1), renvoie un msgbox " VOUS NE POUVEZ DEPOSER ";

Merci

NB: comment joindre une image ?; l'url de l'image doit être un lien internet ? et non local PC ?

[yclik]

Bonsoir
Une proposition

copier cette Fonction (macro )

Code : Tout sélectionner

Function ALERTE(arg1)as string
If arg1 = "aucune pièce d’identité !" then msgbox ("ce CHOIX INTERDIT de poursuivre la saisie")
End function

dans une cellule libre exemple en B4

Code : Tout sélectionner

=ALERTE(H6)

[Dude]

je n'ai rien trouvé dans le forum et tes indications sont pour moi encore trop étrangères.

Suprême de code sur ce sujet maintes fois passé : https://forum.openoffice.org/fr/forum/v ... 15&t=13602

je souhaite que le choix "aucune pièce d'identité" ( nom le la zone de liste = listbox1), renvoie un msgbox " VOUS NE POUVEZ DEPOSER ";

Il faut brancher une macro sur l'événement "Exécuter l'action" de ta liste :

Code : Tout sélectionner

Sub QuiSuisJe(oEvt)
	oSrc = oEvt.Source
	if oSrc.SelectedItem = "aucune pièce d'identité" then
		msgbox "VOUS NE POUVEZ DEPOSER"
	endif
End sub

[ZEK4]

Bonjour,

je comprends en effet beaucoup mieux le soin qu'il faut apporter à son titre de sujet pour faciliter la recherche aux autres; le problème et que nous autres les débutants ne connaissons pas encore les termes exacts pour nommer les choses.
On apprend de ces erreurs...
merci Dude , je clos mon sujet