Etienne2323
XLDnaute Impliqué
Bonjour à tous,
dans un programme que je développe actuellement pour le travail, je frappe ce message d'erreur depuis quelques jours suite à l'exécution d'une macro me servant à ajouter des CheckBox sur une feuille Excel en lot. Ce code avait été présenté initialement par Michel et modifié ensuite par Thierry. Je l'ai simplement légèrement adapté pour qu'il remplisse mon besoin.
Voici le code :
Suite à l'exécution automatique de cette macro, le message d'erreur est le suivant :
"Erreur de compilation : Bibliothèque d'objets incorrecte ou contenant des références à définition d'objets introuvables.
Pour l'instant, les vérifications que j'ai faites sont les suivantes :
1) Vérifier si j'avais des références manquantes ou invalides (Outils --> Références ) mais rien de ce côté
2) J'ai cherché à supprimer tous les ".exd" de mon poste. Aucun changement !
3) Quand je ferme le fichier et que je l'ouvre de nouveau, ça fonctionne ...
En fait, ma question est la suivante. Est-ce que je dois ajouter une Référence VBA particulière pour régler ce problème ? Sinon, une piste de solution ???
Normalement, j'aurais joint le fichier pour que vous puissiez tester de votre côté également. L'ennui, c'est que 100% des données sont confidentielles. Quand je crée un fichier exemple pour recréer simplement cette problématique, tout fonctionne à merveille. À n'y rien comprendre Je le joins quand même pour la forme.
Merci beaucoup,
Cordialement,
Étienne
dans un programme que je développe actuellement pour le travail, je frappe ce message d'erreur depuis quelques jours suite à l'exécution d'une macro me servant à ajouter des CheckBox sur une feuille Excel en lot. Ce code avait été présenté initialement par Michel et modifié ensuite par Thierry. Je l'ai simplement légèrement adapté pour qu'il remplisse mon besoin.
Voici le code :
VB:
'Merci à Thierry et Michel pour la base de ce code !
Set Plage = ActiveSheet.Range("B2:B" & DL)
Compteur = 0
For Each Cell In Plage
Compteur = Cell.Row
If Cell.Offset(0, 1).Value <> "" And Cell.Offset(0, 1).Font.Size <> 14 And Cell.Offset(0, 1).Font.Bold = False Then
L = Cell.Left
t = Cell.Top
W = Cell.Width
H = Cell.Height
Set Cbx = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=L, Top:=t, Width:=W, Height:=H)
With Cbx
.Name = "CheckBox" & Compteur
.Object.Font.Size = 10
.Object.Caption = ""
.Object.Value = False
End With
Set Cbx = Nothing
End If
Next Cell
Set Plage = Nothing
Set Cbx = Nothing
Suite à l'exécution automatique de cette macro, le message d'erreur est le suivant :
"Erreur de compilation : Bibliothèque d'objets incorrecte ou contenant des références à définition d'objets introuvables.
Pour l'instant, les vérifications que j'ai faites sont les suivantes :
1) Vérifier si j'avais des références manquantes ou invalides (Outils --> Références ) mais rien de ce côté
2) J'ai cherché à supprimer tous les ".exd" de mon poste. Aucun changement !
3) Quand je ferme le fichier et que je l'ouvre de nouveau, ça fonctionne ...
En fait, ma question est la suivante. Est-ce que je dois ajouter une Référence VBA particulière pour régler ce problème ? Sinon, une piste de solution ???
Normalement, j'aurais joint le fichier pour que vous puissiez tester de votre côté également. L'ennui, c'est que 100% des données sont confidentielles. Quand je crée un fichier exemple pour recréer simplement cette problématique, tout fonctionne à merveille. À n'y rien comprendre Je le joins quand même pour la forme.
Merci beaucoup,
Cordialement,
Étienne