Discussion :

[jcaspar]

Bonjour à tous !


Je souhaiterais faire évoluer la valeur d'une textbox en utilisant un spinbutton
en theorie cela devrait fonctionner ... mais je coince sur la syntaxe pour cela je pensais
utiliser une boucle qui s'incrémente de 1 pour passer par exemple de la cellule A1 à la Cellule A2 et ainsi de suite et vis versa.
Merci beaucoup pour vos conseils

Jean-Marc

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub SpinButton1_Change()
'Range("G15").Value = SpinButton1.Value
 
Dim I As Integer
 
 
For I = 2 To 10 Step 1
TextBox2.Value = Ws.Range("A"& I)
   Next

[HopPopPop]

Bonjour à tous,
A essayer

Code :

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

TextBox2 = Ws.Range("A" & SpinButton1.Value)

Ne mettre que cette ligne dans la procédure Change du SpinButton
Prendre soin de mettre la propriété "Mini" du Control SpinButton à 1.