Probleme avec le bouton "Effacer"

[Tabalori]

Je ne comprends pas ce qui cloche avec le bouton "Effacer" de ce formulaire.

Quelqu'un a-t-il une idée?

 

[Pierrot93]

Re : Probleme avec le bouton "Effacer"

Bonjour Tabalori

essaye peut être avec le code ci dessous :

Private Sub BTN_Effacer_Click()
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.CheckBox Then Ctrl[B][COLOR="Red"].Object[/COLOR][/B].Value = False
        If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Object.Value = ""
    Next Ctrl
End Sub

il manquait un ".object"

bon après midi
@+

 

[Tabalori]

Re : Probleme avec le bouton "Effacer"

Merci Pierrot

Mais cela ne marche toujours pas

 

[Pierrot93]

Re : Probleme avec le bouton "Effacer"

Re

il faut activer la référence "Microsoft forms 2.0 object library".
Barre de menu de l'éditeur vba => outils => Références => tu la coches.

@+

 

[Gael]

Re : Probleme avec le bouton "Effacer"

Bonjour Tabalori, bonjour Pierrot, bonjour à tous,

Il faut effectivement activer la référence "Microsoft forms 2.0 object library".

Sinon ça fonctionne chez moi avec le code suivant:

Dim Ctrl As control
    For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then
    Ctrl.Value = False
    End If
    Next Ctrl

@+

Gael

 

[Tabalori]

Re : Probleme avec le bouton "Effacer"

Merci les champions

Petit scarabée vous salue bien bas

 

[Pierrot93]

Re : Probleme avec le bouton "Effacer"

Re, bonjour Gael

chez moi ce code fonctionne (excel 2003) avec ou sans "object.value" et avec "optionbutton" ou "checkbox", pour le moins étrange...