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 assistant NewBalloon

assistant NewBalloon

12 réponses
Avatar
gilbert
Bonjour à tous

dans la bulle d'un assistant newballoon il est possible de mettre
deux bouton
par exemple : .Button = msoButtonSetOkCancel
comment récupérer la valeur de Ok ou de Cancel pour poursuivre le choix ?

merci d' avance

Gilbert
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Michel Pierron
Bonjour Gilbert;
Sub YesNo()
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
.Animation = 112
.BalloonType = 1
.Button = 4
.Heading = "Sauvegarder" & vbLf & "les modifications ?"
.Icon = 6
.Mode = 0
If .Show = -3 Then MsgBox "Ok pour la sauvegarde !", 64
End With
Assistant.On = False
End Sub

MP

"gilbert" a écrit dans le message de
news:
Bonjour à tous

dans la bulle d'un assistant newballoon il est possible de mettre
deux bouton
par exemple : .Button = msoButtonSetOkCancel
comment récupérer la valeur de Ok ou de Cancel pour poursuivre le choix ?

merci d' avance

Gilbert




Avatar
gilbert
merci bien Michel

Où récupère-t-on les valeurs
par exemple de .animation2
ou de .button=4

Encore merci pour le coup de main

Gilbert

"Michel Pierron" a écrit dans le message de
news:
Bonjour Gilbert;
Sub YesNo()
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
.Animation = 112
.BalloonType = 1
.Button = 4
.Heading = "Sauvegarder" & vbLf & "les modifications ?"
.Icon = 6
.Mode = 0
If .Show = -3 Then MsgBox "Ok pour la sauvegarde !", 64
End With
Assistant.On = False
End Sub

MP

"gilbert" a écrit dans le message de
news:
Bonjour à tous

dans la bulle d'un assistant newballoon il est possible de mettre
deux bouton
par exemple : .Button = msoButtonSetOkCancel
comment récupérer la valeur de Ok ou de Cancel pour poursuivre le choix
?



merci d' avance

Gilbert








Avatar
michdenis
Bonjour Gilbert,

En début de macro, insère ces 2 lignes de code :

Dim x As MsoAnimationType
x = msoAnimationSaving

msoAnimationSaving est le nom de la constante 112

Et si tu veux voir toutes les constantes possibles,

à partir de cette ligne de code :
x = msoAnimationSaving
Si tu effaces le signe "=" et le retape, il devrait t'apparaître une liste déroulante contentant la liste des constantes
possibles.

Tu peux aussi utiliser l'explorateur d'objet à partir du bouton de la barre d'outils de la fenêtre VBE(visual basic
editor) et tu fais une recherche sur cette expression : MsoAnimationType . Dans la section du bas de la fenêtre, à
droite, tu pourras lire la liste des constantes, et, si tu cliques sur une d'elles, regarde tout en bas de la fenêtre,
tu auras son équivalence numérique et en Hexadécimale.


Salutations!




"gilbert" a écrit dans le message de news:
merci bien Michel

Où récupère-t-on les valeurs
par exemple de .animation2
ou de .button=4

Encore merci pour le coup de main

Gilbert

"Michel Pierron" a écrit dans le message de
news:
Bonjour Gilbert;
Sub YesNo()
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
.Animation = 112
.BalloonType = 1
.Button = 4
.Heading = "Sauvegarder" & vbLf & "les modifications ?"
.Icon = 6
.Mode = 0
If .Show = -3 Then MsgBox "Ok pour la sauvegarde !", 64
End With
Assistant.On = False
End Sub

MP

"gilbert" a écrit dans le message de
news:
Bonjour à tous

dans la bulle d'un assistant newballoon il est possible de mettre
deux bouton
par exemple : .Button = msoButtonSetOkCancel
comment récupérer la valeur de Ok ou de Cancel pour poursuivre le choix
?



merci d' avance

Gilbert








Avatar
gilbert
bonjour

merci bien

entre temps j' avais trouvé une astuce

.Animation = msoAnimationGestureLeft
msg = .Animation
MsgBox msg

ce qui me donne le n°

merci encore @++++

Gilbert

"michdenis" a écrit dans le message de
news:
Bonjour Gilbert,

En début de macro, insère ces 2 lignes de code :

Dim x As MsoAnimationType
x = msoAnimationSaving

msoAnimationSaving est le nom de la constante 112

Et si tu veux voir toutes les constantes possibles,

à partir de cette ligne de code :
x = msoAnimationSaving
Si tu effaces le signe "=" et le retape, il devrait t'apparaître une liste
déroulante contentant la liste des constantes

possibles.

Tu peux aussi utiliser l'explorateur d'objet à partir du bouton de la
barre d'outils de la fenêtre VBE(visual basic

editor) et tu fais une recherche sur cette expression : MsoAnimationType .
Dans la section du bas de la fenêtre, à

droite, tu pourras lire la liste des constantes, et, si tu cliques sur une
d'elles, regarde tout en bas de la fenêtre,

tu auras son équivalence numérique et en Hexadécimale.


Salutations!




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

merci bien Michel

