Problème Combobox

Bonjour à tous, premier post de ma part !

J'ai un fichier Excel avec dedans quelques 100 Combobox.

J'aimerais toutes les remplir avec les choix suivants : " OUI " ou " NON ".

J'ai tenté plusieurs méthodes mais aucune ne fonctionne :

Sub boxes()

Dim i As Byte

For i = 1 To 100

ComboBox( & i).AddItem "OUI"

ComboBox( & i).AddItem "NON"

Next i

End Sub

Ou bien encore

Sub boxes()

For each ComboBox

ComboBox.AddItem "OUI"

ComboBox.AddItem "NON"

Next

End Sub

Savez-vous comment résoudre ce problème ? ça fait bien deux heures que j'y suis du coup je me suis inscrit.

Merci d'avance !

Bonjour Babz01,

A tester :

Private Sub UserForm_Initialize()
    For i = 1 To 100
        Controls("ComboBox" & i).AddItem "OUI"
        Controls("ComboBox" & i).AddItem "NON"
    Next i
End Sub

Cordialement,

Rebonjour,

Erreur : " Sub ou fonction non définie" ,

Mon code est pourtant bien dans la feuille et non dans un module.

Toujours ces petites erreurs toutes bêtes qui apparaissent

Merci;

J'ai fait ce code en fonction d'un UserForm. Si c'est des comboBox dans une feuille, ce sera différent.

Je regarde

Re,

A mettre dans ThisWorkBook et à tester :

Private Sub Workbook_Open()
    Set f = Sheets("Feuil1") [color=#00BF00]'Modifier le nom de l'onglet[/color]
    Dim Obj As OLEObject

    For Each Obj In ActiveSheet.OLEObjects
        Obj.Object.List() = Array("OUI", "NON")
    Next Obj
End Sub

Normalement, à l'ouverture du fichier, les Combo-box seront alimentés.

Cordialement,

Bonjour,

Private Sub UserForm_Initialize()
 For Each c In Me.Controls
   nom_control = c.Name
   If TypeName(c) = "ComboBox" Then Me(nom_control).List = Array("Oui", "Non")
 Next c
End Sub

Boisgontier

Yessss

Merci vous êtes les meilleurs ça fonctionne parfaitement.

Merci pour les réponses plus que rapides !!