Ligne précédente

Bonjour,

J'aimerais placer deux boutons pour permettre le déplacement dans ma feuille excel.

mon code fonctionne mais je n'ai pas confiance.

Private Sub btn_Précédent_Click()

    Ligne = Me.cb_no_transaction.ListIndex + 2
    'MsgBox "Ligne : " & Ligne
    Ligne = Ligne - 1
    If Ligne > 2 Then

    With Worksheets("Transaction")
        cb_no_transaction = Cells(Ligne, "A")
        cb_type = Cells(Ligne, "D")
        'cb_etat = Ws.Cells(Ligne, "E")
        cb_fac_recu = Ws.Cells(Ligne, "R")
    end with  

End Sub

Bonsoir,

Tel quel ça m'étonnerait ! Pas très beau non plus...

Mais sans fichier (qui n'est pas un oubli, tu refuses d'en mettre), je passe...

Bonsoir.

Pourquoi ce bout de code ne suffit pas ?

Relis-le ! Si on peut en supprimer une erreur flagrante et une bizarrerie, pour lever les autres ambiguïtés de l'écriture, il faut vérifier sur pièces !

Bon, ce n'est pas beau mais ça fonctionne.

Avec une End If manquant, ça m'étonnerait !

tu as raison mais c'est déjà corrigé.

Je me dépanne actuellement avec Excel et toutes les misères que je rencontre mais a moyen terme, je passe a Apex donc plus besoin de Excel.