XL 2010 Choix combobox

[Appo1985]

Bonsoir j'ai essayé d'adapte un code de validation dans mon userform1 mais il comporte toujours des anomalies que je voudrais de l'aide pour corriger.
1- quand je fais le choix dans combobox1 les autres s'affichent mais lui il s'efface
2- quand je valide, ce que j'ai saisi ne s'efface pas bien que je ferme et rouvre le userform
3- quand je saisis une lettre dans combobox1 une erreur est signalé
4- le click dans les listbox ne fait pas afficher les données au niveau des contrôles.
Ci joint le fichier

 

[Compte Supprimé 979]

Bonjour,

Sans fichier, cela va être compliqué

A+

 

[Appo1985]

Bonjour,

Sans fichier, cela va être compliqué

A+

Bonjour. C'est vrai! J'ai omis le fichier. Voici ça

 

[Compte Supprimé 979]

Bonjour,

1- quand je fais le choix dans combobox1 les autres s'affichent mais lui il s'efface
Normal, vous avez déjà fait un choix dedans, pourquoi vouloir le reremplir !?
A supprimer

'ComboBox1.ListIndex = lig - 5

2- quand je valide, ce que j'ai saisi ne s'efface pas bien que je ferme et rouvre le userform
Normal, vous masquez le formulaire, puis le réaffichez

 Me.Hide
 Me.Show

Il faut donc boucler sur tous les contrôle pour les effacer ou décharger l'USF

3- quand je saisis une lettre dans combobox1 une erreur est signalé
Normal, vous voulez transformer la valeur en numérique à priori

  If k <> "" Then k = k * 1

4- le click dans les listbox ne fait pas afficher les données au niveau des contrôles.
Normal, vous n'avez aucun code dedans

Private Sub ListBox1_Click()

End Sub

J'espère que mes réponse pourront vous aiguiller

Bonne journée

 

[Appo1985]

Bonjour,

1- quand je fais le choix dans combobox1 les autres s'affichent mais lui il s'efface
Normal, vous avez déjà fait un choix dedans, pourquoi vouloir le reremplir !?
A supprimer

'ComboBox1.ListIndex = lig - 5

2- quand je valide, ce que j'ai saisi ne s'efface pas bien que je ferme et rouvre le userform
Normal, vous masquez le formulaire, puis le réaffichez

 Me.Hide
 Me.Show

Il faut donc boucler sur tous les contrôle pour les effacer ou décharger l'USF

3- quand je saisis une lettre dans combobox1 une erreur est signalé
Normal, vous voulez transformer la valeur en numérique à priori

  If k <> "" Then k = k * 1

4- le click dans les listbox ne fait pas afficher les données au niveau des contrôles.
Normal, vous n'avez aucun code dedans

Private Sub ListBox1_Click()

End Sub

J'espère que mes réponse pourront vous aiguiller

Bonne journée

Merci beaucoup. Quand j'ai supprimé certaines lignes que vous avez indiqué, l'erreur ne s'affiche plus et le combobox ne s'efface plus.
Mais comment faire pour éviter les doublons ? car quand je clique deux foix les mêmes données s'enregistre.
Merci