Sujet Précédent Sujet Suivant

VBA Supprimer une ComboBox

Fermé
louis - 11 juin 2008 à 18:21
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 - 12 juin 2008 à 11:42
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
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 Ambassadeur 1 554
11 juin 2008 à 20:15
à quelle ligne se produit l'erreur ?
0
louis
11 juin 2008 à 21:00
Sur cette ligne :

If TypeOf Obj.Object Is MSForms.ComboBox
0
Réponse 2 / 2
louis
12 juin 2008 à 08:57
Personne n'a une idée ?
0
onesdf Messages postés 375 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008 120
12 juin 2008 à 09:04
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 mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008
12 juin 2008 à 09:12
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 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > louis
12 juin 2008 à 09:16
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 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024
12 juin 2008 à 09:25
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 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > louis
12 juin 2008 à 11:42
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

Comment supprimer une conversation Messenger pour les 2 personnes ?
mercidemaider -
sd -

7 réponses