Rapport de message :*
 

Re: Navigation dans une base de données

Titre du sujet : Re: Navigation dans une base de données
par myDearFriend! le 10/08/2009 22:57:24

Bonsoir netweb2008 et bienvenue sur mDF XLpages.com,

Avant toute chose, merci de commencer par consulter CE LIEN en rapport avec CELUI-CI(j'ai d'ailleurs bien noté le nom de ta "société" dans les propriétés de ton fichier )

Ensuite, et pour te montrer que nous sommes de bonnes volontés sur les forums de discussions, tu trouveras ci-joint ton fichier modifié en fonction de ce que j'ai compris de ta question.

J'ai ajouté le code suivant :

DANS LE MODULE DE CODE DU USERFORM
Private Sub NavPremier_Click()
    NavTab 2
End Sub

Private Sub NavDernier_Click()
    NavTab LignMax
End Sub

Private Sub NavRapide_SpinDown()
Dim N As Long
    N = Application.Max(2, ActiveCell.Row - 1)
    NavTab N
End Sub

Private Sub NavRapide_SpinUp()
Dim N As Long
    N = Application.Min(LignMax, ActiveCell.Row + 1)
    NavTab N
End Sub

DANS LE MODULE DE CODE STANDARD (Module1)
Sub NavTab(L As Long)
Dim C As Byte
    With Sheets("BASE")
        For C = 1 To 9
            UserForm3.Controls("TextBox" & C).Value = .Cells(L, C).Text
        Next C
        .Rows(L).Select
    End With
End Sub

Function LignMax() As Long
    With Sheets("BASE")
        LignMax = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
End Function

J'ai aussi interverti les noms des TextBox1 et TextBox10 dans le Userform.

Bonne continuation.

Cordialement,