Boutons de navigation

[Abdias_bly]

Bonjour à tous!!!
Je tiens à vous remercier tous pour vos efforts car grace à vos différentes interventions,j'avance dans la découverte de excel/VBA.
Ce matin je viens avec un petit souci sur les boutons de navigation d'une BD.Il y en a 4 à savoir Premier-Précedent-Suivant et Dernier .Pour ce qui est des boutons Premier-Précédent pas de pb.Je me déplace très bien avec le bouton Suivant mais je voudrais arrêter la navigation à la rencontre de la première cellule vide.
Quant au Bouton Dernier qu'il renvoie directement au dernier enrégistrement de la feuille. Voici le Code:

Sub NavPremier_Click()

KillProcess

Cells(4, 1).Activate

UserForm_Activate

End Sub

Sub NavPrécédent_Click()

KillProcess

If ActiveCell.Offset(-1, 0).Row - 1 < 3 Then

ActiveCell.Offset(0, 0).Activate

Else

ActiveCell.Offset(-1, 0).Activate

End If

UserForm_Activate


End Sub

Sub NavRapide_Spindown()

NavPrécédent_Click

End Sub

Sub NavSuivant_Click()

KillProcess

If ActiveCell.Offset(1, 0).Row - 1 < NbLignes + 1 Then

ActiveCell.Offset(0, 0).Activate

Else

ActiveCell.Offset(1, 0).Activate

End If

UserForm_Activate

End Sub

Sub NavRapide_Spinup()

NavSuivant_Click

End Sub

Sub NavDernier_Click()
Dim NbLignes As Integer
NbLinges = Sheets("Fiche Client").Range("F6")
KillProcess

Cells(NbLignes + 1, 1).Activate

UserForm_Activate


End Sub

PS:Le fichier original est lourd pour être joint.En F6 se trouve le nombre total de fiches enrégistrées.
Merci d'avance pour votre aide.

 

[Minick]

Re : Boutons de navigation

Salut,

Essaie ceci:

Sub NavPremier_Click()
    KillProcess
    
    Cells(4, 1).Activate
    
    UserForm_Activate
End Sub

Sub NavPrécédent_Click()
    KillProcess

    If ActiveCell.Row - 1 >= 4 Then
        ActiveCell.Offset(-1).Activate
    End If
    
    UserForm_Activate
End Sub

Sub NavRapide_Spindown()
    NavPrécédent_Click
End Sub

Sub NavSuivant_Click()
    KillProcess

    If ActiveCell.Row + 1 <= Range("A65536").End(xlUp).Row Then
        ActiveCell.Offset(1).Activate
    End If
    
    UserForm_Activate
End Sub

Sub NavRapide_Spinup()
    NavSuivant_Click
End Sub

Sub NavDernier_Click()
    KillProcess
    
    Range("A65536").End(xlUp).Activate

    UserForm_Activate
End Sub

 

[Abdias_bly]

Re : Boutons de navigation

Merci à toi Minick.Le code super génial!!!