imposer valeurs par défaut à toutes les combobox

Question

Salut à tous
Comment puis-je, à l'ouverture d'une userform, imposer une valeurs par défaut identique  à toutes mes combobox.
(Sans taper une ligne par combobox...)
Merci.

Renfield · Answer

Tu pourrais utiliser cette fonction...


Private Sub Form_Load()
    PopulateComboBoxes Me
End Sub

'# Par exemple dans un module......
Public Function PopulateComboBoxes(Form As Form)
    Dim Ctl As Control
    '# On passe en revue chacun des controles de la Form
    For Each Ctl In Form.Controls
        '# Si c'est un ComboBox...
        If TypeOf Ctl Is ComboBox Then
            With Ctl
                '# On le remplit comme il est du...
                .Clear
                .AddItem "Item 1"
                .AddItem "Item 2"
                .AddItem "Item 3"
                .AddItem "Item 4"
                .AddItem "Item 5"
                .AddItem "Item 6"
            End With
        End If
    Next Ctl
End Function


L'avantage, c'est qu'une ligne de code, par la suite te permettera d'avoir le même comportement dans d'autres formulaires...

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Imposer valeurs par défaut à toutes les combobox

1 réponse

Discussions similaires