Dim tableau As Variant
'Détermine la taille du tableau
tableau = Range("A2:Z" & Range("A65536").End(xlUp).Row)
(Déroulement de la macro de l'userform.....)
Dim Ctrl As Control
Dim i As Integer
Dim j As Integer
Dim typecontrole As String
Dim n As Integer
n = 1
'Pour chaque ligne du tableau
For i = 1 To UBound(tableau)
'Si la cellule colonne "A" et ligne "i" = titre série sélectionné listbox1
If tableau(i, 1) = ListBox1 And tableau(i, 25) = ListBox2 Then
'Enregistrement des Textbox et combobox
For j = 2 To 24
n = n + 1
If j = 3 Or j = 4 Or j = 14 Or j = 19 Or j = 24 Then
typecontrole = "combobox"
Else
typecontrole = "TextBox"
End If
tableau(i, n) = UserForm1(typecontrole & j)
Next j
If nom <> "" Then 'si nouvelle image chargée
'Enregistre le nom de l'image
tableau(i, 26) = ActiveWorkbook.Path & "\Images\" & nom
End If
'Enlève le signe € du prix
tableau(i, 12) = Replace(tableau(i, 12), " €", "")
'Enlève les espaces à gauche du titre du volume
tableau(i, 2) = LTrim(tableau(i, 2))
End If
Next i
'Ecrit les variables de "tableau" dans le cellules
[color=red][b]Range("A2:Z" & Range("A65536").End(xlUp).Row) = tableau[/b][/color]