Dim der As Range, début As Range
Private Sub B_annuler_Click()
Unload Me
End Sub
Private Sub B_ok_Click()
der.Offset(0, 1).Value = CB_mode.Value
der.Offset(0, 2).Value = TB_trans.Value
der.Offset(0, 3).Value = TB_result.Value
der.Select
End Sub
Private Sub B_précédent_Click()
If ActiveCell.Address(0, 0) = "A12" Then
MsgBox "Vous êtes au début de la liste"
Exit Sub
End If
ActiveCell.Offset(-1, 0).Select
CB_mode.Value = ActiveCell.Offset(0, 1).Value
TB_trans.Value = ActiveCell.Offset(0, 2).Value
TB_result.Value = ActiveCell.Offset(0, 2).Value
End Sub
Private Sub B_précédent_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call B_précédent_Click
End Sub
Private Sub B_suivant_Click()
If ActiveCell.Address(0, 0) = der.Offset(-1, 0).Address(0, 0) Then
MsgBox "Vous êtes à la fin de la liste"
Exit Sub
End If
ActiveCell.Offset(1, 0).Select
CB_mode.Value = ActiveCell.Offset(0, 1).Value
TB_trans.Value = ActiveCell.Offset(0, 2).Value
TB_result.Value = ActiveCell.Offset(0, 2).Value
End Sub
Private Sub B_suivant_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call B_suivant_Click
End Sub
Private Sub UserForm_Initialize()
Set début = [A12]
Set der = [A65536].End(xlUp).Offset(1, 0)
début.Select
CB_mode.AddItem "Fax"
CB_mode.AddItem "Téléphone"
CB_mode.AddItem "mail"
End Sub