Code Suivant / Precedent

Dans : Private Sub ComboBox1_Change ce n'est pas ...ListIndex + 1, 1...mais
Worksheets("Feuil1").Cells(ComboBox1.ListIndex + 3, 1).Select

Dans : Private Sub CmdPremier_Click()
Ajoute cela pour la première sélection
Worksheets("Feuil1").Cells(3, 1).Select

    ComboBox1.ListIndex = 0
    Worksheets("Feuil1").Cells(3, 1).Select

Nb = Me.ComboBox1.ListCount - 1
et non ...ListCount + 1

Worksheets(Feuil1.Name).Range("TitreNum").Offset(1, 0).Select

If Me.ComboBox1.ListIndex <> Me.ComboBox1.ListCount - 1 Then

End If

Dim t As Variant, y As Byte
Private Sub s1_SpinDown()
If ComboBox1.ListIndex > 0 Then ComboBox1.ListIndex = ComboBox1.ListIndex - 1
End Sub
Private Sub s1_SpinUp()
If ComboBox1.ListIndex < ComboBox1.ListCount - 1 Then ComboBox1.ListIndex = ComboBox1.ListIndex + 1
End Sub
Private Sub UserForm_Initialize()
t = Range("b4:t" & Cells(Rows.Count, 2).End(xlUp).Row): ComboBox1.List = t
ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Click()
For y = 1 To 10: Controls("T" & y) = ComboBox1.List(ComboBox1.ListIndex, y - 1): Next y
Cells(ComboBox1.ListIndex + 4, 2).Select
End Sub
Private Sub CmdPremier_Click()
ComboBox1.ListIndex = 0
End Sub
Private Sub CmdDernier_Click()
ComboBox1.ListIndex = ComboBox1.ListCount - 1
End Sub