Bonjour GMB,
Merci de m'avoir répondu. J'avais perdu tout espoir.
Je suis actuellement entrain de travailler dessus. Je suis presque' arrivé .
C'est dans ce code que j'ai l'erreur
'Sheets("BaseFiche").Select
'Dim derln As Integer
' derln = Range("E" & Rows.Count).End(xlUp).Row
' With ListBox1
' .Height = ((derln - 1) * 125 + 110) / 9
' On Error Resume Next
' .List = Range("E4:I" & derln).Value
' End With
' For J = 0 To Fact.ListBox1.ListCount - 1
' For I = 1 To 7
' On Error Resume Next
' ListBox1.Column(I, J) = Format(ListBox1.Column(I, J), "0.00")
' Next I
' Next J
Je voudrai surtout avoir une ListBox "autosize ce code le permet
Ma combobox "CBBase me pose un souci pour retrouver dans ma "BaseFiche le N° de ma facture avec bien entendu ses lignes.
>En ce moment je suis là.
J'ai refait entièrement et ca commence à fonctionner.
@+
Merci
Amicalement
Noel