Private Sub SpinButton2_Change()
Dim I As Long
I = Me.SpinButton2.Value
If I < 2 Then Exit Sub
With Feuil1
'T_Nom = .Cells(I, 1) ' une listbox qui marche, le contenu de la celule(I,1) s'affiche dans la liste box
Code_Piece = .Cells(I, 2) ' je suis entrain de tester cette listbosx, pour cela j'ai mis tout en commentaire mais en vain ! je ne sais pas pourquoi !
'ListBox2 = .Cells(I, 9) 'meme chose pour le reste '
'ListBox3 = .Cells(I, 6)
'ListBox4 = .Cells(I, 8)
'ListBox5 = .Cells(I, 4)
'ListBox6 = .Cells(I, 5)
'ComboBox1 = .Cells(I, 10)
'ComboBox4 = .Cells(I, 11)
'ComboBox5 = .Cells(I, 12)
'ComboBox6 = .Cells(I, 13)
'ComboBox7 = .Cells(I, 14)
End With
End Sub