Problème avec des textbox (bibliothèque d'objets) "Incompatibilité de type"

Version imprimable

28/10/2015, 14h41
Danny.adh1

Problème avec des textbox (bibliothèque d'objets) "Incompatibilité de type"

Bonsoir à tous,

Je me permets de vous soumettre une problématique à laquelle je ne trouve pas (plus) de solution.

Voici mon problème : je finalisais un projet VBA et modifiais le nom de textbox. Excel c'est soudainement arrêté et à affiché la fenêtre : « excel a du fermer et tente de récupérer vos informations».
Le programme c'est réouvert normalement mais à partir de là je ne pouvais plus ni modifier de textbox ni en ajouter sur l'userform.
Une fenêtre s'affichait avec le message erreur 800a9c6c dès que j'essayais d'en créer une, par contre je pouvais modifier ou ajouter d'autres objets, type label, combobox...
On ne peut plus désormais rentrer de données dans des textboxs mais cela sur tous les fichiers excel qui utilisent des textboxs sur le pc. Une fenêtre s'ouvre avec « "Incompatibilité de type"»

Par ailleurs, certains userforms de plusieurs fichiers excel n'ont plus les mêmes formes qu'au départ.
J'ai bien sur tenter d'ouvrir ces fichiers qui posent problèmes sur un autre PC et là tout les fichiers fonctionnent bien, les textbox, les userforms ont leur bonne forme...Tout va bien.

Après plusieurs recherches sur Internet et sur le site j'ai tenté plusieurs solutions :

1e Tout d'abord dans les références de la bibliothèque d'objets ->Onglet Développeur/VisualBasic/Outils/Références, il y avait une ligne : " MANQUANT : Ref Edit Contrôl" qui était aussi cochée. Je l'ai décoché mais cela n'a rien changé, les textboxs ne fonctionnent tjrs pas.

2e J'ai tenté (sur les conseils d'un membres du site) :
Exporter l'UserForm et les modules
Supprimer l'UserForm et les modules du projet
Importer les modules et l'UserForm.
Cela n'a rien changé.

3e j'ai tenté de désinstaller et réinstaller excel mais en vain.

4e J'ai supprimer les fichiers qui posaient des problèmes et j'ai réinstaller ceux qui fonctionnaient correctement sur l'autre pc, évidemment peine perdue:weird:

5e j'ai appelé un technicien qui sur place n'a pas trouvé de solution et je dois lui laisser l'ordi, ce qui ne m'arrange pas du tout car j'ai des programmes (gestion fi&personnel) que je ne peux pas aujourd'hui transférer sur l'autre pc

Ce n'est pas un souci de code compte tenu que tous les fichiers fonctionnent très bien sur l'autre pc y compris le fichier qui a posé un souci au départ. (Pour info, les 2 pc tournent sur excel 2007)

Je pense que c'est un problème de textbox dans la bibliothèque d'objet d'excel car je le rappelle, c'est lorsque je renommais des textbox (fenêtre propriété) qu'excel à fermé soudainement et au démarrage, les problèmes que l'on connait !!

Là, je cale :calim2:
je me retourne vers des spécialistes qui j'espère pourront m'éclairer dans les méandres (ou les joies) de la gestion des objets dans excel.

Je vous remercie par avance pour vos conseils qui me seront précieux et m'éviteront, je l'espère de restaurer le pc. (Désolé pour la longueur;))

À bientôt

Danny
28/10/2015, 15h02
BDA53

salut,

peux-tu nous transmettre le code que tu as créer ?

cordialement
xela57

Bonjour,

Le code concerne une application qui tourne sur excel. Il y en a un paquet...
D'ailleurs depuis le problème sur ce pc, j'ai continué à travailler sur l'autre pc et le code a évolué depuis.

J'ai remis l'application terminée sur le pc qui pose problème et là, elle ne fonctionne pas. Tout comme les autres fichiers excel qui ont des codes tous différents (et qui fonctionnaient très bien auparavant) mais les textbox ne fonctionnent plus non plus.
Comme je l'ai précisé dans le post précédent, j'ai supprimé les fichiers puisqu'il ne fonctionnaient plus et surtout qu'il avait évolué sur l'autre machine.
Je ne pense pas que le code soit la problématique puisqu'il fonctionnent correctement sur l'autre machine (et sur le pc de la Secrétaire aussi).

Il faudrait comme restaurer la bibliothèque d'excel mais sur le pc qui pose souci car il doit y avoir une textbox qui n'a pas été renommée correctement en raison de l’arrêt soudain d'excel.
Le code n'a à mon avis pas de conséquence sur les problèmes de la bibliothèque.

