[Résolu][Calc] Dérouler le contenu d'une liste de validité

[cedric86fr]

Bonjour,

Avant d'importer des statistiques, j'ai un msgbox qui demande la confirmation du mois selectionné.

Lorsque je réponds non, pour l'instant je sors par un exit sub. Je souhaiterais afficher la liste déroulante qui se trouve en C2.

Comment peut-on faire ça ?

Code : Tout sélectionner

Sub Test

DocumentTDB = ThisComponent.CurrentController.Frame
Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

MaFeuilleBDF = thiscomponent.sheets.GetByName("Menu")
ThisComponent.CurrentController.ActiveSheet = MaFeuilleBDF 
MaCelluleDate = MaFeuilleBDF.GetCellRangeByName("C2")
ThisComponent.CurrentController.select(MaCelluleDate)
Mois = MaCelluleDate.String

Reponse = Msgbox ("Les statistiques du mois de " & Mois &" vont être intégrées suite à la sélection du fichier." & Chr(13) & Chr(13) &  "Confirmez-vous ce choix ?" _
& Chr(13) & Chr(13) & "NB : si non, veuillez sélectionner le mois à importer en case C2 du Menu",MB_YESNO + MB_ICONQUESTION, _ 
"Alimentation du tableau de bord")

	If Reponse = 7 Then
		Exit Sub
	Else if reponse = 6 then
		Msgbox "on continue"
End If
End If

End sub

[Dude]

Salut,

Depuis bientôt 20 ans que ce forum existe, il devient très difficile de ne pas trouver une réponse.

viewtopic.php?t=47217&hilit=calc+liste+ ... e+afficher

Et corrige ton titre avec [Calc] en même temps que tu ajoutes [Résolu]

[cedric86fr]

J'avais vu cette solution, mais ce n'est pas vraiment ce que je voudrais faire.

On ne peut pas simplement revenir dans la feuille et simuler un clic gauche sur la flèche pour ouvrir la liste ?

[Dude]

Abracadabra, joins le document.

[cedric86fr]

Oups... le voilà

[Dude]

no_problemo.gif

.
A ajouter

Code : Tout sélectionner

	If Reponse = 7 Then
		document   = ThisComponent.CurrentController.Frame
		dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
		
		rem ----------------------------------------------------------------------
		dispatcher.executeDispatch(document, ".uno:DataSelect", "", 0, Array())
		Exit Sub
	Else if reponse = 6 then
		Msgbox "on continue"
	End If

Note aussi de compléter ton titre car c'est une liste de validité qui est utilisée.

[cedric86fr]

Merci Dude !

J'avais essayé avec l’enregistreur de macro, mais il ne me donne que la cellule C2 et pas

Code : Tout sélectionner

dispatcher.executeDispatch(document, ".uno:DataSelect", "", 0, Array())