Je tente d'alimenter une comboBox d'un userform à partir de checkboxs d'une feuille de calcul.
En effet, je voudrai que dans la liste de la combobox ne figure que les noms des checkboxs cochées.
Code:
Private Private Sub userform_initialize()
Dim Obj As Shape
For Each Obj In Worksheets("bd").Shapes
If Obj.Value = True Then
ComboBox1.List = Obj.Name
End If
Next Obj
End Sub
J'ai fait ceci mais j'ai une erreur:"Erreur d'execution 438 - Propriété ou méthode non gérée pas cet objet".
J'ai consulté l'aide mais ça ne m'a été d'une grande utilité. Je m'en remets à vous pour trouver une solution.
Re : Alimenter Combo userform à partir checkbox sur feuille
bonjour cathodique
Code:
Private Sub userform_initialize()
Dim Obj As OLEObject
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox And Obj.Object = True Then _
ComboBox1.AddItem Obj.Object.Caption
Next Obj
End Sub