Où récupère-t-on les valeurs
par exemple de .animation2
ou de .button=4

Encore merci pour le coup de main

Gilbert

"Michel Pierron" a écrit dans le message de
news:
Bonjour Gilbert;
Sub YesNo()
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
.Animation = 112
.BalloonType = 1
.Button = 4
.Heading = "Sauvegarder" & vbLf & "les modifications ?"
.Icon = 6
.Mode = 0
If .Show = -3 Then MsgBox "Ok pour la sauvegarde !", 64
End With
Assistant.On = False
End Sub

MP

"gilbert" a écrit dans le message de
news:
Bonjour à tous

dans la bulle d'un assistant newballoon il est possible de mettre
deux bouton
par exemple : .Button = msoButtonSetOkCancel
comment récupérer la valeur de Ok ou de Cancel pour poursuivre le
choix



?

merci d' avance

Gilbert













Avatar
;-)))
modestement j'ai cru que la réponse m'était adressée..

AMHA,il est plus parlant d'écrire les constantes en
clair, plutot que sous forme de valeur

uniquement pour le fun :

Public Parole As New spvoice
'dans outils, ajouter une référence à:
' Microsoft Speech Object Library

Sub Infoballoon()
'---adaptation geedee
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
Parole.Speak "Salut Mr Pierron !"
.Heading = "Salut Mr Pierron"
.Animation = msoAnimationAppear
.Text = "il faut appuyer sur un bouton là :"
.BalloonType = msoBalloonTypeBullets
.Button = msoButtonSetYesNo
.Icon = msoIconTip
.Mode = msoModeModal
If .Show = msoBalloonButtonNo Then
Parole.Speak "Dommage que vous ayez appuyé sur non,
je m'en vay !!"
'macro si non
Else
Parole.Speak "vous avez appuyé sur oui"
Parole.Speak "Ok pour la sauvegarde ! Au Revoir""
'---- macro si oui
End If
End With
Assistant.On = False
End Sub
-----Message d'origine-----
Bonjour Gilbert;
Sub YesNo()
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
..Animation = 112
..BalloonType = 1
..Button = 4
..Heading = "Sauvegarder" & vbLf & "les modifications ?"
..Icon = 6
..Mode = 0
If .Show = -3 Then MsgBox "Ok pour la sauvegarde !", 64
End With
Assistant.On = False
End Sub

MP

"gilbert" a écrit
dans le message de

news:
Bonjour à tous

dans la bulle d'un assistant newballoon il est
possible de mettre


deux bouton
par exemple : .Button = msoButtonSetOkCancel
comment récupérer la valeur de Ok ou de Cancel pour
poursuivre le choix ?



merci d' avance

Gilbert





.




Avatar
Michel Pierron
Bonsoir GD;
J'aime bien le "il faut appuyer sur un bouton là :" au cas où alzheimerisé,
je resterais plongé dans un abîme de perplexité (qui pourrait cependant
m'induire une notion de l'infini) devant une boîte de dialogue avec 2
options (pour moi, c'est déjà une de trop) possibles en me demandant si je
ne vais pas faire une connerie en choisissant une option plutôt qu'une autre
partagé entre le remords de ne pas avoir opté pour l'autre et le regret
d'avoir choisi celle ci.
AMHA,il est plus parlant d'écrire les constantes en clair, plutot que sous
forme de valeur. Oui, mais quand tu écris des applications de plus de 50 000
lignes, il est de bon ton d'économiser la mémoire au maximum et toutes les
combines sont les bienvenues; sans compter qu'indiquer directeent la valeur
de la constante est plus rapide en exécution que de l'inscrire en mode
abscon que le programme doit d'abord décoder avant de l'exécuter.

;-))) MP

a écrit dans le message de
news:220a01c49a70$58ba1020$
;-)))
modestement j'ai cru que la réponse m'était adressée..

AMHA,il est plus parlant d'écrire les constantes en
clair, plutot que sous forme de valeur

uniquement pour le fun :

Public Parole As New spvoice
'dans outils, ajouter une référence à:
' Microsoft Speech Object Library

Sub Infoballoon()
'---adaptation geedee
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
Parole.Speak "Salut Mr Pierron !"
.Heading = "Salut Mr Pierron"
.Animation = msoAnimationAppear
.Text = "il faut appuyer sur un bouton là :"
.BalloonType = msoBalloonTypeBullets
.Button = msoButtonSetYesNo
.Icon = msoIconTip
.Mode = msoModeModal
If .Show = msoBalloonButtonNo Then
Parole.Speak "Dommage que vous ayez appuyé sur non,
je m'en vay !!"
'macro si non
Else
Parole.Speak "vous avez appuyé sur oui"
Parole.Speak "Ok pour la sauvegarde ! Au Revoir""
'---- macro si oui
End If
End With
Assistant.On = False
End Sub
-----Message d'origine-----
Bonjour Gilbert;
Sub YesNo()
Assistant.Sounds = True
Assistant.On = True
With Assistant.NewBalloon
..Animation = 112
..BalloonType = 1
..Button = 4
..Heading = "Sauvegarder" & vbLf & "les modifications ?"
..Icon = 6
..Mode = 0
If .Show = -3 Then MsgBox "Ok pour la sauvegarde !", 64
End With
Assistant.On = False
End Sub

MP

"gilbert" a écrit
dans le message de

news:
Bonjour à tous

dans la bulle d'un assistant newballoon il est
possible de mettre


deux bouton
par exemple : .Button = msoButtonSetOkCancel
comment récupérer la valeur de Ok ou de Cancel pour
poursuivre le choix ?



merci d' avance

Gilbert





.




Avatar
GD
;-)))
Oui Michel,
nous somme bien d'accord sur ce point :

Oui, mais quand tu écris des applications de plus de 50 000
lignes, il est de bon ton d'économiser la mémoire au maximum et toutes les
combines sont les bienvenues; sans compter qu'indiquer directeent la
valeur

de la constante est plus rapide en exécution que de l'inscrire en mode
abscon que le programme doit d'abord décoder avant de l'exécuter.


mais tout comme toi, à fréquenter ce forum
et avant de passer à l'optimisation du code,
j'avais pensé faire oeuvre de pédagogie en ecrivant en clair
ce que toi tu nommes "mode abscon" ;-)))
c'est d'ailleurs ce que proposent les options de l'éditeur...

Pour continuer sur ce propos Denis propose d'utiliser l'explorateur d'objets
pour connaitre les valeurs de ces constantes,
je t'avouerai que je préfére me referer à mes listes papiers pour
identifier ces fameuses valeurs....
je ne me souviens plus de l'adresse ou j'avais trouvé ces énumérations de
constantes :-(

@+
au plaisir toujours renouvelé de lire tes interventions...

Avatar
michdenis
Bonsoir GD,

« Denis propose d'utiliser l'explorateur d'objets pour connaître les valeurs de ces constantes "

L'Instrument 'Explorateur d'objets' est un outil très puissant comme aide à l'intégration des divers composants du
modèle objet 'Excel'. En fait, cet explorateur est présent dans chaque application 'office' et son fonctionnement est le
même... ce n'est pas rien!!!

Cependant où le bât blesse :

À) comme la fenêtre de l'explorateur d'objets n'est pas autonome comme celle de l'aide d'Excel, elle interfère
continuellement avec le module où l'on saisit le code et ça, c'est très énervant! Que font nos MVP auprès de Microsoft
pour corriger cette lacune? )

B) des lectures que j'ai effectuées sur Excel, je ne connais aucun bouquin (cela ne signifie pas qu'il n'y en ait pas!)
qui traite du sujet en profondeur. ET çà, je trouve cela très très très étonnant. Pas surprenant que cet outil soit
sous-employé.

C ) J'aime bien potasser aussi des feuilles de papier... si ceux qui connaissent l'adresse de ces listes réussissent à
se souvenir de leur location.
;-))


Salutations!



"GD" a écrit dans le message de news:
;-)))
Oui Michel,
nous somme bien d'accord sur ce point :

Oui, mais quand tu écris des applications de plus de 50 000
lignes, il est de bon ton d'économiser la mémoire au maximum et toutes les
combines sont les bienvenues; sans compter qu'indiquer directeent la
valeur

de la constante est plus rapide en exécution que de l'inscrire en mode
abscon que le programme doit d'abord décoder avant de l'exécuter.


mais tout comme toi, à fréquenter ce forum
et avant de passer à l'optimisation du code,
j'avais pensé faire oeuvre de pédagogie en ecrivant en clair
ce que toi tu nommes "mode abscon" ;-)))
c'est d'ailleurs ce que proposent les options de l'éditeur...

Pour continuer sur ce propos Denis propose d'utiliser l'explorateur d'objets
pour connaitre les valeurs de ces constantes,
je t'avouerai que je préfére me referer à mes listes papiers pour
identifier ces fameuses valeurs....
je ne me souviens plus de l'adresse ou j'avais trouvé ces énumérations de
constantes :-(

@+
au plaisir toujours renouvelé de lire tes interventions...

Avatar
Clément Marcotte
Bonjour.

C ) J'aime bien potasser aussi des feuilles de papier... si ceux qui
connaissent l'adresse de ces listes réussissent à

se souvenir de leur location.
;-))

Pas besoin de se souvenir


En passant par là:

http://support.microsoft.com/default.aspx?scid=fh;FR;kbhowto

(ou http://support.microsoft.com et cliquer sur "Rechercher dans la
base des connaissances" )

Produit : Office
Recherche de : constantes

Texte intégral


Il y a, entre autres:

http://support.microsoft.com/default.aspx?scid=kb;fr;112671&Product=ofwFra

http://support.microsoft.com/default.aspx?scid=kb;fr;461271&Product=ofwFra

Avatar
sabatier
disons de leur...situation mais l'essentiel, denis michel, est que Dieu soit
loué, lui....
jps

"michdenis" a écrit dans le message de
news:%
si ceux qui connaissent l'adresse de ces listes réussissent à se souvenir
de leur location.


1 2