Problème avec contrôle toupie

Bonsoir à tous,

Voilà, J'ai un soucis avec un SpinButton (dans le UserForm10) qui fonctionne bien dans le tuto que je suis et pas dans mon classeur...

Pourtant, je ne pense pas avoir fais d'erreur dans le code...

Avez-vous une idée pour que ça fonctionne...?

Merci de votre aide.

Mon fichier joint :

Bonjour,

Ton code est : ListBox1.ListIndex = ListIndex + 1 ouuiiinnnn, mais ListIndex +1 de quoi ????

Ceci est meilleur : ListBox1.ListIndex = ListBox1.ListIndex + 1

Et idem pour le -1

ric

Rebonjour,

Un pas-à-pas (F8) donne la valeur des variables au fur et à mesure de l'avancement ... nous permet de détecter rapidement yoù ça cloche.

ric

Rerebonjour,

N'étant pas un pro de la photo, j'écrirais tes deux macros ainsi ...

Private Sub SpinButton1_SpinDown()

If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
ListBox1.ListIndex = ListBox1.ListIndex + 1
End Sub

Private Sub SpinButton1_SpinUp()

If ListBox1.ListIndex = 0 Then Exit Sub
ListBox1.ListIndex = ListBox1.ListIndex - 1
End Sub

ric

Bonjour et merci ric, ric, et ric lol

C'est la 1ère fois que j'utilise les toupies, et je n'ai pas trouvé de tutos qui traite du déplacement du curseur dans une ListBox...

ton intervention est très efficace comme d'habitude...

Merci encore pour ta précieuse aide...

Bonjour

a voir sans Resume Next

Private Sub SpinButton1_SpinDown()
'On Error Resume Next
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
    With ListBox1
       .ListIndex = .ListIndex + 1
    End With
End Sub

Private Sub SpinButton1_SpinUp()
'On Error Resume Next
If ListBox1.ListIndex = 0 Then Exit Sub
    With ListBox1
       .ListIndex = .ListIndex - 1
    End With
End Sub

A+

Maurice

Merci archer,

Cette solution fonctionne parfaitement également...

Mais pourquoi ce "On error Resume Next" qui à priori est sensé gérer les erreur en provoque t-il une...?

Si tu as l'explication...

Merci encore pour ton aide

Bonjour,

Est-ce que ceci peut aider ?

https://docs.microsoft.com/fr-ca/dotnet/visual-basic/language-reference/statements/on-error-statement

ric

Merci ric,

J'ai regardé, mais cela me paraît complexe...

Je le garde en réserve, pour y revenir plus tard à tête reposée.

Merci encore.