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

**Danny.adh1** · 28/10/2015, 14h41

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

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

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

**BDA53** · 28/10/2015, 15h02

salut,

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

cordialement
xela57

**Danny.adh1** · 28/10/2015, 15h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**BDA53** · 28/10/2015, 16h53

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 ?