Discussion :

[malouxa]

Bonjour
Peut être pouvez vous m'aider à résoudre un petit problème avec l'utilisation d'un spinButton que j'ai placé dans une feuille Excel. L'idée c'est que quand je click d'un côté ou de l'autre, ça appelle des valeurs que je souhaite tracer.

La partie tracée va bien, c'est à la rencontre du 1er Range que ça donne une erreur 1004.
Pourtant quand ce code est utilisé sans le spinButton il fonctionne correctement.

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
23
24
25
26
27
28
29
30
31
32
 
Dim LectureTabShown As String, LectureTabFirstS As String, LectureTabShown_Next As String, LectureTabName_Next As String
Dim liShown As Single
Dim oGraph As Excel.ChartObject, oSh As Excel.Worksheet
 
Private Sub ISIN_PLANCHESpinButton_SpinUp() 'vers la droite (montée dans la liste des BOARD)
Application.ScreenUpdating = False
 
LectureTabShown = Worksheets("PLANCHE").Cells(1, 2).Value
For liShown = 8 + 1 To 47 Step 1
Select Case LectureTabShown
    Case Is = Worksheets("BOARD").Cells(liShown, 1).Value
    LectureTabShown_Next = Worksheets("BOARD").Cells(liShown - 1, 1).Value
    LectureTabName_Next = Worksheets("BOARD").Cells(liShown - 1, 2).Value
 
'**********************************
'*** tracé de la planche suivante *
'**********************************
'copie des colonnes de l'ensemble
Worksheets(LectureTabShown_Next & "C").Activate
Range("L:L,O:R,T:T,V:V,Z:Z,AB:AB").Select
Selection.Copy
 
Sheets("INPUT").Select
Columns("A:I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'SUITE POUR LE TRACÉ QUI VA BIEN
 
End Select
Next liShown
End Sub

[malouxa]

Bonjour
Peut être pouvez vous m'expliquer où définir "value" = liShownU du bouton SPINBUTTON ?

Par exemple j'ai ce code dans "feuil1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'initialisation
MonSpinButton.Min = 1
MonSpinButton.Max = 24
MonSpinButton.Value = 12
 
 
Dim LectureTabShown_Next As String, LectureTabName_Next As String
 
Private Sub MonSpinButton_Change()
LectureTabShown_Next = Worksheets("BOARD").Cells(liShownU, 1).Value
LectureTabName_Next = Worksheets("BOARD").Cells(liShownU, 2).Value
 
End Sub

Je ne sais pas où mettre

Code :

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

1
2
3
MonSpinButton.Min = 1
MonSpinButton.Max = 24
MonSpinButton.Value = 12

pour qu'il soit pris en compte avant de clicker sur les flèches du spinbutton et que "Value" = "value" ±1