Discussion :

[Pierre67]

Bonjour

je souhaite créer un userform afin d'y faire défiler les données d'une feuille de calcul à l'aide d'un spinbutton!
Est-ce possible ?

[mercatog]

Un exemple, un TextBox alimenté par la colonne A
Dans un module standard, déclare une variable globale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Lig as Long

et dans le module de l'usf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
Lig = 1
Me.TextBox1 = Range("A" & Lig)
Me.TextBox2 = Lig
End Sub
 
Private Sub SpinButton1_SpinUp()
Lig = Lig + 1
End Sub
 
Private Sub SpinButton1_SpinDown()
If Lig > 1 Then Lig = Lig - 1
End Sub
 
Private Sub SpinButton1_Change()
If Lig >= 1 Then Me.TextBox1 = Range("A" & Lig)
Me.TextBox2 = Lig
End Sub

[Pierre67]

Bonjour et merci
je direct le mettre en résolu, je suis sur que cela fonctionne
@+

je crois qu'il fait intervertir le up et down au niveau de l'incrémentation

[mercatog]

Edit:
C'est symétrique, ça dépends de la vision des choses! bon, pour le code précédent, je ferai plutôt comme ceci
dans module public

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Lig As Long
Public LigMax As Long

et dans module de l'usf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Afficher(ByVal i As Long)
Me.TextBox1 = Range("A" & i)
End Sub
 
Private Sub UserForm_Initialize()
Lig = 1
LigMax = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row
Afficher 1
End Sub
 
Private Sub SpinButton1_SpinUp()
Lig = IIf(Lig >= LigMax, 1, Lig + 1)
Afficher Lig
End Sub
 
Private Sub SpinButton1_SpinDown()
Lig = IIf(Lig = 1, LigMax, Lig - 1)
Afficher Lig
End Sub

de cette façon, l'incrémentation est cyclique