Private Sub CommandButton4_Click() 'Bouton "VALIDATION FACTURES IMPAYEES"
Dim cfact
'Je recherche la dernière ligne de la colonne "A" (NomClient)
Lig = CLng(NomClient.List(NomClient.ListIndex, (NomClient.ColumnCount - 1)))
'Je Selectionne la feuille du classeur consernée
With Sheets("Feuil1")
'Pour le Nom des clients
If NomClient.Value = "" Then Exit Sub
[COLOR="RoyalBlue"][B]' Recherche la colonne correspondante au n° de facture
Set cfact = .Range(Lig & ":" & Lig).Find(NFacture1, LookIn:=xlValues, lookat:=xlWhole)
cfact = cfact.Column[/B][/COLOR]
'Je rentre les données dans le tableau
'Pour les N° de Chèques où de virement
[COLOR="Red"].Cells(Lig, cfact + 9)[/COLOR].Value = NCheque.Value
[COLOR="Red"].Cells(Lig, cfact + 10)[/COLOR].Value = NVirement.Value
'Pour le Montant des Chéques où de virement
If Montant.Value <> "" Then .Cells(Lig, cfact + 8).Value = CCur(Montant.Value)
'Je mets au format les TextBox
Montant.Value = Format(Montant, "#,##0.00 €")
'Pour la date des Chéques où de virement
[COLOR="Red"].Cells(Lig, cfact + 11)[/COLOR].Value = Date1.Value
'Pour la date de Saisie
[COLOR="Red"].Cells(Lig, cfact + 12)[/COLOR].Value = DateSaisie.Value
'Pour la Banque
[COLOR="Red"].Cells(Lig, cfact + 13)[/COLOR].Value = Banque.Value
'Pour le N° de bordereau
[COLOR="Red"].Cells(Lig, cfact + 14)[/COLOR].Value = Nbordereau.Value
'Je quitte le feuille sélectionnée
End With
...
...