Avec l'assistant

Bonjour, Isabelle m'a fournit cette proc qui me permet de me servir de
l'assistant afin d'avoir des choix. Peut-on à la place de OK avoir
Annuler, afin d'éviter le doute chez l'utilisateur ?
Merci
Titus

Sub Macro1()
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
.Labels(3).Text = "chez pas"
.Labels(4).Text = "peu être"
x = .Show
End With
Select Case x
Case 1
MsgBox "action " & x
Case 2
MsgBox "action " & x
Case 3
MsgBox "action " & x
Case 4
MsgBox "action " & x
End Select
End Sub

Salut Titus,

Rajoute cette ligne dans le with :
.Button = msoButtonSetCancel


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC

Bonjour, Isabelle m'a fournit cette proc qui me permet de me servir de
l'assistant afin d'avoir des choix. Peut-on à la place de OK avoir
Annuler, afin d'éviter le doute chez l'utilisateur ?
Merci
Titus

Sub Macro1()
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
.Labels(3).Text = "chez pas"
.Labels(4).Text = "peu être"
x = .Show
End With
Select Case x
Case 1
MsgBox "action " & x
Case 2
MsgBox "action " & x
Case 3
MsgBox "action " & x
Case 4
MsgBox "action " & x
End Select
End Sub