utilisation boites de dialogue

[pat306]

😕 Bonsoir,

comment ccréer une boite de dialogue ?
Posez une question et utiliser la réponse ?

Merci si qqu'un pouvait m'envoyer un exemple


Pat

 

[myDearFriend!]

Re : utilisation boites de dialogue

Bonsoir pat306,

Tout dépend de ce que tu souhaites faire... on distingue notamment les questions fermées (choix OUI / NON) et les questions ouvertes. Voici 2 exemples :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] QuestionFermee()
[COLOR=NAVY]Dim[/COLOR] Rep [COLOR=NAVY]As Integer[/COLOR]
    Rep = MsgBox("Voulez-vous continuer ?", vbYesNo)
    [COLOR=NAVY]If[/COLOR] Rep = vbYes [COLOR=NAVY]Then[/COLOR]
       [COLOR=GREEN]'L'utilisateur a répondu OUI[/COLOR]
    [COLOR=NAVY]Else[/COLOR]
       [COLOR=GREEN]'L'utilisateur a répondu NON[/COLOR]
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]

[SIZE=2][COLOR=NAVY]Sub[/COLOR] QuestionOuverte()
[COLOR=NAVY]Dim[/COLOR] Rep [COLOR=NAVY]As String[/COLOR]
    Rep = InputBox("Alors, comment allez-vous ?", "Question ouverte")
    [COLOR=NAVY]If[/COLOR] Rep <> "" [COLOR=NAVY]Then[/COLOR]
        MsgBox "Vous avez répondu : " & Rep
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]

Cordialement,

 

[phoque.r]

Re : utilisation boites de dialogue

Et pour quitter la macro directement lorsque l'utilisateur met non?

Exit Sub suffit bien??

 

[phoque.r]

Re : utilisation boites de dialogue

Pour le exit sub, c'est bon


comment fait-on pour passer à la ligne dans le texte qui s'affiche

merci
phoque.r

 

[Pierrot93]

Re : utilisation boites de dialogue

Bonjour Phoque Didier, Pat

si j'ai bien compris, peut être comme ceci :

Rep = InputBox("Alors, comment allez-vous" & vbLf & "ce matin ?", "Question ouverte")

bonne journée
@+

 

[phoque.r]

Re : utilisation boites de dialogue

Nickel
merci
phoque.r