Problème avec la fonction Clear

Bonjour a tous,

Dans le cadre de mon travail je dois crée avec Excel une interface que les operateurs et régleurs renseigne sur le production des machines via une boite de dialogue et que lorsqu'il valide les infos reparte sur une feuille pour s'enregistrer. N'y connaissant pas grand chose en vba j'y avance en tâtonnant et la j'aurais besoin d'aide.

J'ai réussi à crée mon interface pour la partie production, j'ai donc retaper le même code en l'adaptant pour la partie des régleurs. Quand je souhaite simuler j'ai un code erreur qui apparait " Erreur d'exécution '-2147467259 (80004005)': Erreur non répertoriée" lorsque je clique sur débogage c'est dans ma première comboBox que l'erreur se trouve "regleur.Clear" mon soucis et que sur la partie de production je n'ai pas eu se soucis. J'ai vérifié que j'ai bien nommer cette comboBox comme cela mais je ne sais pas trop quoi faire.

Je ne peux envoyer le fichier qui même en l'allégeant reste trop gros, je vous joint ainsi des capture écrans.

En vous remerciant de l'aide que vous m'apporterez.

Bonjour,

tu te doutes bien que sans fichier l'aide va être congrue.
Essaie en désignant devant l'objet le nom de l'UF : nom_du_UserForm.regleur.Clear
Sinon supprime et recrée l'objet

Sans grande conviction...
eric

Bonjour Eric,

J'ai tester votre solution en inscrivant le nom de l'UF mais pas de résultat.

J'ai alléger un maximum le fichier en ne gardant que la partie réglage (celle qui bug).

Je le poste ici.

Cordialement.

.

J'ai supprimé et recréé l'objet comme proposé en 2nd.
Ca passe mais ça plante maintenant sur le suivant : machine.Clear

Supprime-les et recrée-les, si tu mets le même nom tu n'as pas à retoucher au code.
eric

Bonsoir Eric,

Merci pour votre réponse, effectivement en refaisant mes comboBox c'est allez.

J'aurais aussi une petite question, j'aimerais que lorsque l'on clique sur valider les donnée saisie s'efface, cela permettras d'éviter plusieurs saisie de la part des utilisateurs. J'avais voulu tester avec la fonction Clear mais me donnais une erreur de compilation.

Je suppose que j'utilise pas la bonne fonction.

lignes code testées:

Private Sub Valider_Click()

Sheets("REGLAGE").Rows(2).Insert
Range("A2:L2").Font.Bold = False
Sheets("REGLAGE").Range("A2").Value = Me.jour.Text
Sheets("REGLAGE").Range("B2").Value = Me.regleur.Text
Sheets("REGLAGE").Range("C2").Value = Me.machine.Text
Sheets("REGLAGE").Range("D2").Value = Me.reference.Text
Sheets("REGLAGE").Range("E2").Value = Me.otp.Text
'Sheets("REGLAGE").Range("F2").Value=Me.AAAAA.Text
Sheets("REGLAGE").Range("G2").Value = Me.depart.Text
Sheets("REGLAGE").Range("H2").Value = Me.fin.Text
Sheets("REGLAGE").Range("I2").Value = Me.piecebonne.Text
Sheets("REGLAGE").Range("J2").Value = Me.dechet.Text
Sheets("REGLAGE").Range("K2").Value = Me.commentairedechet.Text
Sheets("REGLAGE").Range("L2").Value = Me.commentaire.Text

reglage.regleur.Clear
reglage.machine.Clear
reglage.reference.Clear
reglage.otp.Clear
reglage.jour.Clear
reglage.depart.Clear
reglage.fin.Clear
reglage.piecebonne.Clear
reglage.dechet.Clear
reglage.commentairedechet.Clear
reglage.commentaire.Clear

End Sub

Cordialement

Pas de fichier, pas de test possible.
Pourquoi tu ne fermes pas le userform tout simplement ?