[Résolu][Calc] If msgbox + 3 actions

[cedric86fr]

Salut,

Je souhaite mettre en place une msgbox avec 3 boutons qui activent 3 actions différentes.

Avec le code ci-dessous, je n'arrive à en gérer que 2.

Comment faudrait-il s'y prendre pour gérer la 3ème action ??

Code : Tout sélectionner

Sub Main
SL = +chr(13) + chr(13)

If msgbox ("Voulez-vous pousuivre l'exécution du programme ?" & _
		SL + "Réessayer = continuer l'exécution du programme erreur par erreur" & _
		SL + "Ignorer= continuer l'exécution du programme en ignorant toutes les erreurs" & _
		SL + "Interrompre = sortir du programme", MB_ABORTRETRYIGNORE + MB_ICONQUESTION, "Gestion des erreurs") = 4 Then
			Print "on continue en traitant les erreurs une par une !"
		Else if 3 Then
			Print "on continue sans tenir compte des erreurs !"	
		Else if 5 Then
			print "on s'arrête ici !"
		End if
		End if
		End if
End Sub

[Dolev]

Bonsoir,

Avez-vous recherché un peu dans ce forum ?
XMessageBoxFactory permet d'avoir des boîtes de dialogue étendues
La section Suprême de code donne un exemple : viewtopic.php?p=248734#p248734

Et sinon, l'exemple fourni par Dude dans votre précédente question gère ça également : viewtopic.php?t=67437
Pourquoi reposter la même question ?

[cedric86fr]

Bonsoir,

Avez-vous recherché un peu dans ce forum ?
XMessageBoxFactory permet d'avoir des boîtes de dialogue étendues
La section Suprême de code donne un exemple : viewtopic.php?p=248734#p248734

Merci pour l'info, j'ai regardé le suprême de code mais je n'arrive pas à intégrer les renvois à la ligne avec & _

Et sinon, l'exemple fourni par Dude dans votre précédente question gère ça également : viewtopic.php?t=67437
Pourquoi reposter la même question ?

Parce que je n'ai pas posé cette question et le lien avec mon problème ne me semble pas évident

Code : Tout sélectionner

Sub Main
Dim Reponse as long

SL = +chr(13) + chr(13)

reponse = msgbox ("Voulez-vous poursuivre l'exécution du programme ?" & _
		SL + "Réessayer = continuer l'exécution du programme erreur par erreur" & _
		SL + "Ignorer= continuer l'exécution du programme en ignorant toutes les erreurs" & _
		SL + "Interrompre = sortir du programme", MB_ABORTRETRYIGNORE + MB_ICONQUESTION, "Gestion des erreurs") 
		

If reponse = 4 Then
	Print "on continue en traitant les erreurs une par une !"
Else if reponse = 5 Then
	Print "on continue sans tenir compte des erreurs !"	
Else if reponse = 3 Then
	print "on s'arrête ici !"
End if
End if
End if

End Sub

Je passe en résolu.

Ajout :  J'avais oublié de reprendre la variable SL = +chr(13) + chr(13) Autre solution avec le supreme de code (les boutons ne sont pas dans le même ordre et interrompre renvoie 0 et pas 3) Code : Tout sélectionner Sub Main SL = +chr(13) + chr(13) App = StarDesktop().getFrames().getByIndex(0) Window = App.getContainerWindow() Kit = Window.getToolkit() BoxType = com.sun.star.awt.MessageBoxType.QUERYBOX BoxButtons = com.sun.star.awt.MessageBoxButtons.BUTTONS_ABORT_IGNORE_RETRY MessageBox = Kit.createMessageBox(Window, BoxType, BoxButtons, "Gestion des erreurs", "Voulez-vous pousuivre l'exécution du programme ?" & _ SL + "Réessayer = continuer l'exécution du programme erreur par erreur" & _ SL + "Ignorer= continuer l'exécution du programme en ignorant toutes les erreurs" & _ SL + "Interrompre = sortir du programme") Selection = MessageBox.execute() ' renvoie la constante du bouton sélectionné MessageBox.dispose() Print Selection If selection = 4 Then Print "on continue en traitant les erreurs une par une !" Else if selection = 5 Then Print "on continue sans tenir compte des erreurs !" Else if selection = 0 Then print "on s'arrête ici !" End if End if End if End Sub