Discussion :

[Chewi]

Bonjour à tous,

Lorsque je lance mon UserForm (Uf1), j'obtiens une erreur du type:

Run-time error '-2147352571(80020005)':
Type Mismatch

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Activate()
    Uf1.ComboBox2 = Workbooks("Prog.xls").Sheets("MemoiresUFS").Range("A3").Value 'x
    Uf1.ComboBox1 = Workbooks("Prog.xls").Sheets("Lot").Range("B1").Value
    Uf1.TextBox1 = Workbooks("Prog.xls").Sheets("MemoiresUFS").Range("A2").Value
    Dim VTexte As String
    If Len(TextBox1) < 4 Then
        VTexte = TextBox1.Value
        TextBox1.Value = "0" & VTexte
    End If
 Dim c As Range
 For Each c In ThisWorkbook.Sheets("Codes").Range("A1").CurrentRegion
   Uf1.ComboBox2.AddItem c                                                'y
 Next
End Sub

Ce code me permet de récupérer les choix précédents sauvés dans diverses feuilles.

Y a-t-il un problème entre les lignes x et y ?

Les données que j'ai dans ma feuilles codes sont de ce type:
12 001
12 002
12 003
12 004
12 005
12 006
Avec à chaque fois un espace entre 12 et 00x (en format général, excel ne considérant pas ceci comme un nombre).

Dans un autre forum, un utilisateur a eu le même problème et cela était du à une virgule dans la TextBox. S'agirait-il d'un problème avec l'espace?

Si je remplace mes données par:
xx
yy
rr
ee
zz
...

J'ai la même erreur.

Voilà, si une bonne âme pouvait m'aider...

Merci

[SfJ5Rpw8]

sur qu'elle ligne l'erreur ?

[Chewi]

oups, avais oublié

Code :

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

1
2
 
Uf1.ComboBox2.AddItem c

[SfJ5Rpw8]

regarde le alors le contenu de la cellule "pointé" par la variable c..

[Chewi]

Voici ce que j'ai sur mes cellules pointéesc'est fixe):

Les données que j'ai dans ma feuilles codes sont de ce type:
12 001
12 002
12 003
12 004
12 005
12 006
Avec à chaque fois un espace entre 12 et 00x

Je n'arrive pas à voir ce qui est pointé au moment du code(même si je suppose que cela reste le même) car seul mon userform est accessible.

Mais je ne dis nulle part de changer les données, donc je les connais.
Si pas, je dois retirer le mode d'apparition de mon userform mais je ne sais pas comment faire.

Déjà Merci bbil

[SfJ5Rpw8]

ben vu que tu n'as que 6 éléments dans ta boucle tu peu rajouter un "arrêt" en mode debug .. te permettant d'observer la variable c...

pour cela dans l'editeur VBE ..

- Affiche fenêtre espion ( menu Affichage/Fenêtre expion)
- Sélectionne la variable c dans la boucle, puis appel du menu contextuel par bouton droit de la souris et "Ajouter un espion", choisi l'option Arrêt si valeur change ....

lance ton code , et observe à chaque arrêt la valeur de ta variable c dans la fenêtre espion, utilise la touche F5 (continuer) entre chaque arrêt ...

[Chewi]

Bonjour bbil et le forum,

J'ouvre mon fichier aujourd'hui, je lance ma macro et ... aucune erreur
alors que je n'ai rien modifié.
Mon code fonctionnait déjà avant, il y a juste hier que j'obtenais une erreur.
J'ai tout de même essayé avec la fenêtre espion (c'est jamais perdu).
Et je n'ai aucun changement de valeur

Si quelqu'un a une suggestion...

J'attends avant de mettre le TAG résolu car si ça l'a fait 1 fois, je ne serais pas surpris de rencontrer le même problème.

[ouskel'n'or]

Hier, as-tu testé un autre code qui a généré une erreur "non répertoriée" ?
Parfois il arrive, après avoir déjà planté l'interpreteur, que les macros ne fonctionnent plus normalement. Il suffit de fermer Excel et de tout relancer pour que les choses reprennent leur cours normal
Bonne chance avec ton fichier
A+

[Chewi]

Non, il s'agissait de la 1ère erreur rencontrée, après 10 sec d'utilisation et sans modification de quoi que ce soit, juste en lançant le code.

C'est la toute 1ère opération que j'ai effectué, le lancement de ce code qui n'avait jamais planté auparavant.

J'avais également réessayé en fermant excel et en relançant le code.
Mais même problème.

Merci

[SfJ5Rpw8]

....
J'ai tout de même essayé avec la fenêtre espion (c'est jamais perdu).
Et je n'ai aucun changement de valeur
....

eu si tu as bien placé ton espion ta variable c devrai changer de valeur ..?
sinon comment remplir ta combobox...?

[Chewi]

Euh...
j'avais sélectionné le "c" mais pas où je la dimensionne
et effectivement du coup, la valeur change
je me disais aussi...

Ma variable prend bien les différentes valeur.
"Dommage" que je n'ai pas pu regarder lorsque j'avais l'erreur.

Mais je ne perds pas espoir.