XL 2013 cellule suivante avec affichage user-form

[azerty129]

Bonjour,

j'ai besoin d'aide :
Je voudrais quand je lance mon user forme:
Que la cellule N2 s'affiche et que quand je clique sur suivant dans l'userforme la cellule d'en dessous s'affiche etc,...
Merci d'avance de votre aide
cordialement

 

[sylvanu]

Bonjour Azerty,
Un essai en PJ avec pour le lancement de l'userform :

Public Ligne%
Sub lance()
If Ligne = 0 Then Ligne = 2 ' init Ligne au départ
UserForm1.TextBox1 = Format(Range("N2"), "dddd dd mmm")
Ligne = Ligne + 1
UserForm1.Show
End Sub

Et pour le bouton Suivant de l'userform :

Private Sub CommandButton1_Click()
    UserForm1.TextBox1 = Format(Cells(Ligne, "N"), "dddd dd mmm")
    Ligne = Ligne + 1
End Sub

 

[azerty129]

Merci beaucoup pour le retour

 

[azerty129]

Par contre quand je quitte et reviens sur mon userform il ne revient pas au début de la cellule

 

[sylvanu]

Exact, je pensais qu'il fallait continuer. Dans ce cas c'est encore plus simple :

Public Ligne%
Sub lance()
Ligne = 2
UserForm1.TextBox1 = Format(Range("N2"), "dddd dd mmm")
Ligne = Ligne + 1
UserForm1.Show
End Sub

 

[Jacky67]

Bonjour,

j'ai besoin d'aide :
Je voudrais quand je lance mon user forme:
Que la cellule N2 s'affiche et que quand je clique sur suivant dans l'userforme la cellule d'en dessous s'affiche etc,...
Merci d'avance de votre aide
cordialement

Bonjour à tous
Autre façon avec mouvement perpétuel

Private Sub CommandButton1_Click()
    If IsDate(Cells(Application.Match(CLng(CDate(TextBox1.Value)), [n:n], 0) + 1, "n")) Then
        TextBox1 = Cells(Application.Match(CLng(CDate(TextBox1.Value)), [n:n], 0) + 1, "n")
    Else
        TextBox1 = [n2] 'retour au debut
    End If
End Sub

Private Sub UserForm_Activate()
    TextBox1 = [n2]
End Sub

 

[azerty129]

Merci beaucoup de vos réponse. ça m'aide beaucoup; merci