Probleme affichage valeur combobox

bonjour

voila je vous explique mon problème si je fais a modifier j'affiche toute les valeurs après sélection dans ListBox1_Click

sauf combobox1

 Me.TextBox6.Text = .Range("g" & (Cel.Row)).Value
 'Me.ComboBox1.Value = .Range("h" & (Cel.Row)).Value

car si j'affiche cette valeur j'ai une erreur d’exécution 13 'incompatibilité de type dans mon module1.datechange

je souhaiterais afficher après sélection cette valeur dans ma combobox pour savoir quel renouvellement a cette ligne

voila j'ai réussi en trichant un peu

j'ai rajouté

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets("temp").Range("l2") = "ok"
End Sub

et en modifiant

Private Sub ComboBox1_Change()
If Sheets("temp").Range("l2") = "ok" Then Module1.datechange
Sheets("temp").Range("l2") = ""
End Sub

s'il y a plus simple merci de me le dire

Bonjour

cisco38 a écrit :

s'il y a plus simple merci de me le dire

Juste en modifiant l'ordre d'écriture dans les contrôles

Modifies la fin de la procédure Private Sub ListBox1_Click()

With Sheets("Inventaire Planches")
  Set Cel = Sheets("Inventaire Planches").Columns("E").Find(what:=Me.TextBox4, LookIn:=xlValues, lookat:=xlWhole)
  'MsgBox Cel.Row
  Me.TextBox6.Text = .Range("g" & (Cel.Row)).Value
 'Me.ComboBox1.Value = .Range("h" & (Cel.Row)).Value       ' Ligne à déplacer
 Me.TextBox8.Value = .Range("i" & (Cel.Row)).Value
  Me.TextBox9.Value = .Range("j" & (Cel.Row)).Value
Me.ComboBox1.Value = .Range("h" & (Cel.Row)).Value
End With

End Sub

mille excuse je n'avais pas vu que ta proposition est la meilleur