lien entre listBox et comBox

Bonjour
Et grand Bravo à vous pour vos conseils. Grace à vous j'ai constitue un fichier. Mon sousi qui je pense pour une rigolade. Dans le fichier, il y a une macro 'lignefin', le resultat que je voudrait faire avec le bonton 'N° FACTURE'.
Mais je n'arrive pas à mettre le n0 BA avec le mois choisi, c'est à dire la feuille.
Si quelqu'un a la solution je suis preneur
Je n'arrive pas à joindre mon fichier, comprend pas
Est ce qu'il y a une methode speciale, je selectionne je click sur[fichier] et apres je vois apres mon log et rien

Merci
Bobjazz

Cliquez pour agrandir...

Option Explicit


Private Feuille As Worksheet
Private Ligne As Integer

Private Sub ComboBox1_Change()
Dim TabBa As Variant

On Error GoTo Out
Set Feuille = Worksheets(CStr(Me.ComboBox1))

    With Feuille
        TabBa = .Range(.Range('A2'), .Range('A65536').End(xlUp))
    End With

Me.ComboBox2.List = TabBa

Exit Sub
Out:
    MsgBox 'La Feuille ' & Me.ComboBox1 & ' n'existe pas'
End Sub


Private Sub ComboBox2_Change()

Ligne = Me.ComboBox2.ListIndex + 2

MsgBox 'Le BA ' & Me.ComboBox1 & ' se trouve en ligne ' & Ligne & ' de la Feuille ' & Feuille.Name


End Sub

Cliquez pour agrandir...

Private Sub CmdOK_Click()
    Feuille.Range('L' & Ligne) = TextBox2
End Sub

Cliquez pour agrandir...

Private Sub CmdOK_Click()
    With Feuille
    .Range('B' & Ligne) = TextBox1
    .Range('L' & Ligne) = TextBox2
    End With
End Sub

Cliquez pour agrandir...

Option Explicit

Private Feuille As Worksheet
Private Ligne As Integer
Private Ini As Boolean

Private Sub UserForm_Initialize()
Dim WS As Worksheet
    For Each WS In Worksheets
&nbsp; &nbsp; &nbsp; &nbsp; If WS.Name <> 'Interface' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ComboBox1.AddItem WS.Name
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; Next

TextBox1 = Date
End Sub

Private Sub ComboBox1_Change()
Dim TabBa As Variant
If Ini = True Then Exit Sub

On Error GoTo Out
Set Feuille = Worksheets(CStr(Me.ComboBox1))

&nbsp; &nbsp; With Feuille
&nbsp; &nbsp; &nbsp; &nbsp; TabBa = .Range(.Range('A2'), .Range('A65536').End(xlUp))
&nbsp; &nbsp; End With
Me.ComboBox2.List = TabBa

Exit Sub
Out:
&nbsp; &nbsp; MsgBox 'La Feuille ' & Me.ComboBox1 & ' n'existe pas'
End Sub


Private Sub ComboBox2_Change()
Ligne = Me.ComboBox2.ListIndex + 2
End Sub

Private Sub CmdOK_Click()
&nbsp; &nbsp; With Feuille
&nbsp; &nbsp; .Range('B' & Ligne) = TextBox1
&nbsp; &nbsp; .Range('L' & Ligne) = TextBox2
&nbsp; &nbsp; End With
ReInitialisation
Ini = False
End Sub

Private Sub ReInitialisation()
Ini = True
With Me
.ComboBox1 = ''
.ComboBox2.Clear
.TextBox2 = ''
End With
End Sub

Private Sub CmdSortir_Click()
Unload UserForm2
End Sub

Cliquez pour agrandir...