Le fichier que j'ai joins ést un bout de l'application complète, j'ai donc essayé de l'appliquer à mon module complet et ton code ci-dessous ne fonctionne pas comme il faut.
Ma question, y a t-il un autre code ailleurs ou c'est uniquement avec le code ci-dessous ?
Private Sub CB_Compte_Debit_1_Change()
Dim Page As Integer
If Me.CB_Compte_Debit_1.ListIndex = -1 Then Exit Sub
If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1) <> "" Then
Page = Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1)
Me.MultiPage1.Value = Page
End If
End Sub