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 Insérer une ligne de code

Insérer une ligne de code

2 réponses
Avatar
Titus
Bonjour,
Jean-François Aubert m'a fournit cette proc qui fonctionne très bien, je
voudrai insérer cette ligne de code afin que je n'ai que le bouton annuler
à la place du bouton OK

.Button = msoButtonSetCancel

Merci
Titus

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
Signaler un problème avec ce contenu

2 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
garnote
Je crois l'avoir inséré aux bonx endroits :

Sub yy()
début:
With Assistant.NewBalloon
.Button = msoButtonSetCancel
.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
.Button = msoButtonSetCancel
.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

Serge
Avatar
Titus
Merci beaucoup Serge, mais comment peut-on choisir l'assistant dans ce type
de proc ?
Titus

"garnote" a écrit dans le message de
news:Ua3Zb.61924$

Je crois l'avoir inséré aux bonx endroits :

Sub yy()
début:
With Assistant.NewBalloon
.Button = msoButtonSetCancel
.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
.Button = msoButtonSetCancel
.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

Serge