VBA Supprimer une ComboBox

louis -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'avais une macro qui marchait parfaitement bien et qui maintenant ne marche plus du tout. J'obtiens l'erreur d'exécution 1004 "Impossible de lire la propriété Object de la classe OLEObject"
Pour tout dire j'ai fusionné deux feuilles ensemble, ainsi que toutes les macros qu'elle contenaient, mais je n'ai pas touché à cette macro directement.

Sub EffaceComboBox()

Dim Obj As OLEObject
For Each Obj In Sheets("Hypothèses_Comm").OLEObjects
If TypeOf Obj.Object Is MSForms.ComboBox Then
Obj.Delete
End If
Next
' Efface toutes les ComboBox

End Sub

Merci pour votre aide,

Louis

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
à quelle ligne se produit l'erreur ?
0
louis
 
Sur cette ligne :

If TypeOf Obj.Object Is MSForms.ComboBox
0
Réponse 2 / 2
louis
 
Personne n'a une idée ?
0
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
Si tu as appliqué le Selection.Name = "ListeChoix" & i comme dans ce post : http://www.commentcamarche.net/forum/affich 6835556 vba excel combobox

pourquoi ne pas tenter 
    For i = 1 To NombComm
        ActiveSheet.OLEObjects("ListeChoix" & i).Delete
    Next


?
0
louis > onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention  
 
Ca a marché la première fois que je l'ai testé, puis j'ai réessayé et il m'a sorti "Bibliothèque d'objets incorrecte ou contenant des références à des définitions d'objets introuvables"

En gros il a du mal avec les OLEObject.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > louis
 
N'y-a-t-il pas une référence non résolue dans la liste des références ? (outils/références)
0
louis > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Une référence non résolue ? J'ai peur de ne pas comprendre. J'ai été voir dans outils/référence et tout avait l'air normal : 5 cases sont cochés (Visual Basic for Applications / Microsoft Excel 12.0 Object Library / OLE Automation / Microsoft Office 12.0 Object Library / Microsoft Forms 2.0 Object Library)
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > louis
 
Tu as bien compris : je craignais qu'il y ait une anomalie dans la liste des références.
Quand il y a le problème, est-il possible d'aller, en mode debug, examiner le contenu de l'objet ? Peut-etre est-ce une instance de l'objet qui pose problème, et que le code devrait éviter.
0

Discussions similaires

Supprimer conversation messenger pour tout le monde
mercidemaider -
sd -

7 réponses