Initialiser toutes les listbox, optionbutton, checkbox

[Riko]

bonjour,

pourriez vous me dire s'il existe un moyen d'effacer tous les textes, coches des checkbox, option value, listbox, textbox d'un sul coup.

Je voudrais faire un bouton "annule saisie" dans un userform.

Il me semble que j'avais vu comment faire mais je ne retrouve plus le lien🙄

Merci d'avance.

 

[excalibur]

Re : Initialiser toutes les listbox, optionbutton, checkbox

salut riko le forum tu peus comme cela si tu efface tout !!!!
Private Sub CommandButton3_Click()
Unload Me
userform1.Show
End Sub
ou exemple
Dim i As Byte
For x = 1 To 10
Me.Controls("TextBox" & x).Value = ""
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then Ctrl.Object.Value = False
Next Ctrl
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then Ctrl.Object.Value = False 'ou ""
Next Ctrl
ect...
salutations

 

[Riko]

Re : Initialiser toutes les listbox, optionbutton, checkbox

Merci excalibur
la première solution est tellement simple que je vais certainement l'adopter.(au moins pour le moment)

Pour la seconde , je ne comprends pas tout mais je vais la garder sous le coude.

Je vais me concentrer sur une boucle récalcitrante.

Merci encore et je vais continuer mon aprentissage en vba.

 

[clark...kent]

Re : Initialiser toutes les listbox, optionbutton, checkbox

Merci excalibur 4 ans plus tard vos conseils servent toujours!