Tu es un peu mon fil rouge aujourd’hui
Retire la ligne que j'ai coloriée en vert s'il te plais.
Je ne sais pas trop à quoi elle sert puisque derrière c'est ta combobox qui mettra à jour la listbox, je pense que tu peux la faire sauter, une chose est sûr c'est çà qui fait planter le programme
ps-pas facile pour moi car tout le userform est noir
Private Sub UserForm_Initialize()
TextBoxtt = Format(Sheets("factures").Range("e43"), "#.#0")
TextBoxDte = Format(Date, "dddd-dd-mmmm-yyyy")
Dim TYP As Byte
FactMod.Height = 545
FactMod.Width = 442
Dim sp As String
sp = Application.PathSeparator
On Error Resume Next
Image1.Picture = LoadPicture(ThisWorkbook.Path & sp & "logo.jpg")
Image2.Picture = LoadPicture(ThisWorkbook.Path & sp & "ok.gif")
Image3.Picture = LoadPicture(ThisWorkbook.Path & sp & "Imprimer.jpg")
ImageQuitter.Picture = LoadPicture(ThisWorkbook.Path & sp & "quitter.jpg")
ok.Picture = LoadPicture(ThisWorkbook.Path & sp & "ok.gif")
On Error GoTo 0
ListBox2.RowSource = "Articles!a2:e10000"
ComboBoxcdeF.List = Sheets("Articles").Range("a2:a10000").Value
For I = 2 To Sheets("Articles").Range("A" & Rows.Count).End(xlUp).Row
ComboBoxcdeF.AddItem Cells(I, 1)
Next
ComboBoxNomPre.List = Sheets("Clients").Range("b2:b1000").Value
For x = 2 To Sheets("Clients").Range("b" & Rows.Count).End(xlUp).Row
ComboBoxNomPre.AddItem Cells(x, 1)
Next
TextBox1 = Sheets("Factures").Range("a57")