Utiliser clear pour une collection de comboboxRésolu

Question

Bonjour
Je d&#233;veloppe en VBA, en utilisant ADO &#224; partir d'Excel pour chercher des data dans une base Access.
Mon pb est le suivant :
Dans un controle MultiPage pos&#233; sur un UserForm, en fonction d'un crit&#232;re choisi par l'utilsateur, je remplis une vingtaine de combobox  &#224; partir de tables Access correspondantes.
Jusque l&#224; tout va bien. Le pb est qu'en fonction d'un autre choix de l'utilisateur, les combobox ne sont pas toutes remplies. Or il ne "vide" pas celle qui l'&#233;taient sur la recherche pr&#233;c&#233;dente.
Donc je veux vider avant tte nouvelle recherche chaque combobox, ce qui se fait tr&#232;s facilement en tapant nomcombobox.clear
Seulement, j'aimerais &#233;viter de taper le nom de chaque combobox pour la vider mais plutot proposer une boucle type For Each element In Collection...
Et l&#224; cela ne marche pas, je n'arrive pas &#224; acc&#233;der &#224; la collection des combobox de mon controle multipage. Je ne sais pas quel code taper pour le faire.
Si quelqu'un a une id&#233;e, je suis preneur !!!
Merci beaucoup.

Blue James

jpleroisse · Accepted Answer

Place la propei&#233;t&#233; TAG de tes Combobox &#224; 1.
Ensuite place ce code.Tu devras peut-&#234;tre changer le nom du UserForm.

Public Sub LockTheControl(blocked As Boolean)
Dim indx As Integer
On Error Resume Next
    For indx = 0 To UserForm1.Controls.Count - 1
       If (UserForm1.Controls(indx).Tag = "1") Then
            If (TypeOf UserForm1.Controls(indx) Is ComboBox) Then
                If (blocked) Then
                UserForm1.Controls(indx).Clear
               End If
        End If
    End If
Next indx
End Sub

Private Sub CommandButton1_Click()
LockTheControl True
End Sub
.
jpleroisse

bluejames · Answer

Merci beaucoup !
Ca marche.
Il y a juste un truc que je pige pas : quelle utilit&#233; d'envoyer le booleen "True" et de le tester dans la mesure o&#249; si j'appelle la proc&#233;dure, c'est que je veux que le clear soit r&#233;alis&#233; !!
En passant j'ai &#233;largi la proc&#233;dure &#224; d'autres controles pr&#233;sent dans mon userform (textbox, checkbox...)
Merci encore !
Blue James

bluejames · Answer

Juste encore une chose. Pour que le code fonctionne avec d'autres controles, il faut rajouter :

If (TypeOf UserForm1.Controls(indx) Is MsForms.CheckBox)...
If (TypeOf UserForm1.Controls(indx) Is MsForms.TextBox)...

ce qui ne semble pas n&#233;cessaire pour le combobox (mais l&#224; je ne sais pas pourquoi !!)

Blue James

jpleroisse · Answer

J'ai extrais cette partie de  code d 'un code que j'ai fais dans une appli. ou je place la propri&#233;t&#233; bool&#233;enne &#224; True pour colorer l'int&#233;rieur de mes Textbox en jaune au moment de l'&#233;criture et je la place &#224; False pour les remettres en blanc au moment de la validation.
Voila pourquoi j' ai une propri&#233;t&#233; bool&#233;enne.

jpleroisse

bluejames · Answer

OK je comprends mieux !!
Merci

Blue James

Utiliser clear pour une collection de combobox

5 réponses

Discussions similaires