VBA Remise à 0 de toutes les combobox d'un UF sauf une !

[thibaut02]

Bonjour le forum,

Pour expliquer simplement mon problème, j'ai un UserForm qui comprend plusieurs combobox et textbox. une de mes combobox représente "le titre du document" : on peut choisir entre 3 types de fiches 20, 40 ou 90.

Quand je change ma ComboBoxTitre, je souhaite vider les valeurs des autres combobox.
En terme de code j'ai essayé avec :

Private Sub ComboBoxTitre_Change()

Dim c As Control


For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
         c.Value = ""
        Case "ComboBox"
         c.value = ""  'ou c.listIndex = -1   
     End Select
Next c

End Sub

Problème : ça me remet aussi la comboboxTitre à 0

J'aimerais savoir si c'est possible d'éviter cela, en gros de remettre à 0 toutes les combobox sauf celle que l'on change.

Merci d'avance pour votre aide.

Thibaut

 

[Pierrot93]

Re : VBA Remise à 0 de toutes les combobox d'un UF sauf une !

Bonjour,

ajoute un test sur le nom des combo :

        Case "ComboBox"
         If c.Name <> "comboboxTitre" Then c.Value = ""    'ou c.listIndex = -1
     End Select

bon après midi
@+

 

[thibaut02]

Re : VBA Remise à 0 de toutes les combobox d'un UF sauf une !

Bien vu !

Ca fonctionne très bien, je n'y avais pas du tout pensé.

Merci beaucoup