smgbox remplacer par u useforme resolus avec GRISAN29

  • Initiateur de la discussion Initiateur de la discussion jmcr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
bonjour Jmcr
comme dit dans l'autre forum en mettant
userform20.show a la place ou a la suite de " 'procédure"
et pour fermer un userform c'est .unload

Code:
Private Sub CommandButton1_Click()
    Dim ret As Integer
    ret = MsgBox("Voulez-vous éffacer le document le document?", vbYesNo)
    If ret = vbNo Then
        Exit Sub
    Else
        'procédure'
        UserForm2.Show
        Unload UserForm1
   End If
    End Sub
 
bonsoir le forum , GRISAN29
après quelle essaie ou bidouille comme on veux j ai enfin réussis avec l 'aide de GRISAN 29 a mettre mon msgbox personnalisé en place cela fonctionne très bien et quelle différence
mon père gardian se joint a moi pour te dire un grand merci GRISAN pour ton aide précieuse :merci
au plaisir de te relire 😉😀
JMCR
 
Bonjour le forum , Philippe merci bien pour ton aide original le mots est faible beau travaille pour la discution sur le autre forum mon père à le même que moi ici bizarre que nous avons chacun notre forum mais comme cela nous avons chacun le respect de l' autre et certain de pas nous croisé
Encore merci pour ton aide
Au plaisir de te relire
À +
JMCR
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Réponses
1
Affichages
770
Grouchet
G
Réponses
3
Affichages
1 K
L
Réponses
9
Affichages
1 K
V
Réponses
17
Affichages
3 K
VBgalère
V
B
Réponses
6
Affichages
1 K
A
Réponses
10
Affichages
5 K
A
Réponses
7
Affichages
1 K
Retour