Autres vider USF a chaque changement de ComboBox

chaelie2015 · 28 Décembre 2020

Bonsoir Forum

VB:

Private Sub cmbx_NuméroContrat_Change()
If cmbx_NuméroContrat.Value <> "" Then btn_Rechercher.Visible = True
Unload UserForm2
UserForm2.Show 0
End Sub

Je souhaite a chaque changement du contenu du la comboBox"cmbx_NuméroContrat" mon USF ce vide.
A+

Staple1600 · 28 Décembre 2020

Bonsoir le fil,

=>chaelie2015
Ne veux-tu pas plutôt dire qu'un RAZ de tous les contrôles (hormis la ComboBox) se fasse?

chaelie2015 · 28 Décembre 2020

Staple1600 à dit:
Bonsoir le fil,

=>chaelie2015
Ne veux-tu pas plutôt dire qu'un RAZ de tous les contrôles (hormis la ComboBox) se fasse?

rE
Oui c'est ça , merci pour la correction
a+

Staple1600 · 28 Décembre 2020

Re

Ce serait utile de savoir combien il y a de controles et de quel type ils sont?

chaelie2015 · 28 Décembre 2020

Staple1600 à dit:
Re

Ce serait utile de savoir combien il y a de controles et de quel type ils sont?

Re
merci ,il ya 14 contrôles (mais ils sont toutes renommées) 03 ComboBox (cmbx_NuméroContrat inclue) et 11 TextBox.
a+

Staple1600 · 28 Décembre 2020

Re

Un exemple à tester

VB:

Sub Erazor()
 Dim ctl As MSForms.Control
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Text = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctl.Value = False
            Case "ComboBox", "ListBox"
                ctl.ListIndex = -1
        End Select
    Next ctl
End Sub

Private Sub ComboBox1_Change()
Call Erazor
End Sub

chaelie2015 · 28 Décembre 2020

Staple1600 à dit:

Re

Un exemple à tester

VB:

Sub Erazor()
Dim ctl As MSForms.Control
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Text = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctl.Value = False
            Case "ComboBox", "ListBox"
                ctl.ListIndex = -1
        End Select
    Next ctl
End Sub

Private Sub ComboBox1_Change()
Call Erazor
End Sub

Re désolé JM
Je m'explique
j'ai une combobox nommée "cmbx_NuméroContrat" dans USF je l’utilisé pour faire des recherches , je souhaite une fois remodifier le contenu de cmbx_NuméroContrat les contrôles de USF ce vide automatiquement.
a+

Staple1600 · 28 Décembre 2020

Re

Tu as essayé mon bout code en faisant les adaptations nécessaires?
(au niveau du nom du combobox)

chaelie2015 · 28 Décembre 2020

Staple1600 à dit:
Re

Tu as essayé mon bout code en faisant les adaptations nécessaires?
(au niveau du nom du combobox)

chaelie2015 · 28 Décembre 2020

Re
oui mais ce n'est pas ce que j'ai souhaité
j'ai utilisé ce code

VB:

Private Sub cmbx_NuméroContrat_Change()
If cmbx_NuméroContrat.Value <> "" Then btn_Rechercher.Visible = True
If cmbx_NuméroContrat.Value = "" Then
Unload UserForm2
UserForm2.Show 0
End If

ça fonctionné
est ce qu'il peut être modifié plus simple.

a+

Staple1600 · 28 Décembre 2020

Re

Test OK chez moi

VB:

Private Sub cmbx_NuméroContrat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Erazor
End Sub

Sub Erazor()
 Dim ctl As MSForms.Control
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Text = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctl.Value = False
            Case "ComboBox", "ListBox"
            If ctl.Name <> "cmbx_NuméroContrat" Then
                ctl.ListIndex = -1
            End If
        End Select
    Next ctl
End Sub

chaelie2015 · 28 Décembre 2020

Staple1600 à dit:

Re

Test OK chez moi

VB:

Private Sub cmbx_NuméroContrat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Erazor
End Sub

Sub Erazor()
Dim ctl As MSForms.Control
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Text = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctl.Value = False
            Case "ComboBox", "ListBox"
            If ctl.Name <> "cmbx_NuméroContrat" Then
                ctl.ListIndex = -1
            End If
        End Select
    Next ctl
End Sub

Re
ok merci pour la réponse
Bonne soirée

Staple1600 · 28 Décembre 2020

Re

???
Pourquoi ce smiley triste?
J'ai testé en renommant le combobox comme tu me l'as dit
Et j'ai testé comme suit:
Tous les contrôles (sauf le combobox) sont remis à zéro sur l'userform
quand on choisit une valeur dans le combobox et qu'on sort de celui-ci.

Autres vider USF a chaque changement de ComboBox

chaelie2015

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

Discussions similaires