Discussion :

[NEC14]

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é

[Jean-Philippe André]

salut,

DVP FTW

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

[NEC14]

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.

[Jean-Philippe André]

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

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 ?

[Philippe Tulliez]

Bonjour,

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 :

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
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

[NEC14]

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

[Philippe Tulliez]

Bonjour,

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.

[NEC14]

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é

[Jean-Philippe André]

DVP FTW

Developpez.com For The Win