Option Explicit
Dim Lastrow As Long, Currentrow As Long
Sub Userform_initialize()
Lastrow = Sheets("Bd").Range("A" & Columns.Count).End(xlUp).Row
Currentrow = ActiveCell.Row
TextBox1 = Sheets("Bd").Range("B" & ActiveCell.Row)
End Sub
Private Sub CommandButton1_Click()
If Currentrow < 2 Then
MsgBox "on est au sommet !", 16, "C'est fini..."
Else
Currentrow = Currentrow - 1
TextBox1 = Sheets("Bd").Range("B" & Currentrow)
End If
End Sub
Private Sub CommandButton2_Click()
If Currentrow > Lastrow - 1 Then
MsgBox "on est au plus bas !", 16, "C'est fini..."
Else
Currentrow = Currentrow + 1
TextBox1 = Sheets("Bd").Range("B" & Currentrow)
End If
End Sub