msgboxperso

[fr832]

Bonsoir, j'utilise cette msgboxperso, si je clique sur le bouton OK je voudrais effacer les données de mon formulaire (textbox, optionbutton, combobox)

que dois rajouter à ce code

'appel de la message box
Dim Reponse As String
  Dim boutons As Single
  Dim titre As String
  message = "   D'autres saisies à ajouter, dans cette liste ?"
  boutons = vbYesNo + vbQuestion
  titre = "association smp"
  msgbox message, boutons, titre

Merci d'avance

 

[fhoest]

Re : msgboxperso

bonsoir

if msgbox message, boutons, titre=vbyes then ...

A+

 

[fr832]

Re : msgboxperso

bonsoir le chti merci pour l'info mais je le palce ou ce code?

merci

 

[kjin]

Re : msgboxperso

Bonsoir,

'Sub....
If MsgBox("D'autres saisies à ajouter, dans cette liste ?", _
        vbYesNo + vbQuestion, "association smp") = vbYes Then EffaceTout
End Sub

Sub EffaceTout()
Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then ctl = ""
        If TypeName(ctl) = "ComboBox" Then ctl = ""
        If TypeName(ctl) = "OptionButton" Then ctl = False
    Next
End Sub

A+
kjin

 

[fr832]

Re : msgboxperso

bonsoir kjin et merci pour ce code ça fonctionne impec.

Si je veux que ma textbox7 ne soit pas mise à zero comment faut il modifier le code?

Et si je veux que mon userform ce ferme lorsque l'on clique sur vbNo, ce genre de code?

If MsgBox("D'autres saisies à ajouter, dans cette liste ?", _
        vbYesNo + vbQuestion, "association smp") = vbYes Then EffaceTout, vbNo Then unload Userform1

par avance merci😎

 

[kjin]

Re : msgboxperso

Re,
Un petit effort t'aurait permis je pense de trouver seul...

'Sub...
If MsgBox("D'autres saisies à ajouter, dans cette liste ?", _
        vbYesNo + vbQuestion, "association smp") = vbYes Then
    EffaceTout
[COLOR="Blue"]Else
    Unload Me
End If[/COLOR]
End Sub

Sub EffaceTout()
Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" [COLOR="Blue"]And ctl.Name <> "TextBox7" [/COLOR]Then ctl = ""
        If TypeName(ctl) = "ComboBox" Then ctl = ""
        If TypeName(ctl) = "OptionButton" Then ctl = False
    Next
End Sub

A+
kjin

 

[fr832]

Re : msgboxperso

bonsoir kjin et merci pour ton aide j'en aurais été incapable pour ignorer la textbox7.
et j'ai une erreur ici

'Sub...
If MsgBox("D'autres saisies à ajouter, dans cette liste ?", _
        vbYesNo + vbQuestion, "association smp") = vbYes Then
    EffaceTout
[COLOR="Red"]Else[/COLOR]
    Unload Me
End If
End Sub

Sub EffaceTout()
Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" And ctl.Name <> "TextBox7" Then ctl = ""
        If TypeName(ctl) = "ComboBox" Then ctl = ""
        If TypeName(ctl) = "OptionButton" Then ctl = False
    Next
End Sub

j'ai comme messag e d'erreur Else san IF , pourtant il y a bien End if
merci encore

 

[kjin]

Re : msgboxperso

Re,

j'ai comme messag e d'erreur Else san IF , pourtant il y a bien End if
merci encore

Il y a un retour chariot après Then puisqu'il y a 2 conditions

If ..............._
            ...........Then
    EffaceTout
Else
    Unload Me
End If

Edit : Tu peux aussi écrire

'Sub...
If MsgBox("D'autres saisies à ajouter, dans cette liste ?", _
        vbYesNo + vbQuestion, "association smp") = vbNo Then Unload Me
EffaceTout
End Sub

A+
kjin

 

[fr832]

Re : msgboxperso

super kjin et merci pour ton aide et tes infos, jamais je n'aurais trouvé l'erreur a cause du retour chariot bonne soirée et encore merci😉

 

[kjin]

Re : msgboxperso

Re,
J'ai ajouté une précision dans mon message précédent
A+
kjin

 

[fr832]

Re : msgboxperso

vu merci et encore chapeau