J'avais bénéficié de beaucoup d'aide pour l'établissement de ce tableau excel.
Premièrement celui-ci était fait avec une multipage (SAV1, SAV2 ....). J'avais pour idée de faire 1 fiche par article.
Mais après coup c'est beaucoup trop compliquer.
Maintenant j'ai plus dans l'optique de créer 1 fiche par SAV.
Je ne gère donc plus de multipage.
JP14 m'avait relativement beaucoup aidé.
Sauf que aujourd'hui après une longue abscence (déplacements professionnels), je cherche à retravailler dessus mais à l'ouverture du fichier et quand je clique sur mon bouton "nouvelle fiche SAV", j'ai ce texte qui apparaît: "Bibliothèque d'objets incorrecte ou contenant des références à des définitions d'objets introuvables"
D'où cela peut-il venir ?
PS: on avait commencé en Excel 2007, je suis en 2010 aujourd'hui.
Re : Bibliothèque d'objets incorrecte ou contenant des références à des définitions d
Mes 2 formulaires s'ouvrent correctement, mais dès que je souhaites les utiliser, j'ai ma fenêtre avec le pb de bibliothèque revient ...
Je ne dois quand même pas tout recommencer ???
Maintenant il me ferme automatiquement excel !!!! Pensez vous que c'est le logiciel qui est mal installé ? Il fonctionne très bien en temps normal ???
Re : Bibliothèque d'objets incorrecte ou contenant des références à des définitions d
Bonjour sophie34,
Il subsiste encore dans le code des noms de contrôles inexistants sur le formulaire, notamment concernant les OptioButton de la boucle ci-dessous (module UserForm3) :
Code:
Private Sub enregistrement1(lig As Long, Nomfeuille1 As String)
Dim Ctrl As Control
Dim Coln As Long
Dim I As Byte
With Sheets(Nomfeuille1)
.....
.....
enregistrement = True
For I = 1 To 10
Me.Controls("OptionButton" & I).Value = False
Next I
End Sub
Soit tu renommes les OptionButton11 et 12 en 3 et 4, et tu adaptes les paramètres de ta boucle,
Soit tu réécris ta boucle comme ceci :
Code:
For Each OB In Me.Controls
If TypeOf OB Is MSForms.OptionButton Then OB.Value = False
Next I
Dans le premier cas, n'oublie pas de rechercher toutes les occurrences de ces boutons dans l'ensemble de ton code.
J'ai relevé une autre erreur de nom dans le module de classe ClsTextBox :
Private Sub LeLabel_Click()
Dim num As Byte
With LeLabel
num = Val(.Tag)
User3.Controls("TextBox" & num) = .Caption
End With
End Sub
"User3.Controls" doit s'écrire "UserForm3.Controls". De plus, lors de l'exécution, la variable "num" = 0, d'où nouvelle erreur.
Je te conseille donc de poursuivre la vérification de la corrélation des noms de contrôles dans l'ensemble du code, ce travail étant assez fastidieux pour quelqu'un qui n'a pas participé à son élaboration. Ensuite, tu refais des essais, et tu nous informes des erreurs au fur-et-à mesure de leur découverte. On essaiera de les solutionner une par une.
Re : Bibliothèque d'objets incorrecte ou contenant des références à des définitions d
Bonjour Sophie34
Bonjour Papou-net
Ci dessous les code concernant les labels et options button
Code:
For I = 125 To 133
Controls("Label" & I).Caption = data1
Set GrpLeLabel(I - 119).LeLabel = Controls("Label" & I)
Next I
Et les OptionButton
Code:
For I = 1 To 2
Me.Controls("OptionButton" & I).Value = False
Me.Controls("OptionButton" & 10 + I).Value = False
Next I
Pour éviter les erreurs au niveau des labels il faut mettre dans la propriétés Tag le numéro du textbox associé au label
Code:
Label133.tag = 56
Label131.Tag = 55
Pour trouver les erreurs, il faut se mettre dans l'éditeur VBA et lancer l'userform avec le bouton "Exécuter Sub/Userform", le programme s’arrêtera sur les contrôles inexistants, il faut soit les supprimer, soit modifier les indices en fonction de l’existant, que l'on trouve en cliquant sur la flèche de "objet".
JP
Re : Bibliothèque d'objets incorrecte ou contenant des références à des définitions d
Bonjour,
Voilà exaspérée par ce stupide message qui m’empêchait toutes modifications, je me suis résignée à reprendre depuis le début.
J'ai copié les choses qui me semblaient correctes et modifié les nouveaux labels, textboxs ...
J'ai toujours un problème sur les optionbuttons.
Je ne comprends pas il ne m'en reste plus que 4 mais il ne les reconnait pas ....
Je vous mets mon nouveau fichier, j'ai annoté par endroit quelques remarques ou interrogations.
Merci pour ceux qui auront le temps et la patience pour m'aider à résoudre mes problèmes.
Re : Bibliothèque d'objets incorrecte ou contenant des références à des définitions d
Je viens de rajouter le module de classe existant de l'ancien projet sur le nouveau en le mettant à jour.
J'ai toujours une erreur sur les option button.
Quelqu'un pourrait-il y jeter un oeil ?
Je viens de rajouter le module de classe existant de l'ancien projet sur le nouveau en le mettant à jour.
J'ai toujours une erreur sur les option button.
Quelqu'un pourrait-il y jeter un oeil ?
Je relance le sujet, Merci.
Sinon je pense que c'est le contrôle "listview" qui pose un pb. Si j'ouvre un fichier une une listeview y fait partie, j'ai ce message d'erreur.