Passer d un ComboBox a une feuille Excel

Ok mon problème est que je veut faire sa sur un ComboBox qui ne marche pas y a une erreur .
Es que tu pourrai me dire ou est mon erreur .

Private Sub ComboBox13_Change()

Dim trouve, trouve1 As Range
Dim i, j, k, premlig, derlig, premcol, dercol As Integer
ComboBox5.Clear
With Sheets(ComboBox5.Value).Columns(3)
Set trouve = .Cells.Find(CDate(TextBox1.Value))
Set trouve1 = .Cells.Find(CDate(TextBox2.Value))
If trouve Is Nothing Or trouve1 Is Nothing Then
MsgBox "Erreur de dates"
Exit Sub
Else
premlig = trouve.Row
derlig = trouve1.Row
End If
End With
With Sheets(ComboBox5.Value)
dercol = .Range("IV13").End(xlToLeft).Column
premcol = .Cells(13, dercol).End(xlToLeft).Column
For j = premcol To dercol
If .Cells(13, j).Value = ComboBox13.Value Then
k = Application.WorksheetFunction.Min(Range(.Cells(premlig, j), .Cells(derlig, j)))
For i = 1 To k
ComboBox5.AddItem i
Next i
End If
Next j
Sheets(7).[A2] = ComboBox13
End With
Set trouve = Nothing
Set trouve1 = Nothing
End Sub

Salut Mike

doublon sous un autre pseudo avec
https://forums.commentcamarche.net/forum/affich-18082375-probleme-combobox

Salut Michel_m,

Merci pour l'info j'ai demandé le retrait de l'autre discussion.
Je n'ai pas le temps de m'étendre je rentre en cours

Cordialement

Mike-31

Ta formule marche mais j aimerai savoir ce qu il faut ajouté pour que toutes les valeurs ce mette les unes sous les autres

Re,

Si tu as plusieurs contrôle sur ton userform, utilise la syntaxe ComboBox1_Exit, de sorte que le contenu saisi dans le combobox s'incrive à la suite dans ta colonne A (dans l'exemple) lorsque tu quittes le combobox

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A65536").End(xlUp).Offset(1, 0) = ComboBox1
End Sub

Moi sa ne marche pas sur mes comboBox la 1er fois sa ce mes sur la 1er ligne et la 2ème fois que je le fait sa renplace la 1 er ligne

si ton fichier ne contient pas de données confidentielles met le à notre disposition avec ce lien

https://www.cjoint.com/

Voici le lien : http://www.cijoint.fr/cjlink.php?file=cj201006/cijbUGSCpV.xls