Créer bouton précédent et suivant dans un userform
Bonjour à tous,
J'ai besoin de vos services
J'ouvre un petit formulaire qui me récupère les données d'un tableau(la dernière ligne) dans des textbox =>ok
Mais je voudrais rajouter 2 boutons "precedent" et "suivant" qui pourraient simplement me faire afficher les données precedents de mon tableau.
Si quelqu'un peut m'aider sur ce coup afin de progresser un peu.
D'avance, merci pour votre aide
Voici le code de mon formulaire:
Private Sub UserForm_Initialize()
Dim dl As Integer
dl = Sheets("TABLEAUTISTE").Range("A" & Rows.Count).End(xlUp).Row
TextBox1.Value = "Rapport du " & Range("B" & dl) & " Pause: " & Range("C" & dl)
TextBox2.Value = Range("E" & dl)
TextBox3.Value = Range("F" & dl)
TextBox4.Value = "Signé par " & Environ("username") & " Le " & Format(Now, "dd-mm-yyyy hh:mm")
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Bonjour Jérôme DD, le forum,
Un essai avec un spinbutton.....
La prochaine fois,
Cordialement,
Un grand merci pour votre aide.
Il me reste quand même une petite question.
Quand j'ouvre le formulaire, j'ai la dernière ligne écrite et c'est parfait.
Par contre, j'aimerais que quand je fais 'flèche précédente' il passe à l'avant dernier et ainsi de suite et non pas démarrer du 1er.
Donc exemple du fichier.
Il ouvre la ligne 9 et si je clique précédent , il indique la ligne 8, puis 7 et ainsi de suite....
D'avance merci pour l'aide
Bonjour,
je me permet de répondre en l'absence de XOR (car j'ai choisi !)
Il suffit de rajouter
SpinButton1.Value = dlà la fin du code d'initialisation du USF.
En effet, lors de l'initialisation, on affiche les données de la ligne dl, soit les données "9", mais le spinBoutonValue est quant à lui en position par défaut en l'absence de données, c'est à dire 1.
C'est pourquoi en faisant spin vers le haut, de 9 on passe à deux, car en mémoire il est à 1 !
@ bientôt
LouReeD
Un grand merci et surtout pour les explications qui vont avec la solution !!!
Merci bcp
Merci @ vous de vos remerciements et merci à xor pour le code de départ !
@ bientôt
LouReeD
Re,
Salut LouReeD,
Il suffit de rajouter
SpinButton1.Value = dl
à la fin du code d'initialisation du USF.
Effectivement, je n'y avais pas pensé, merci pour ton intervention,
Amitiés,
Avec le confinement, j'ai un peu plus de temps pour "trainer" sur le forum à défaut de la rue !
Alors j'en profite pour me mêler des affaires des autres !
@ bientôt
LouReeD