msgbox change en useforme
#1
Aspirant XLPages

Inscription: 10/04/2017
De limoge

Messages: 30

Système d'exploitation:
pc
Version Excel utilisée:
2003
Posté le : 07-07-2017 18h14

bonsoir le forum
voila ma recherche j ai un useforme qui marche très bien j ai fait une autre useforme pour changer un smgbox
que je trouve pas jolie car je voudrais changé pour une ecriture en couleur voila le code que je voudrais changer

Private Sub btn_fermeture_Click()
Dim reponse As Integer
reponse = MsgBox("Attention, avez-vous validé les dernières modifications SVP ? Voulez-vous fermer ?", 52, " Fermeture sans validation")
If reponse = 7 Then 'non=7 oui=6
Exit Sub
Else
Unload Me
End If
End Sub
comment mon useforme20 peut prendre sa place ou par quelle code je peut le faire pouvez vous m'aidé
 

Edité par jmcr le 08/07/2017 22:44:28
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes