UserForm bouton precedant - suivant

Bonjour,

Je me lance dans l'apprentissage du VBA !
Je n'arrive pas à comprendre pkoi la code ne fait pas ce que je tente de faire...

Lorsque je double click sur mon tableau contenant mes données, le UserForm s'ouvre, dans mon UserForm j'ai un bouton de déplacement 'Précédent"
Lorsque j'appuie dessus, mon info (ensemble des textbox) change correctement.... une seule fois,
Évidemment je souhaites reculer à chaque pression sur le bouton "Précédent"
Aussi, le focus ne se déplace pas dans mon tableau, la sélection "NumLigne' devrait reculer aussi à chaque click sur le bouton précédent !

Private Sub BT_Precedant_Click()
    Dim NumLigne As Long
    NumLigne = Range("NumeroLigne") - 1

    If NumLigne < 2 Then
        MsgBox "Premier enregistrement atteint"
    Else
        Me.CB_Nodossier = Cells(NumLigne, 1)
        Me.TB_NombreNote = Cells(NumLigne, 2)
        Me.TB_DateRequete = Format(Cells(NumLigne, 3), "dd mmmm yyyy")
        Me.TB_Demandeur = Cells(NumLigne, 4)
        Me.TB_Titre = Cells(NumLigne, 5)
        Me.TB_Telephone = Cells(NumLigne, 6)
        Me.TB_Poste = Cells(NumLigne, 7)
        Me.TB_Courriel = Cells(NumLigne, 8)
        Me.CB_DateDu = Format(Cells(NumLigne, 9), "dd mmmm yyyy")
        Me.TB_Requete = Cells(NumLigne, 10)
        Me.TB_Division = Cells(NumLigne, 11)
        Me.TB_Emplacement = Cells(NumLigne, 12)
        Me.CB_Type = Cells(NumLigne, 13)
        Me.CB_Impact = Cells(NumLigne, 14)
        Me.CB_ChargeProjet = Cells(NumLigne, 15)
        Me.TB_Priorite = Cells(NumLigne, 16)
        Me.TB_Description = Cells(NumLigne, 17)
        Me.TB_JourAE = Cells(NumLigne, 18)
        Me.CB_Statut = Cells(NumLigne, 19)
        Me.TB_Temps = Format(Cells(NumLigne, 20), "h\Hmm")
        Me.TB_Statut = Cells(NumLigne, 19)
    End If 
End Sub

Quelqu'un pourrais m'indiquer ou est mon erreur ?

Tu charges mal tes combobox. La syntaxe est :

Me.CB_Nodossier.additem Cells(NumLigne, 1)

J'ai trouvé ma solution.

En chargeant tes combo comme tu le fais ?

Bonjour, je dirais que Numéro de ligne semble être une cellule excel qui n'est pas mise à jour à la fin du code vba ?

 NumLigne = Range("NumeroLigne") - 1

'Donc à la fin

Range("NumeroLigne")=NumLigne

Bonjour Optimix , je ne penses pas qu'il chargeait ses "combos" elles sont déjà ouvertes ; il se content d'un bouton suivant ou précédent pour passer en revue les

enregistrements de sa feuille.

Il aurait pu tout aussi bien utiliser le Listindex des combos pour avancer ou reculer.