Remplacer des msgbox par des userform

Question

Bonjour, 

Je viens une nouvelle fois demander de l'aide,...

J'ai crée un fichier avec pas mal de code et qui fonctionne très bien.Le seul problème que je rencontre c'est l'emplacement de mes msgbox... Dans ce classeur j'ai un formulaire qui est amené à être affiché sur un deuxième écran. Et évidemment, les msgbox, elles, s'affichent sur l'écran où se trouve ma feuille de calcul ....

Après quelques recherche j'ai cru comprendre qu'il était difficile de remédier a cela et qu'il était plus simple de créer des userform a la place de ces msgbox.

Le problème c'est que je ne sais pas comment m'y prendre. J'ai créé un userform avec 2 boutons (Yes et No par exemple) mais comment le lancer a partir du premier et puis poursuivre mon code en fonction de la réponse?

Je voudrai remplacer ça par exemple :

If MsgBox("Ajouter les données?", vbYesNo, "Confirmation") = vbYes Then

par ma "msgbox perso"....

Merci

 


Configuration: Windows / Chrome 64.0.3282.186

f894009 · Answer

Bonjour,

Sub msg()
    Reponse = MsgBox("Ajouter les données?", vbYesNo, "Confirmation")
    If Reponse = vbYes Then
        MsgBox "Oui"
        Userform1.Show      'adaptez le nom de l'UF
    Else
        MsgBox "Non"
    End If
End Sub

Zorbaxx · Answer

Merci de tenter de m'aider,

Mais avec ton code j'ai toujours des msgbox que je ne peut pas repositionner.....
En fait je voudrai créer un userform qui ressemble a une message box (juste deux boutons donc). 
Mais comment afficher cet userform ("fausse msgbox") et renvoyer la réponse dans mon premier userform et poursuivre mon code en fonction de cette reponse?

Merci

Zorbaxx · Answer

Voilà j'ai crée un petit fichier exemple avec très peu de code histoire de simplifier tout ca. 

https://www.cjoint.com/c/HCkusOGFvm5

Merci encore de tenter de m'aider

Remplacer des msgbox par des userform

3 réponses

Discussions similaires

Newsletters