jmcr
XLDnaute Occasionnel
bonjour 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é
merci pour tout votre aide
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é
merci pour tout votre aide