boite de dialogue (pas urgent)

7 réponses

yan

13/11/2004 à 11:06

Bonjour a toutes et tous
Peut-on sans passer par une USF faire apparaître une boite de dialogue du
genre
msgbox ou inputbox , mais qui proposerait une liste de choix
J'essaie avec listbox mais ça va pas
Quel serait le bon code?
J'ai regardé (peut-être mal) sur excelabo et chez Frédéric
Merci a vous
A+
yannick

7 réponses

Rai

13/11/2004 à 11:35

Bonjour Yan,

A ma connaissance, ça n'est pas possible.

Par contre, tu peux créer dynamiquement ta USF au niveau du code VBA et y ajouter le contrôle que tu veux.

Bonne fin de semaine.

Rai

"yan" a écrit dans le message de news: 4195dcb6$0$22052$

Bonjour a toutes et tous
Peut-on sans passer par une USF faire apparaître une boite de dialogue du
genre
msgbox ou inputbox , mais qui proposerait une liste de choix
J'essaie avec listbox mais ça va pas
Quel serait le bon code?
J'ai regardé (peut-être mal) sur excelabo et chez Frédéric
Merci a vous
A+
yannick

JpPradier

13/11/2004 à 12:02

Bonjour yannick

Regarde du coté de Données/Validations

j-p

yan

13/11/2004 à 14:03

Merci a vous deux
Je viens de trouver ça
réponse=MsgBox(prompt[, buttons] [, title] [, helpfile, context])
qui ouvre une boite de dialogue et renvoi une valeur mais je sais pas encore
ce que je peut en faire
Surtout comme mettre des boutons personnalisés
Je vais chercher
A+
yannick

"JpPradier" a écrit dans le message
de news: %

Bonjour yannick

Regarde du coté de Données/Validations

j-p

Rai

13/11/2004 à 14:47

Les boutons sont de type :
- OK
- OK & Annuler
- Oui & Non
- ...

Tu les mets en place en utilisant les constantes de VBA ou leur valeur correspondante :
Constant Value Description
vbOKOnly 0 Affiche le bouton OK uniquement.
vbOKCancel 1 Affiche les boutons OK et Annuler.
vbAbortRetryIgnore 2 Affiche le bouton Abandonner, Réessayer et Ignorer.
vbYesNoCancel 3 Affiche les boutons Oui, Non et Annuler.
vbYesNo 4 Affiche les boutons Oui et Non.
vbRetryCancel 5 Affiche les boutons Réessayer et Annuler.

Rai

"yan" a écrit dans le message de news: 41960625$0$7554$

Merci a vous deux
Je viens de trouver ça
réponse=MsgBox(prompt[, buttons] [, title] [, helpfile, context])
qui ouvre une boite de dialogue et renvoi une valeur mais je sais pas encore
ce que je peut en faire
Surtout comme mettre des boutons personnalisés
Je vais chercher
A+
yannick

"JpPradier" a écrit dans le message
de news: %
Bonjour yannick

Regarde du coté de Données/Validations

j-p

yan

13/11/2004 à 14:56

Merci Rai de me répondre
J'ai effectivement vu dans l'aide le fonctionnement.
J'ai utilisé la valeur renvoyé par "yes" et "no" avec en texte "pour faire
ceci yes" "pour faire cela no"
Ça fait un peu "bidouille" (mais ça fonctionne) et je vais donc passer par
un USF cela fera plus sérieux
Encore merci de aide
A+
yannick

"Rai" a écrit dans le message de news:
4196106c$0$22038$
Les boutons sont de type :
- OK
- OK & Annuler
- Oui & Non
- ...

Tu les mets en place en utilisant les constantes de VBA ou leur valeur
correspondante :
Constant Value Description
vbOKOnly 0 Affiche le bouton OK uniquement.
vbOKCancel 1 Affiche les boutons OK et Annuler.
vbAbortRetryIgnore 2 Affiche le bouton Abandonner,
Réessayer et Ignorer.
vbYesNoCancel 3 Affiche les boutons Oui, Non et
Annuler.
vbYesNo 4 Affiche les boutons Oui et Non.
vbRetryCancel 5 Affiche les boutons Réessayer et
Annuler.

Rai

"yan" a écrit dans le message de news:
41960625$0$7554$

Merci a vous deux
Je viens de trouver ça
réponse=MsgBox(prompt[, buttons] [, title] [, helpfile, context])
qui ouvre une boite de dialogue et renvoi une valeur mais je sais pas
encore
ce que je peut en faire
Surtout comme mettre des boutons personnalisés
Je vais chercher
A+
yannick

"JpPradier" a écrit dans le message
de news: %
Bonjour yannick

Regarde du coté de Données/Validations

j-p

Frédéric Sigonneau

13/11/2004 à 16:26

Bonjour,

Une bidouille qui peut peut-être te dépanner si la liste des choix possibles est
relativement limitée :

'=================== Sub test()
Dim S$, R$
S = "Pour tourner à droite tapez 1" & vbLf
S = S & "Pour tourner à gauche tapez 2" & vbLf
S = S & "Pour continuer tout droit tapez 3"
Select Case InputBox(S)
Case "1": R = "On va à droite"
Case "2": R = "On va à gauche"
Case "3": R = "On va tout droit"
Case Else: test
End Select
If R <> "" Then MsgBox R
End Sub
'===================
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour a toutes et tous
Peut-on sans passer par une USF faire apparaître une boite de dialogue du
genre
msgbox ou inputbox , mais qui proposerait une liste de choix
J'essaie avec listbox mais ça va pas
Quel serait le bon code?
J'ai regardé (peut-être mal) sur excelabo et chez Frédéric
Merci a vous
A+
yannick

yan

13/11/2004 à 16:58

Merci Frédéric
je pense que je vais adapter et adopter cela
Bonne soirée
A+
yannick

"Frédéric Sigonneau" a écrit dans le message de
news:

Bonjour,

Une bidouille qui peut peut-être te dépanner si la liste des choix
possibles est relativement limitée :

'=================== > Sub test()
Dim S$, R$
S = "Pour tourner à droite tapez 1" & vbLf
S = S & "Pour tourner à gauche tapez 2" & vbLf
S = S & "Pour continuer tout droit tapez 3"
Select Case InputBox(S)
Case "1": R = "On va à droite"
Case "2": R = "On va à gauche"
Case "3": R = "On va tout droit"
Case Else: test
End Select
If R <> "" Then MsgBox R
End Sub
'=================== >
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour a toutes et tous
Peut-on sans passer par une USF faire apparaître une boite de dialogue du
genre
msgbox ou inputbox , mais qui proposerait une liste de choix
J'essaie avec listbox mais ça va pas
Quel serait le bon code?
J'ai regardé (peut-être mal) sur excelabo et chez Frédéric
Merci a vous
A+
yannick

boite de dialogue (pas urgent)

7 réponses

Veuillez sélectionner un problème