Remplacer des msgbox par des userform

Fermé

Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018 - 7 mars 2018 à 21:06
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 11 mars 2018 à 14:31

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

A voir également:

Excel vba userform message box
Liste déroulante excel - Guide
Recuperer message whatsapp - Guide
Message d'absence thunderbird - Guide
Formule excel - Guide
Si et excel - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
8 mars 2018 à 08:32

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

Réponse 2 / 3

Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018
8 mars 2018 à 18:29

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
8 mars 2018 à 19:20

Re,
Désolé, pas compris ce que vous vouliez.
Comment vous comptez lancer cette pseudo msgbox?
Pour récupérer le choix, passez par une variable declaree en public

Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018
8 mars 2018 à 19:31

Re,
En fait la plupart de mes msgbox me servent a informer l'utilisateur qu'il rentre des informations incorrectes. par exemple :

'Verifier si vide
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then
MsgBox ("Il manque des informations!")
GoTo 1
End If

'Verifier si le N° de personnel existe
If WorksheetFunction.CountIf(Sheets("liste du personnel").Range("b:b"), Me.TextBox1.Value) = 0 Then
MsgBox "Le numéro de personnel n'existe pas!", vbInformation + vbOKOnly, "Numéro de personnel invalide"
TextBox1 = ""
GoTo 1
End If

etc...

Et donc toutes ces msgbox ne sont pas repositionnables.. Il me faudrai un truc comme ca je pense :

'Verifier si vide
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then
"faussemsgbox".show
'quand l'utilisateur clique sur ok par exemple
GoTo 1
End If

Merci de votre aide

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 mars 2018 à 07:06

Bonjour,
vous pouvez mettre votre fichier a dispo sans données confidentielles
https://www.cjoint.com
ou
https://mon-partage.fr

Réponse 3 / 3

Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018
10 mars 2018 à 21:20

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 mars 2018 à 07:26

Bonjour,
Je regarde la chose
A+

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 mars 2018 à 14:31

Re,

Fichier modifie, a vous de tester si vous convient: https://mon-partage.fr/f/ols75eqK/
Ai ajoute des tests et une seule UF pour les messages

Discussions similaires

qu'est-ce que diff message ?

Comment reconnaitre si un SMS m'indiquant un message vocal est une arnaque ?

Discussions similaires

Newsletters