Discussion :

[lio62]

bondoir
j'ai ajouté un spinbuttondans un suerform mais il ne fonctionne pas là je suis complétement paumé. merci

je precise que mes combo sont liées

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
20
21
22
Private Sub spinbutton1_Click()
laprocedure SpinButton1.ListIndex
End Sub
Private Sub SpinButton1_Change()
Label1 = SpinButton1.Value
End Sub
 
Private Sub UserForm_Initialize()
Dim DernièreLigne As Integer, i As Integer
    Sheets("feuil1").Activate
    With SpinButton1
         .Min = 2
         .Max = 250
         .SmallChange = 1
    End With
    DernièreLigne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
 
    For i = 1 To 13
        InitCombo DernièreLigne, i
    Next
 
End Sub

[ouskel'n'or]

Que veux-tu faire avec ton SpinButton ?
A+

[lio62]

faire avancer les infos de la bases de données chronologiquement en fait lorque l'on clique sur le bouton on sélectionne la ligne du bas ou du haut selon le outon su lequel on clique par rapport a l'affichage qui est sur la combo

je ne sai pas si j'ai été plus clair

merci a+

[ouskel'n'or]

C'est bien ce que j'avais supposé mais il est où ton code qui fait ça ?
Pour que ça fonctionne, tu dois gérer un événement qui existe pour ton spinButton et SpinButton_Click n'existe pas. Mets ton code dans l'événement Change

Code :

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

1
2
3
4
Private Sub SpinButton1_Change()
laprocedure SpinButton1
Label1 = SpinButton1.Value
End Sub

A+

Edit
Ensuite, pourquoi fixes-tu sa valeur max à 250 ? Dernièreligne suffirait
Enfin, je travaillerais à l'envers, c'est à dire que je partirais de la DernièreLigne à 3. Ainsi, quand ta sélection serait la flêche du bas, tu descendrais dans ta feuille et inversement
Essaie de voir comment écrire ça

[ouskel'n'or]

Tu as un pb dans ta feuille de calcul. Tu as une "crotte" à la ligne 5871 qui entraîne dernièreligne = 5871. Supprime les lignes de la fin des données à la ligne 5900 (Sélection -> Supprimer) et enregistre ton fichier, la crotte disparaîtra et DernièreLigne sera exacte.
A+

[lio62]

OK j'essaye ca merci.