Pb erreur message sur UserForm.Show

Bonjour le forum,

Avec votre aide, j'ai réalisé une boite de dialogue qui va vérifier si des fichiers existent aui démarrage du fichier, puis on lance le bouton rechercher et une combobox avec saisie rédictive des fichiers est proposée. Tout ça a fonctionné à la perfection sauf depuis quelques jours sans avoir rien changé car le fichier est protégé et ne peut être modifié que par mes soins.

Voici le message d'erreur et le débigueur me renvoit à la ligne UserForm.Show

Erreur d'exécution '-2147352571(800200005)':

Le type ne correspond pas.

Merci de votre aide.

bonsoir,

sans le fichier, on va avoir du mal...

Pour faire la recherche de la source de l'erreur, une fois que tu es en mode débogage (ligne UserForm.Show en jaune), appuie sur F8 afin de dérouler le code en mode pas-à-pas.

A un moment, tu auras le message d'erreur..

relève la ligne qui renvoie l'erreur, et essaie de deviner pourquoi la ligne ne peut pas s'exécuter...

Sans ça, je ne vois qu'une boule de cristal, ou du marc de café...

Bon courage

Salut Cousin Hub,

Je suis passé en mode pas à pas et curieusement de temps en temps ça passe...

Je joins le fichier mais je souhaite que ce dernier soit détruit une fois résolue l'erreur.

Merci de ton aide.

-- Jeu Déc 10, 2009 4:42 pm --

Le fichier ne veut pas se charger...

Bonsoir le forum,

Voici le fichier.

Mot de passe du fichier "Conditionnement"

Merci de votre aide,

Bonjour,

Essayez de remplacer la procédure Private Sub UserForm_Initialize()

par

Private Sub UserForm_Initialize()
Dim Cel As Range
Dim i As Byte, J As Byte
For i = 65 To 90
    Tablo(J) = i
    J = J + 1
Next i
For i = 97 To 122
    Tablo(J) = i
    J = J + 1
Next i
Tbl = Join(Tablo, ",")
With Sheets("Liste Clichés")
    For Each Cel In .Range("D2:D" & .[D65000].End(xlUp).Row)
        Me.ComboBox1.AddItem Cel
    Next Cel
End With

'///////////////////////
Dim valeur
valeur = Sheets("Liste Clichés").Range("C1").Value
If valeur > 0 Then
  Me.ComboBox1.MaxLength = valeur
Else
  Me.ComboBox1.MaxLength = 1
End If
'///////////////////////

Me.ComboBox1.SetFocus

End Sub

Cordialement.

PMO

Patrick Morange