Faire un choix avec assistant

Bonjour, j'ai récupérer cette proc sur le site de Christian Herbé
cela fonctionne, mais je voudrais affecter un choix oui ou non et l'affecter
pour des macros.
Merci beaucoup
Titus

Sub simple()
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
.Show
End With
End Sub

bonjour Titus,

With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
x = .Show
End With
If x = 1 Then
MsgBox "exécuté action A"
else
MsgBox "exécuté action B"
End if

isabelle

Bonjour, j'ai récupérer cette proc sur le site de Christian Herbé
cela fonctionne, mais je voudrais affecter un choix oui ou non et
l'affecter

pour des macros.
Merci beaucoup
Titus

Sub simple()
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
.Show
End With
End Sub

Merci Isabelle, cela fonctionne très bien, mais puis avoir le choix entre 4
labels par exemple ?
Titus

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:402005B0.DF95E3D3@videotron.ca...

bonjour Titus,

With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
x = .Show
End With
If x = 1 Then
MsgBox "exécuté action A"
else
MsgBox "exécuté action B"
End if

isabelle

Bonjour, j'ai récupérer cette proc sur le site de Christian Herbé
cela fonctionne, mais je voudrais affecter un choix oui ou non et
l'affecter

pour des macros.
Merci beaucoup
Titus

Sub simple()
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
.Show
End With
End Sub

bien sur autant que tu veux,

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

isabelle

Merci Isabelle, cela fonctionne très bien, mais puis avoir le choix
entre 4

labels par exemple ?
Titus

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:402005B0.DF95E3D3@videotron.ca...

bonjour Titus,

With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
x = .Show
End With
If x = 1 Then
MsgBox "exécuté action A"
else
MsgBox "exécuté action B"
End if

isabelle

Bonjour, j'ai récupérer cette proc sur le site de Christian Herbé
cela fonctionne, mais je voudrais affecter un choix oui ou non et
l'affecter

pour des macros.
Merci beaucoup
Titus

Sub simple()
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui"
.Labels(2).Text = "Non"
.Show
End With
End Sub