effacer données du formulaire

[qoqo]

Bonjour à tous, je débute en VBA
je suis en train de créer un formulaire d'enregistrement de contacts, contenant des textbox, des optionbutton et des combobox, je cherche à nettoyer le contenu de toutes les cellules après avoir validé l'entrée de mon nouveau contact.
Voici ce que j'ai écris (je ne sais pas encore comment poster de manière correcte mes lignes de code).

Dim objControl As Control
For Each objControl In Formulaire_contact.Controls
If TypeOf objControl Is msforms.TextBox Or msforms.OptionButton Or msforms.ComboBox Then
objControl.Text = ""
End If
Next

Merci à tous

 

[Guest]

Re : effacer données du formulaire

Bonjour,

Deux exemples, un avec TypeOf et l'autre avec TypeName:

For Each objControl In Me.Controls
If TypeOf objControl Is MSForms.TextBox Or TypeOf objControl Is MSForms.ComboBox Then
    objControl.Value = ""
ElseIf TypeOf objControl Is MSForms.OptionButton Then
    objControl.Value = False
End If
'Select Case TypeName(objControl)
'    Case "TextBox", "ComboBox": objControl.Value = ""
'    Case "OptionButton": objControl.Value = False
'End Select
Next

Si cela ne va pas joindre un classeur exemple.

P.S. Aller dans l'éditeur avancé des posts pour publier les code

A+

 

[Dranreb]

Re : effacer données du formulaire

Bonjour.
Ce que je fais personnellement, c'est d'écrire une procédure GarnirChamps qui renseigne les contrôles selon un tableau de valeurs normalement prises de la ligne sélectionnée d'après les ComboBox. Pour effacer les contrôles, j'appelle aussi cette procédure après avoir fait un Redim de ce tableau pour qu'il ait toutes ses valeurs à Empty

 

[qoqo]

Re : effacer données du formulaire

Ca marche parfaitement, merci beaucoup. Me donner les différentes manièresde résoudre le problème me permet de mieux comprendre le fonctionnement de VBA.