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