Collection combobox

[Franck]

Bonsoir a tous

je cherche le moyen de faire une boucle sur tous les combobox de ma forme pour les effacer sans les nommer un par un

Merci de votre aide
Franck

 

[CB60]

Bonsoir Franck
Un petit exemple avec des bouton et une frame,
cela répond peut être à tes interogations.
bruno [file name=combobox_20060525191937.zip size=8641]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/combobox_20060525191937.zip[/file]

 

[Eric C]

Bonsoir le forum
Bonsoir Franck, bonsoir CB60

Essaies ce code :

Private Sub commandbutton1_Click()
     Dim i As Integer
     For Each Ctrl In Me.Controls
          If TypeOf Ctrl Is MSForms.ComboBox Then
               i = i + 1
               Ctrl.Value = ''
          End If
     Next Ctrl
End Sub

Bonne soirée à toutes & à tous 😉

 

[Franck]

Bonsoir Bruno

Joli fichier mais il ne repond pas a ma question
mon probleme n'est pas d'entrer des données dans un combobox mais d'effacer les valeurs affichées
Merci quand meme d'avoir essayé

Franck

 

[Franck]

Bonsoir Eric

Ca marche mais aurais tu une idée pour que les ComboBox effacés ne concerne que ceux qui se trouvent dans mon Frame1 car pour le coup il m'en efface un peu trop

Merci d'avance
Franck

 

[Bernard_XLD]

Bonsoir Franck, CB60, Eric

modifie la ligne
For Each Ctrl In Me.Controls
par
For Each Ctrl In Me.Frame1.Controls

Pas testé mais cela devrait fonctionner

Cordialement, A+

 

[Bernard_XLD]

finalement, je l'ai testé, cela fonctionne, A+

 

[Franck]

Bonsoir le felin

Il me manquait juste le '.Controls'
ça marche nikel

Merci a tous
Franck

 

[Bernard_XLD]

Salut

y a pas besoin
le controls n'est utile que si tu désires boucler sur plusieurs frame sinon, que tu écrives
Me.Frame1.Controls
ou
Me.Controls('Frame1').Controls
c'est kif
la seule différence, c'est que la deuxième écriture peut également s'écrire
Me.Controls('Frame' & Compteur ).Controls
pour une variable compteur à 1
tandis que
Me.Frame&Compteur.Controls ne fonctionnera evidemment pas

Cordialement, A+

 

[Ti_]

Salut

N'oubliez pas qu'une des meilleures façons d'accéder à certains contrôles de façon sélective, c'est d'utiliser leur propriété Tag, trop souvent ignorée. Le Tag permet de 'marquer' un contrôle qu'il devient ensuite facile de reconnaître dans la liste des controles du userform

For Each Ctrl in Me.Controls
If Ctrl.Tag = 'ComboF1' then
End If
Next Ctrl

Cette façon de faire n'est pas du bricolage, bien utilisée elle se révèle très pratique.

 

[Bernard_XLD]

Salut Ti

Je risquais pas d'oublier vu que je n'ai jamais utilisé les tags et que je ne connaissais pas leurs possibilités. J'utilisais plutôt un tableau de références. Merci pour l'info, je vais creuser

A+