Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Plus de choix possible ?

Plus de choix possible ?

9 réponses
Avatar
Titus
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin d'avoir
plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-François Aubert
Salut Titus,

Comme Billou, sur 2 balloon !

Sub yy()
début:
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"
.Labels(5).Text = "autres"
x = .Show
End With
Select Case x
Case 1: MsgBox "Oui"
Case 2: MsgBox "Non"
Case 3: MsgBox "chez pas"
Case 4: MsgBox "peu être"
Case 5: GoTo suite
End Select
Exit Sub
suite:
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui2"
.Labels(2).Text = "Non2"
.Labels(3).Text = "chez pas2"
.Labels(4).Text = "peu être2"
.Labels(5).Text = "précédents"
y = .Show
End With
Select Case y
Case 1: MsgBox "Oui2"
Case 2: MsgBox "Non2"
Case 3: MsgBox "chez pas2"
Case 4: MsgBox "peu être2"
Case 5: GoTo début
End Select
End Sub





--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Titus" a écrit dans le message de
news:
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin d'avoir
plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub




Avatar
Clément Marcotte
Bonjour,

Tu peux ajouter des "Case" à la suite des autres.



"Titus" a écrit dans le message de
news:
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin
d'avoir

plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub




Avatar
Titus
Merci beaucoup Jean-François
Titus

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Titus,

Comme Billou, sur 2 balloon !

Sub yy()
début:
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"
.Labels(5).Text = "autres"
x = .Show
End With
Select Case x
Case 1: MsgBox "Oui"
Case 2: MsgBox "Non"
Case 3: MsgBox "chez pas"
Case 4: MsgBox "peu être"
Case 5: GoTo suite
End Select
Exit Sub
suite:
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui2"
.Labels(2).Text = "Non2"
.Labels(3).Text = "chez pas2"
.Labels(4).Text = "peu être2"
.Labels(5).Text = "précédents"
y = .Show
End With
Select Case y
Case 1: MsgBox "Oui2"
Case 2: MsgBox "Non2"
Case 3: MsgBox "chez pas2"
Case 4: MsgBox "peu être2"
Case 5: GoTo début
End Select
End Sub





--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Titus" a écrit dans le message de
news:
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin
d'avoir


plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub








Avatar
Titus
Merci beaucoup Clément
Titus

"Clément Marcotte" a écrit dans le message
de news:%
Bonjour,

Tu peux ajouter des "Case" à la suite des autres.



"Titus" a écrit dans le message de
news:
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin
d'avoir

plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub







Avatar
Titus
Euh... C'est encore moi, comment peut-on avoir un bouton Annuler au lieu du
bouton OK
Merci
Titus

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Titus,

Comme Billou, sur 2 balloon !

Sub yy()
début:
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"
.Labels(5).Text = "autres"
x = .Show
End With
Select Case x
Case 1: MsgBox "Oui"
Case 2: MsgBox "Non"
Case 3: MsgBox "chez pas"
Case 4: MsgBox "peu être"
Case 5: GoTo suite
End Select
Exit Sub
suite:
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui2"
.Labels(2).Text = "Non2"
.Labels(3).Text = "chez pas2"
.Labels(4).Text = "peu être2"
.Labels(5).Text = "précédents"
y = .Show
End With
Select Case y
Case 1: MsgBox "Oui2"
Case 2: MsgBox "Non2"
Case 3: MsgBox "chez pas2"
Case 4: MsgBox "peu être2"
Case 5: GoTo début
End Select
End Sub





--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Titus" a écrit dans le message de
news:
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin
d'avoir


plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub








Avatar
garnote
Tu insères ça dans ta macro :

.Button = msoButtonSetCancel

Serge

"Titus" a écrit dans le message de news:

Euh... C'est encore moi, comment peut-on avoir un bouton Annuler au lieu
du

bouton OK
Merci
Titus

"Jean-François Aubert" <à a écrit dans le message
de

news:
Salut Titus,

Comme Billou, sur 2 balloon !

Sub yy()
début:
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"
.Labels(5).Text = "autres"
x = .Show
End With
Select Case x
Case 1: MsgBox "Oui"
Case 2: MsgBox "Non"
Case 3: MsgBox "chez pas"
Case 4: MsgBox "peu être"
Case 5: GoTo suite
End Select
Exit Sub
suite:
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui2"
.Labels(2).Text = "Non2"
.Labels(3).Text = "chez pas2"
.Labels(4).Text = "peu être2"
.Labels(5).Text = "précédents"
y = .Show
End With
Select Case y
Case 1: MsgBox "Oui2"
Case 2: MsgBox "Non2"
Case 3: MsgBox "chez pas2"
Case 4: MsgBox "peu être2"
Case 5: GoTo début
End Select
End Sub





--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Titus" a écrit dans le message de
news:
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin
d'avoir


plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub












Avatar
Jean-François Aubert
.Button = msoButtonSetCancel


Bien vu, Serge

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

Avatar
Titus
Ok, merci beaucoup
Titus

"Jean-François Aubert" <à a écrit dans le message de
news:
.Button = msoButtonSetCancel


Bien vu, Serge

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}






Avatar
Titus
Ok, merci beaucoup
Titus

"garnote" a écrit dans le message de
news:eebYb.59207$
Tu insères ça dans ta macro :

.Button = msoButtonSetCancel

Serge

"Titus" a écrit dans le message de news:

Euh... C'est encore moi, comment peut-on avoir un bouton Annuler au lieu
du

bouton OK
Merci
Titus

"Jean-François Aubert" <à a écrit dans le
message


de
news:
Salut Titus,

Comme Billou, sur 2 balloon !

Sub yy()
début:
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"
.Labels(5).Text = "autres"
x = .Show
End With
Select Case x
Case 1: MsgBox "Oui"
Case 2: MsgBox "Non"
Case 3: MsgBox "chez pas"
Case 4: MsgBox "peu être"
Case 5: GoTo suite
End Select
Exit Sub
suite:
With Assistant.NewBalloon
.Heading = "Effacement"
.Text = "Voulez-vous..."
.Labels(1).Text = "Oui2"
.Labels(2).Text = "Non2"
.Labels(3).Text = "chez pas2"
.Labels(4).Text = "peu être2"
.Labels(5).Text = "précédents"
y = .Show
End With
Select Case y
Case 1: MsgBox "Oui2"
Case 2: MsgBox "Non2"
Case 3: MsgBox "chez pas2"
Case 4: MsgBox "peu être2"
Case 5: GoTo début
End Select
End Sub





--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Titus" a écrit dans le message de
news:
Bonjour, grace à Isabelle, j'ai cette proc, mais comment faire afin
d'avoir


plus de 5 choix, car après mes tests, cela ne peut dépasser 5 choix.
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
Macro1
Case 2
Macro2
Case 3
Macro3
Case 4
Macro4
End Select
End Sub