je débute dans la programmation sous VBA,
et je me sers du compagnon office pour fournir des conseils à
l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction
du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger"
.Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se
passe :
With Assistant.newballoon
.Heading="Ecran d'accueil"
.Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre
de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon
problème-), qu'il en soit d'avance remercié !
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
JFrancois QC
Salut,
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
Salut,
Il y a plusieurs possibilités ... en voici une
Sub ShowAssistant()
Dim iRép As Integer
With Assistant.NewBalloon
.Text = "Bonjour"
.Labels(1).Text = "JF"
.Labels(2).Text = "Toto"
iRép = .Show
While iRép > 0
.Text = "Bonjour " & .Labels(iRép).Text
iRép = .Show
Wend
.Close
End With
End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA,
et je me sers du compagnon office pour fournir des conseils à
l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction
du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger"
.Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se
passe :
With Assistant.newballoon
.Heading="Ecran d'accueil"
.Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre
de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon
problème-), qu'il en soit d'avance remercié !
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
XLnoob
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus générale? Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
----------------- .Labels(1).Text="je veux imprimer" .labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1 procédure .Text="le fichier a été envoyé à l'imprimante" .Show End With End If
If Labels(2).checked = true Then
With Bulle1 procédure .text="sauvegarde effectuée!" .Show End With End If ------------------
Comme on dit au QC : bonjour! [et encore "merci", comme on dit... presque partout] ;-)
Salut,
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus
générale?
Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
-----------------
.Labels(1).Text="je veux imprimer"
.labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1
procédure
.Text="le fichier a été envoyé à l'imprimante"
.Show
End With
End If
If Labels(2).checked = true Then
With Bulle1
procédure
.text="sauvegarde effectuée!"
.Show
End With
End If
------------------
Comme on dit au QC : bonjour!
[et encore "merci", comme on dit... presque partout]
;-)
Salut,
Il y a plusieurs possibilités ... en voici une
Sub ShowAssistant()
Dim iRép As Integer
With Assistant.NewBalloon
.Text = "Bonjour"
.Labels(1).Text = "JF"
.Labels(2).Text = "Toto"
iRép = .Show
While iRép > 0
.Text = "Bonjour " & .Labels(iRép).Text
iRép = .Show
Wend
.Close
End With
End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA,
et je me sers du compagnon office pour fournir des conseils à
l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction
du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger"
.Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se
passe :
With Assistant.newballoon
.Heading="Ecran d'accueil"
.Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre
de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon
problème-), qu'il en soit d'avance remercié !
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus générale? Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
----------------- .Labels(1).Text="je veux imprimer" .labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1 procédure .Text="le fichier a été envoyé à l'imprimante" .Show End With End If
If Labels(2).checked = true Then
With Bulle1 procédure .text="sauvegarde effectuée!" .Show End With End If ------------------
Comme on dit au QC : bonjour! [et encore "merci", comme on dit... presque partout] ;-)
Salut,
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
JFrancois QC
Re-Salut, voilà encore une peu de code... Sub ShowAssistant() Dim Bulle1 As Balloon Dim iRép As Integer Set Bulle1 = Assistant.NewBalloon With Bulle1 .Button = msoButtonSetNone .Heading = "Quoi faire" .BalloonType = msoBalloonTypeButtons .Labels(1).Text = "je veux imprimer" .Labels(2).Text = "je veux enregistrer et quitter" iRép = .Show End With
If iRép = 1 Then ActiveSheet.PrintOut Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertInfo Bulle1.Button = msoButtonSetOK Bulle1.Text = "le fichier a été envoyé à l'imprimante" Bulle1.Show ElseIf iRép = 2 Then ThisWorkbook.Save Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertQuery Bulle1.Button = msoButtonSetYesNo Bulle1.Text = "Vous voulez vraiment quitter" iRép = Bulle1.Show Application.StatusBar = iRép ' pour voir les valeurs de .show If iRép = msoBalloonButtonYes Then Application.Quit End If End Sub
Bonne fin de journée
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus générale? Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
----------------- .Labels(1).Text="je veux imprimer" .labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1 procédure .Text="le fichier a été envoyé à l'imprimante" .Show End With End If
If Labels(2).checked = true Then
With Bulle1 procédure .text="sauvegarde effectuée!" .Show End With End If ------------------
Comme on dit au QC : bonjour! [et encore "merci", comme on dit... presque partout] ;-)
Salut,
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
Re-Salut,
voilà encore une peu de code...
Sub ShowAssistant()
Dim Bulle1 As Balloon
Dim iRép As Integer
Set Bulle1 = Assistant.NewBalloon
With Bulle1
.Button = msoButtonSetNone
.Heading = "Quoi faire"
.BalloonType = msoBalloonTypeButtons
.Labels(1).Text = "je veux imprimer"
.Labels(2).Text = "je veux enregistrer et quitter"
iRép = .Show
End With
If iRép = 1 Then
ActiveSheet.PrintOut
Set Bulle1 = Assistant.NewBalloon
Bulle1.Icon = msoIconAlertInfo
Bulle1.Button = msoButtonSetOK
Bulle1.Text = "le fichier a été envoyé à l'imprimante"
Bulle1.Show
ElseIf iRép = 2 Then
ThisWorkbook.Save
Set Bulle1 = Assistant.NewBalloon
Bulle1.Icon = msoIconAlertQuery
Bulle1.Button = msoButtonSetYesNo
Bulle1.Text = "Vous voulez vraiment quitter"
iRép = Bulle1.Show
Application.StatusBar = iRép ' pour voir les valeurs de .show
If iRép = msoBalloonButtonYes Then Application.Quit
End If
End Sub
Bonne fin de journée
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus
générale?
Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
-----------------
.Labels(1).Text="je veux imprimer"
.labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1
procédure
.Text="le fichier a été envoyé à l'imprimante"
.Show
End With
End If
If Labels(2).checked = true Then
With Bulle1
procédure
.text="sauvegarde effectuée!"
.Show
End With
End If
------------------
Comme on dit au QC : bonjour!
[et encore "merci", comme on dit... presque partout]
;-)
Salut,
Il y a plusieurs possibilités ... en voici une
Sub ShowAssistant()
Dim iRép As Integer
With Assistant.NewBalloon
.Text = "Bonjour"
.Labels(1).Text = "JF"
.Labels(2).Text = "Toto"
iRép = .Show
While iRép > 0
.Text = "Bonjour " & .Labels(iRép).Text
iRép = .Show
Wend
.Close
End With
End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA,
et je me sers du compagnon office pour fournir des conseils à
l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction
du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger"
.Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se
passe :
With Assistant.newballoon
.Heading="Ecran d'accueil"
.Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre
de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon
problème-), qu'il en soit d'avance remercié !
Re-Salut, voilà encore une peu de code... Sub ShowAssistant() Dim Bulle1 As Balloon Dim iRép As Integer Set Bulle1 = Assistant.NewBalloon With Bulle1 .Button = msoButtonSetNone .Heading = "Quoi faire" .BalloonType = msoBalloonTypeButtons .Labels(1).Text = "je veux imprimer" .Labels(2).Text = "je veux enregistrer et quitter" iRép = .Show End With
If iRép = 1 Then ActiveSheet.PrintOut Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertInfo Bulle1.Button = msoButtonSetOK Bulle1.Text = "le fichier a été envoyé à l'imprimante" Bulle1.Show ElseIf iRép = 2 Then ThisWorkbook.Save Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertQuery Bulle1.Button = msoButtonSetYesNo Bulle1.Text = "Vous voulez vraiment quitter" iRép = Bulle1.Show Application.StatusBar = iRép ' pour voir les valeurs de .show If iRép = msoBalloonButtonYes Then Application.Quit End If End Sub
Bonne fin de journée
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus générale? Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
----------------- .Labels(1).Text="je veux imprimer" .labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1 procédure .Text="le fichier a été envoyé à l'imprimante" .Show End With End If
If Labels(2).checked = true Then
With Bulle1 procédure .text="sauvegarde effectuée!" .Show End With End If ------------------
Comme on dit au QC : bonjour! [et encore "merci", comme on dit... presque partout] ;-)
Salut,
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
XLnoob
Re,
MERCI beaucoup, j'ai la réponse à mon problème! (et même davantage!)
La solution se trouvait donc dans la commande "Integer"
C'est à mon tour de bosser maintenant, et de comprendre un peu mieux cette commande...
Salut et bonne journée!
Re-Salut, voilà encore une peu de code... Sub ShowAssistant() Dim Bulle1 As Balloon Dim iRép As Integer Set Bulle1 = Assistant.NewBalloon With Bulle1 .Button = msoButtonSetNone .Heading = "Quoi faire" .BalloonType = msoBalloonTypeButtons .Labels(1).Text = "je veux imprimer" .Labels(2).Text = "je veux enregistrer et quitter" iRép = .Show End With
If iRép = 1 Then ActiveSheet.PrintOut Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertInfo Bulle1.Button = msoButtonSetOK Bulle1.Text = "le fichier a été envoyé à l'imprimante" Bulle1.Show ElseIf iRép = 2 Then ThisWorkbook.Save Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertQuery Bulle1.Button = msoButtonSetYesNo Bulle1.Text = "Vous voulez vraiment quitter" iRép = Bulle1.Show Application.StatusBar = iRép ' pour voir les valeurs de .show If iRép = msoBalloonButtonYes Then Application.Quit End If End Sub
Bonne fin de journée
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus générale? Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
----------------- .Labels(1).Text="je veux imprimer" .labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1 procédure .Text="le fichier a été envoyé à l'imprimante" .Show End With End If
If Labels(2).checked = true Then
With Bulle1 procédure .text="sauvegarde effectuée!" .Show End With End If ------------------
Comme on dit au QC : bonjour! [et encore "merci", comme on dit... presque partout] ;-)
Salut,
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
Re,
MERCI beaucoup, j'ai la réponse à mon problème! (et même davantage!)
La solution se trouvait donc dans la commande "Integer"
C'est à mon tour de bosser maintenant, et de comprendre un peu mieux cette
commande...
Salut et bonne journée!
Re-Salut,
voilà encore une peu de code...
Sub ShowAssistant()
Dim Bulle1 As Balloon
Dim iRép As Integer
Set Bulle1 = Assistant.NewBalloon
With Bulle1
.Button = msoButtonSetNone
.Heading = "Quoi faire"
.BalloonType = msoBalloonTypeButtons
.Labels(1).Text = "je veux imprimer"
.Labels(2).Text = "je veux enregistrer et quitter"
iRép = .Show
End With
If iRép = 1 Then
ActiveSheet.PrintOut
Set Bulle1 = Assistant.NewBalloon
Bulle1.Icon = msoIconAlertInfo
Bulle1.Button = msoButtonSetOK
Bulle1.Text = "le fichier a été envoyé à l'imprimante"
Bulle1.Show
ElseIf iRép = 2 Then
ThisWorkbook.Save
Set Bulle1 = Assistant.NewBalloon
Bulle1.Icon = msoIconAlertQuery
Bulle1.Button = msoButtonSetYesNo
Bulle1.Text = "Vous voulez vraiment quitter"
iRép = Bulle1.Show
Application.StatusBar = iRép ' pour voir les valeurs de .show
If iRép = msoBalloonButtonYes Then Application.Quit
End If
End Sub
Bonne fin de journée
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus
générale?
Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
-----------------
.Labels(1).Text="je veux imprimer"
.labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1
procédure
.Text="le fichier a été envoyé à l'imprimante"
.Show
End With
End If
If Labels(2).checked = true Then
With Bulle1
procédure
.text="sauvegarde effectuée!"
.Show
End With
End If
------------------
Comme on dit au QC : bonjour!
[et encore "merci", comme on dit... presque partout]
;-)
Salut,
Il y a plusieurs possibilités ... en voici une
Sub ShowAssistant()
Dim iRép As Integer
With Assistant.NewBalloon
.Text = "Bonjour"
.Labels(1).Text = "JF"
.Labels(2).Text = "Toto"
iRép = .Show
While iRép > 0
.Text = "Bonjour " & .Labels(iRép).Text
iRép = .Show
Wend
.Close
End With
End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA,
et je me sers du compagnon office pour fournir des conseils à
l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction
du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger"
.Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se
passe :
With Assistant.newballoon
.Heading="Ecran d'accueil"
.Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre
de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon
problème-), qu'il en soit d'avance remercié !
MERCI beaucoup, j'ai la réponse à mon problème! (et même davantage!)
La solution se trouvait donc dans la commande "Integer"
C'est à mon tour de bosser maintenant, et de comprendre un peu mieux cette commande...
Salut et bonne journée!
Re-Salut, voilà encore une peu de code... Sub ShowAssistant() Dim Bulle1 As Balloon Dim iRép As Integer Set Bulle1 = Assistant.NewBalloon With Bulle1 .Button = msoButtonSetNone .Heading = "Quoi faire" .BalloonType = msoBalloonTypeButtons .Labels(1).Text = "je veux imprimer" .Labels(2).Text = "je veux enregistrer et quitter" iRép = .Show End With
If iRép = 1 Then ActiveSheet.PrintOut Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertInfo Bulle1.Button = msoButtonSetOK Bulle1.Text = "le fichier a été envoyé à l'imprimante" Bulle1.Show ElseIf iRép = 2 Then ThisWorkbook.Save Set Bulle1 = Assistant.NewBalloon Bulle1.Icon = msoIconAlertQuery Bulle1.Button = msoButtonSetYesNo Bulle1.Text = "Vous voulez vraiment quitter" iRép = Bulle1.Show Application.StatusBar = iRép ' pour voir les valeurs de .show If iRép = msoBalloonButtonYes Then Application.Quit End If End Sub
Bonne fin de journée
Salut,
et merci d'avoir pris le temps de se pencher sur mon problème.
La solution fonctionne, mais serait-il possible d'envisager une méthode plus générale? Grosso Modo (la syntaxe est fausse mais c'est pour donner la logique):
----------------- .Labels(1).Text="je veux imprimer" .labels(2).Text="je veux enregistrer et quitter"
Set Bulle1 As Assistant.Newballoon
If Labels(1).checked = true Then
With Bulle1 procédure .Text="le fichier a été envoyé à l'imprimante" .Show End With End If
If Labels(2).checked = true Then
With Bulle1 procédure .text="sauvegarde effectuée!" .Show End With End If ------------------
Comme on dit au QC : bonjour! [et encore "merci", comme on dit... presque partout] ;-)
Salut,
Il y a plusieurs possibilités ... en voici une Sub ShowAssistant() Dim iRép As Integer With Assistant.NewBalloon .Text = "Bonjour" .Labels(1).Text = "JF" .Labels(2).Text = "Toto"
iRép = .Show While iRép > 0 .Text = "Bonjour " & .Labels(iRép).Text iRép = .Show Wend .Close End With End Sub
Bonne journée (QC) ou bonne soirée (FR)
Bonjour à tous,
je débute dans la programmation sous VBA, et je me sers du compagnon office pour fournir des conseils à l'utilisateur., mais je n'arrive pas à conditionner un événement en fonction du choix de l'utilisateur.
En gros :
.Labels(1).Text="Roger" .Labels(2).Text="Simone"
Si l'utilisateur clique sur Roger, je voudrais que l'évènement suivant se passe :
With Assistant.newballoon .Heading="Ecran d'accueil" .Text = "Bonjour Roger"
Il me manque donc un petit bout de code à mettre entre mon "If" et mon "Then".
Si quelqu'un a la soluce, (ou alors connait une methode pr compter le nombre de checkbox cochées dans une bulle du compagnon -car ca résoudrait aussi mon problème-), qu'il en soit d'avance remercié !
