Utilisation d'un SpinButton

Bonjour,

J'utilise pour la première fois une SpinButton dans un UserForm, ceci afin de faire défilé des fiches dans un formulaire.
Je ne sais donc absulument pas comment on peut les utiliser.
Avez-vous connaissance d'un site où je pourrai puiser des idées ?
Merci par avance
René

salut,

DVP FTW :D

http://silkyroad.developpez.com/VBA/...serForm/#LII-I

Merci Jean-Philippe. Je viens de m'apercevoir que ce n'est pas vraiment que je veux faire et donc j'en conclu que le SpinButton n'est pas adapté à mon besoin.
Je cherche une manière de faire défiler des noms dans un UserForm à l'aide d'un bouton aller/retour.
Je clique sur un bouton pour afficher la fiche suivante et un autre pour la fiche précédente.

C'est en fait ce qu'on a dans Access par défaut sur des formulaires continus :mrgreen:

Mais le Spinbutton peut bien être utile.

En récupérant le nombre total d'éléments initiaux, tu fixes la valeur max. Reste ensuite la récupération de la valeur du spinbutton pour aller chercher les informations correspondantes, non ?

Bonjour,

Citation:

---

Merci Jean-Philippe. Je viens de m'apercevoir que ce n'est pas vraiment que je veux faire et donc j'en conclu que le SpinButton n'est pas adapté à mon besoin.
Je cherche une manière de faire défiler des noms dans un UserForm à l'aide d'un bouton aller/retour.
Je clique sur un bouton pour afficher la fiche suivante et un autre pour la fiche précédente.

---

Tu as du mal lire ou je n'ai rien compris à ce que tu cherches.
Voici un exemple très simple qui fait défiler la cellule de la colonne B en partant de la ligne 2 vers la dernière ligne de la plage
Le contrôle TextBox1 contient la valeur de la ligne x (déterminé par la propriété Value du contrôle SpinButton1.
shtDb est le CodeName de la feuille contenant la plage de données commençant en A1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Dim rng As Range Private Sub SpinButton1_Change() With Me.SpinButton1 TextBox1 = rng.Cells(.Value, 2) End With End Sub Private Sub UserForm_Initialize() Set rng = shtDb.Range("A1").CurrentRegion ' Plage des données With Me .TextBox1 = rng.Cells(2, 2) With .SpinButton1 .Min = 2 .Max = rng.Rows.Count End With End With End Sub

---

Tu peux obtenir la même chose avec un contrôle ScrollBar

Effectivement, je n'avais rien compris. Merci pour vos explications, c'est plus clair maintenant.
Je pensais que le SpinButton ne servait qu'à faire évoluer une valeur numérique, par exemple 1+1.
Merci beaucoup

Bonjour,

Citation:

---

Je pensais que le SpinButton ne servait qu'à faire évoluer une valeur numérique, par exemple 1+1.

---

Mais c'est exactement cela.
La propriété Value du contrôle SpinButton s'incrémente ou se décrémente de 1 (si la propriété SmallChange est à 1, valeur par défaut) suivant la partie du contrôle où l'on clique.
Les propriétés Min et Max déterminant la borne inférieure et supérieure.
Il suffit alors d'attribuer cette propriété Value dans le cas présent à un numéro de ligne de la plage traitée.

Bonjour Philippe,

Je n'ai pas tout faux alors. Merci pour ces explications.

Au fait ça veut dire quoi ? DVP FTW (message de jpcheck)

Bon je vais essayer de me débrouiller et faire quelque chose de correct, sinon je sais où trouver de l'aide.

Encore merci à tous les contributeurs

René

Citation:

---

Envoyé par NEC14

DVP FTW

---

Developpez.com For The Win :aie: