Userform - bouton ligne suivante

Bonjour à tous,

Je travaille actuellement sur un User form qui me sert à afficher mes écritures et leurs détails. J'ai créé un bouton suivant pour passer les lignes directement dans l'UF. Cependant j'aimerais qu'il ne prenne pas en compte les lignes masquées.

Je vous montre le code qui me sert à défiler mais qui affiche lignes affichées et masqués.

Private Sub Bouton_Suivant_Click()

Call Ecrire_Ecritures

If MaLigneEcriture + 1 > Range("Ecritures").End(xlDown).Row Then
    Réponse = MsgBox("Vous êtes en fin de liste", vbOKOnly, "Modification de ligne")
    If Réponse Then Exit Sub

End If

MaLigneEcriture = MaLigneEcriture + 1

Call Lire_Ecritures

End Sub

Donc si vous avez une petite idée pour m'aiguiller, n'hésitez pas . J'ai essayé prendre des macros qui le font déjà mais sont toutes incompatible avec mon UF qui requiert "MaLigneEcriture" as "Integer"

Merci d'avance de votre aide

Tham

bonjour,

une proposition

Private Sub Bouton_Suivant_Click()
' on passe outre les lignes cachées
    While Rows(MaLigneEcriture).Hidden = True
        MaLigneEcriture = MaLigneEcriture + 1
    Wend

    Call Ecrire_Ecritures

    If MaLigneEcriture + 1 > Range("Ecritures").End(xlDown).Row Then
        Réponse = MsgBox("Vous êtes en fin de liste", vbOKOnly, "Modification de ligne")
        If Réponse Then Exit Sub

    End If

    MaLigneEcriture = MaLigneEcriture + 1

    Call Lire_Ecritures

End Sub

Bonjour,

Merci de ta proposition mais malheureusement cela ne fonctionne pas. La macro ignore la ligne masquée mais modifie la ligne suivante avec les données de la ligne masquée.

Je suis en train de chercher si ma macro "Ecrire_Ecritures" peut pas être modifiée en fonction

Merci de ton aide