Discussion :

[papy_polo67]

Re bonjour,
Faute d'avoir une réponse à mo précédent post j'en refait un autre ici mais concernant une autre erreur de code
Je veux mettre deux boutons, précédent et suivant pour mon tableau (en Pj)

Seulement j'ai pourtant tout essayé je ne trouve pas mon erreur
Qui saurait me donner les informations nécessaire pour la comprendre?
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CmdSuivant_Click()                    'Bouton Suivant
Dl = Sheets("Reines").Range("A456541").End(xlUp).Row
currentRow = CurentRow + 1                     'Dl = dernière ligne
 
    If currentRow = currentRow + 1 Then
        currentRow = Dl                                 'Si la dernière ligne n'a plus de données
        MsgBox "Vous êtes arrivé au bout de la liste"
    End If
        TextBox1.Text = Cells(currentRow, 1).Value
        TextBox2.Text = Cells(currentRow, 2).Value
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CndPrécédent_Click()                  'Bouton Précédent
    currentRow = currentRow - 1
    If currentRow > 1 Then
        TextBox1.Text = Cells(currentRow, 1).Value
        TextBox2.Text = Cells(currentRow, 2).Value
    ElseIf currentRow = 1 Then
    currentRow = currentRow + 1
    MsgBox "Vous êtes au premier enregistrement"
    End If
 
End Sub