Toutefois, je t'envoie une partie du code ou le débogage marque la ligne du code de la textbox utilisée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Private Sub GroupeTxtSemaine_Change()
 
    Dim DebMatin As Date
    Dim FinMatin As Date
    Dim DebAprem As Date
    Dim FinAprem As Date
    Dim Lundi As Date
    Dim Mardi As Date
    Dim Mercredi As Date
    Dim Jeudi As Date
    Dim Vendredi As Date
    Dim Samedi As Date
    Dim Dimanche As Date
    Dim Total As Double
    Dim I As Integer
 
    With user
 
       For I = 5 To 35 Step 5
 
           'si la longueur du texte est égale à 5 pour tous
           If Len(.Controls("T" & I - 4).Value) = 5 _
               And Len(.Controls("T" & I - 3).Value) = 5 _
               And Len(.Controls("T" & I - 2).Value) = 5 _
               And Len(.Controls("T" & I - 1).Value) = 5 Then
 
               'converti en date
               DebMatin = CDate(.Controls("T" & I - 4).Value)
               FinMatin = CDate(.Controls("T" & I - 3).Value)
               DebAprem = CDate(.Controls("T" & I - 2).Value)
               FinAprem = CDate(.Controls("T" & I - 1).Value)
 
               'totalise en convertissant en double
               Total = CDbl(FinMatin - DebMatin + FinAprem - DebAprem)
 
               'affiche au format heures : minutes
               .Controls("T" & I).Value = Application.WorksheetFunction.Text(Total, "hh:mm")
 
           End If
 
       Next I
 
       On Error Resume Next 'permet de totaliser ligne par ligne
 
       'idem, conversion en date
       Lundi = CDate(.T5.Value) '<- C'est ici que marque le débogage qd on saisie une donnée dans la textboxT5
       Mardi = CDate(.T10.Value)
       Mercredi = CDate(.T15.Value)
       Jeudi = CDate(.T20.Value)
       Vendredi = CDate(.T25.Value)
       Samedi = CDate(.T30.Value)
       Dimanche = CDate(.T35.Value)
 
 
       'puis en double
       Total = CDbl(Lundi + Mardi + Mercredi + Jeudi + Vendredi + Samedi + Dimanche)
 
       'au format heures : minutes au delà de 24 h
       .TotSemaine.Value = Application.WorksheetFunction.Text(Total, "[hh]:mm")
 
    End With
 
    'permet de laisser la main au gestionnaire de la procédure "Totaliser"
    'afin d'inscrire les totaux au fur et à mesure que les valeurs sont bonnes
 
    On Error GoTo 0
 
    Totaliser
 
 End Sub

J'espère que cela pourra servir
Merci par avance pour vos conseils

Danny

28/10/2015, 16h53
BDA53

Ton code semble propre et sans faute hormis la ligne 60 où j'ai un doute

As-tu déjà essayé de redémarrer plusieurs fois l'ordinateur ou cela pose problème ?
28/10/2015, 16h57
Danny.adh1

oui, j'ai déjà redémarré plusieurs fois
même revenu sur une mise à jour windows mais rien y fait !!
28/10/2015, 17h20
BDA53

d'accord alors le seul problème que je vois actuellement c'est que tu utilises une version "crackée" ou "modifiée" de Excel sur cet ordi
28/10/2015, 17h36
Danny.adh1

Non pas de version crackée ni modifiée
c'est le même pack office qui tourne sur les 2 pc et je n'ai jamais eu de problème auparavant sauf depuis cet arrêt soudain
29/10/2015, 11h51
Marc-L

Bonjour.

Supprimer le contenu du dossier Temp de la session …

Si sans effet, lancer la réparation d'Excel …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
29/10/2015, 16h06
Danny.adh1

Bonsoir,

dans le dossier Temp, qui se trouve dans Users\AppData\Local\Temp, j'ai un paquet de fichiers avec des formats inconnus pour moi, je ne sais quelle va être la conséquence de la suppression de ces fichiers.
Y aura-t-il des conséquences ou pas ?

Dans le dossier Temp, il y a aussi deux dossiers, un "Low" qui est vide et l'autre "VBE" qui contient deux fichiers, ils me semble qui appartiennent au projets VBA, je me trompe peut être ... -> MSForms.exd et RefEdit.exd
Ne faut-il pas supprimer uniquement ceux là ?
Je tourne sous windows 8 au cas où !!

Merci par avance pour votre retour et vos conseils
Danny
29/10/2015, 16h18
Marc-L

Par nature, un dossier Temp est dédié aux fichiers temporaires censés être effacés automatiquement
avec OS & application bien pensés. Ah pardon, c'est un OS et une application Microsoft !

Donc, toute application fermée, supprimer l'intégralité du dossier Temp de l'utilisateur
(valable aussi pour le Temp de Windows, le système en sera allégé) …

Pas de conséquence sauf si un idiot y installe des applications ou des données !

Tenter la réparation avant la suppression des fichiers temporaires …
Sinon il reste à reformater le disque dur puis à tout réinstaller !
29/10/2015, 16h38
Danny.adh1

Ok, je tente la réparation d'excel puis la suppression des fichiers Temps si besoin, tout mais pas le reformatage, cela va être une galère pour tout réinstaller (divers licences de programmes avec des prestataires différents...)
Je tente (et j'espère...) et je vous tiens informé
Merci
Danny
29/10/2015, 17h27
Danny.adh1

Bon et bien les textbox ne fonctionnent tjrs pas après une réparation d'excell même après réparation du pack office pack office avec le redémarrage qui ba bien.
J'ai supprimé la totalité du fichier Temp avec un redémarrage, même résultat.
Y a pas moyen de faire comme une restauration ou réparation de la bibliothèque d'excel ou d'office carrément...
Enfin !!, j'essaye de ne pas passer par la restauration
29/10/2015, 18h15
Danny.adh1

Je viens d'installer une version d'essai d'office 2016 sur le pc et les fichiers fonctionnent correctement, les textbox également.
Quel choix !!! :weird:
Soit restaurer le pc ou soit passer à excel 2016 ou voire une autre version...
mais dans tous les cas plus sur excel 2007.
Le choix, il va être vite fait...
Je laisse la V2007 derrière moi et je tenterai d'autre version que 2016 peut être.
Merci pour vos conseils
Danny
29/10/2015, 18h26
Marc-L

Sinon il restait à voir si tous les correctifs via Windows Update ont été installés
car cela ressemble au bug suite à une mise à jour de début d'année …

Il y a des discussions sur ce sujet et il doit encore y avoir un mémo chez Microsoft …