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 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 11 mars 2018 à 14:31
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 11 mars 2018 à 14:31
A voir également:
- Excel vba userform message box
- Message - Guide
- Liste déroulante excel - Guide
- Recuperer message whatsapp supprimé - Guide
- Message d'absence thunderbird - Guide
- Si et excel - Guide
3 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
8 mars 2018 à 08:32
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
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
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
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
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
8 mars 2018 à 19:20
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
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
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
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
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
9 mars 2018 à 07:06
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
vous pouvez mettre votre fichier a dispo sans données confidentielles
https://www.cjoint.com
ou
https://mon-partage.fr
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
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
https://www.cjoint.com/c/HCkusOGFvm5
Merci encore de tenter de m'aider
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
11 mars 2018 à 07:26
11 mars 2018 à 07:26
Bonjour,
Je regarde la chose
A+
Je regarde la chose
A+
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
11 mars 2018 à 14:31
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
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