[VBA-E] pb avec spinbutton

Version imprimable

Voir 40 message(s) de cette discussion en une page

bondoir
j'ai ajouté un spinbuttondans un suerform mais il ne fonctionne pas là je suis complétement paumé. merci

je precise que mes combo sont liées

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub spinbutton1_Click()
laprocedure SpinButton1.ListIndex
End Sub
Private Sub SpinButton1_Change()
Label1 = SpinButton1.Value
End Sub
 
Private Sub UserForm_Initialize()
Dim DernièreLigne As Integer, i As Integer
    Sheets("feuil1").Activate
    With SpinButton1
         .Min = 2
         .Max = 250
         .SmallChange = 1
    End With
    DernièreLigne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
 
    For i = 1 To 13
        InitCombo DernièreLigne, i
    Next
 
End Sub

31/01/2007, 22h13
ouskel'n'or

Que veux-tu faire avec ton SpinButton ?
A+
01/02/2007, 10h19
lio62

faire avancer les infos de la bases de données chronologiquement en fait lorque l'on clique sur le bouton on sélectionne la ligne du bas ou du haut selon le outon su lequel on clique par rapport a l'affichage qui est sur la combo

je ne sai pas si j'ai été plus clair :lol:

merci a+
01/02/2007, 10h33
ouskel'n'or
C'est bien ce que j'avais supposé mais il est où ton code qui fait ça ?
Pour que ça fonctionne, tu dois gérer un événement qui existe pour ton spinButton et SpinButton_Click n'existe pas. Mets ton code dans l'événement Change
Code:

1 2 3 4 Private Sub SpinButton1_Change() laprocedure SpinButton1 Label1 = SpinButton1.Value End Sub
A+

Edit
Ensuite, pourquoi fixes-tu sa valeur max à 250 ? Dernièreligne suffirait
Enfin, je travaillerais à l'envers, c'est à dire que je partirais de la DernièreLigne à 3. Ainsi, quand ta sélection serait la flêche du bas, tu descendrais dans ta feuille et inversement
Essaie de voir comment écrire ça ;)
01/02/2007, 10h56
ouskel'n'or

Tu as un pb dans ta feuille de calcul. Tu as une "crotte" à la ligne 5871 qui entraîne dernièreligne = 5871. Supprime les lignes de la fin des données à la ligne 5900 (Sélection -> Supprimer) et enregistre ton fichier, la crotte disparaîtra et DernièreLigne sera exacte.
A+
01/02/2007, 14h17
lio62

OK j'essaye ca merci.

bonjour,

Lorsque je lance l'userform j'ai une erreur 424, "objet requis"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Private Sub SpinButton1_Change()
Label1 = SpinButton1.Value
End Sub
 
Private Sub UserForm_Initialize()
Dim DernièreLigne As Integer, i As Integer
Sheets("feuil1").Activate
 
cellheure.Visible = Not [s1] = "TU"
 
cbox8.Visible = Not [s1] = "TU"
 
 
 With SpinButton1
    .Min = 2
    .Max = dernièreligne 'même avec 250 j'ai l'erreur
   .SmallChange = 1
    End With

merci a+

01/02/2007, 16h05
lio62

oups j'avais fait une erreur j'avais mis un scrollbar :oops:

Désolé, cependant rien ne se passe lorsque je clike dessus
01/02/2007, 16h20
ouskel'n'or

Si ! Il se passe quelque chose !
Affiche DernièreLigne, tu comprendras... Si tu lis des lignes vides, tu n'as rien dans tes combos. Relis ce que je t'ai mis là.
A+
01/02/2007, 18h23
lio62

bonsoir ouskel
qu'estce que tu entends par affiche denièreligne
quant aux lignes qui posaient j'ai tout supprimer

quand je clique sur le spinbutton mis a part le label qui me donne la ligne autrement il n'y a aucun effet sur mes combobox

fusion

As-tu enregistré ton fichier après avoir supprimé tes lignes ?
Faut tout y dire ;)
Explication : La syntaxe utilisée pour DernièreLigne a l'inconvénient de compter les lignes vides si elles ont été utilisées puis vidées.
Ce phénomène disparait après enregistrement du fichier.
Tu dis
A+
NB - Le code que je t'ai passé fonctionne chez moi ;)
Je te passe celui que j'ai modifier pour que le N° de ligne corresponde bien au bon N°
[QUOTE"Tu"]qu'estce que tu entends par affiche denièreligne[/QUOTE]Avec Debug.Print DernièreLigne sur la ligne suivant DernièreLigne = .... en ayant afficher la fenêtre Exécution

Le code : dans Private Sub UserForm_Initialize()
Code:

1 2 3 4 5 6 7 8 9 '.... '... Dernièreligne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row Debug.Print Dernièreligne With SpinButton1 .Min = 2 .Max = Dernièreligne .SmallChange = 1 End With
Le code dans SpinButton_Change()
Code:

1 2 3 4 5 6 7 8 Private Sub SpinButton1_Change() Dim Dernièreligne As Integer Dim NoLigne As Integer Dernièreligne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row NoLigne = Dernièreligne - SpinButton1.Value laprocedure NoLigne Label1 = NoLigne + 1 End Sub

Bonsoir, et merci

Déjà le problème de la crotte était remonté à la ligne 5842 bon ca c'est réglé
mais après avoir mis le code dans le bouton spinn change il me met une erreur 380 "impossible de définir la propriété listindex valeur de propriété non valide", il beugue sur la ligne en gras de sub laprocedure

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

Sub laprocedure(Lindex)
Dim lecontrol As Object
For Each lecontrol In ATESTER.Controls
If InStr(lecontrol.Name, "cbox") = 1 Then
ATESTER.Controls(lecontrol.Name).ListIndex = Lindex
End If
Next

End Sub

Private Sub cbox9_Enter()
CellHeure.Visible = False
End Sub
Private Sub cbox12_Enter()
cellheure2.Visible = False
End Sub


Private Sub CellHeure_Enter()
CellHeure.Visible = False
cbox9.SetFocus
End Sub
Private Sub CellHeure2_Enter()
CellHeure.Visible = False
cbox12.SetFocus
End Sub

Private Sub RETOUR_Click()
End
End Sub

Private Sub SpinButton1_Change()

Label1 = SpinButton1.Value
Dim Dernièreligne As Integer
Dim NoLigne As Integer
     Dernièreligne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
     NoLigne = Dernièreligne - SpinButton1.Value
     laprocedure NoLigne
     Label1 = NoLigne + 1

End Sub

Private Sub UserForm_Initialize()
Dim Dernièreligne As Integer, i As Integer
Sheets("bd").Activate
    CellHeure.Visible = Not [s1] = "TU"
    cbox9.Visible = Not [s1] = "TU"
 Dernièreligne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Debug.Print Dernièreligne
    With SpinButton1
         .Min = 2
         .Max = Dernièreligne
         .SmallChange = 1
    End With
    'With SpinButton1
    '.Min = 2
    '.Max = DernièreLigne
    '.SmallChange = 1
    'End With
    'DernièreLigne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For i = 1 To 14
        InitCombo Dernièreligne, i
    Next
    CellHeure.Visible = False
    cellheure2.Visible = False
    End Sub

01/02/2007, 20h44
ouskel'n'or

Après la ligne

Citation:

Sub laprocedure(Lindex)

mets

Code:

Debug.Print Lindex

tu sais comment afficher la fenêtre exécution ;)
Tu dis car je ne comprends pas
A+
01/02/2007, 21h02
lio62

ben il met 3 et 1

je suppose que ce sont les lignes la ligne 1 c les titres et la 3 la derniere cellule nonvide mais après je fais koi:oops: :oops: :oops: je sais pas ce qu ca veut dire tout a lheure pb sur les lignes mais la dis moi pa squil faut que je vire tout ? si !!!
01/02/2007, 21h07
ouskel'n'or

Montre le code que tu utilises pour initialiser le spin et ce que tu as mis dans spin_change. Je pense que tu as dû modifier quelque chose.
Après, on envisagera de brûler tout ça :aie:
A+

je te donnes le code entier du userf

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
Private Sub cbox1_Click()
laprocedure cbox1.ListIndex
End Sub
Private Sub cbox2_Click()
laprocedure cbox2.ListIndex
End Sub
Private Sub cbox3_Click()
laprocedure cbox3.ListIndex
End Sub
Private Sub cbox4_Click()
laprocedure cbox4.ListIndex
End Sub
Private Sub cbox5Click()
laprocedure cbox5.ListIndex
End Sub
 
Private Sub cbox5_Change()
 
End Sub
 
Private Sub cbox6_Click()
laprocedure cbox6.ListIndex
End Sub
Private Sub cbox7_Click()
laprocedure cbox7.ListIndex
End Sub
Private Sub cbox8_Click()
laprocedure cbox8.ListIndex
End Sub
 
Private Sub cbox9_Change()
If cbox9.ListIndex <> 1 Then
Debug.Print CellHeure.Text
 
    CellHeure.Text = Format(cbox9.List(cbox9.ListIndex), "dd/mm/yy hh:mm")
End If
CellHeure.Visible = True
End Sub
Private Sub cbox12_Change()
If cbox12.ListIndex <> 1 Then
    cellheure2.Text = Format(cbox12.List(cbox12.ListIndex), "dd/mm/yy")
End If
cellheure2.Visible = True
End Sub
 
Private Sub cbox9_Click()
laprocedure cbox9.ListIndex
End Sub
Private Sub cbox10_Click()
laprocedure cbox10.ListIndex
End Sub
Private Sub cbox11_Click()
laprocedure cbox11.ListIndex
End Sub
Private Sub cbox12_Click()
laprocedure cbox12.ListIndex
 
End Sub
Private Sub cbox13_Click()
laprocedure cbox13.ListIndex
End Sub
 
Sub laprocedure(Lindex)
Dim lecontrol As Object
For Each lecontrol In ATESTER.Controls
If InStr(lecontrol.Name, "cbox") = 1 Then
Debug.Print Lindex
ATESTER.Controls(lecontrol.Name).ListIndex = Lindex
End If
Next
 
End Sub
 
Private Sub cbox9_Enter()
CellHeure.Visible = False
End Sub
Private Sub cbox12_Enter()
cellheure2.Visible = False
End Sub
 
 
Private Sub CellHeure_Enter()
CellHeure.Visible = False
cbox9.SetFocus
End Sub
Private Sub CellHeure2_Enter()
CellHeure.Visible = False
cbox12.SetFocus
End Sub
 
Private Sub RETOUR_Click()
End
End Sub
 
Private Sub SpinButton1_Change()
 
Label1 = SpinButton1.Value
Dim Dernièreligne As Integer
Dim NoLigne As Integer
     Dernièreligne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
     NoLigne = Dernièreligne - SpinButton1.Value
     laprocedure NoLigne
     Label1 = NoLigne + 1
 
End Sub
 
Private Sub UserForm_Initialize()
Dim Dernièreligne As Integer, i As Integer
Sheets("bd").Activate
' CellHeure.Visible = Application.UserName = "TU"
    CellHeure.Visible = Not [s1] = "TU"
    cbox9.Visible = Not [s1] = "TU"
 Dernièreligne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Debug.Print Dernièreligne
    With SpinButton1
         .Min = 2
         .Max = Dernièreligne
         .SmallChange = 1
    End With
    'With SpinButton1
    '.Min = 2
    '.Max = DernièreLigne
    '.SmallChange = 1
    'End With
    'DernièreLigne = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For i = 1 To 14
        InitCombo Dernièreligne, i
    Next
    CellHeure.Visible = False
    cellheure2.Visible = False
    End Sub
 
Sub InitCombo(NoLigne, NoColonne)
Dim NomCombo As String
Dim Plage As String
Sheets("bd").Activate
    Plage = Range(Cells(2, NoColonne), Cells(NoLigne, NoColonne)).Address
    NomCombo = "cbox" & NoColonne
    With ATESTER.Controls(NomCombo)
        .Text = Cells(1, NoColonne)
        .RowSource = Plage
    End With
End Sub

merci a+

01/02/2007, 23h30
ouskel'n'or

Je peux rien faire de mieux Pièce jointe 9240
Tu dis
A+
02/02/2007, 14h23
lio62

bonjour ouskel
ton fichier beugue sur la combo 9 celle ou il y a la date:

j'essaye de m'expliquer :oops:
au premier affichage en cliquant sur le spinbutton il affiche des chiffres comme d'hab
et si on sélectionne une date en utilisant la combo il met une date fixe et plus aucune liaison n'a lieu avec les autres

merci a+ je sai plus quoi faire, sur mon fichier le spinnbutton ne me sert a rien pourtant les codes sont identiques
:arf:

Je te propose quelque chose :
Au lieux d'utiliser la syntaxe que je t'ai passée pour dernièreLigne, essai dans une sub à part l'une de celles-ci
Code:

1 2 3 4 5 6 DernièreLigne = Range("A1").CurrentRegion.End(xlDown).Row Debug.print DernièreLigne DernièreLigne = Range("A65535").End(xlUp).Row Debug.print DernièreLigne DernièreLigne = Range("A1").End(xlDown).Row Debug.print DernièreLigne
Tu fais ça dans une macro à part et tu retiens la syntaxe qui correspond à ton nombre de lignes vrai :cry:
Tu dis
A+

NB - Ça, c'est pour essayer de régler ton pb de spin...

02/02/2007, 17h26
lio62

bonsoir, et encore merci ouskel j'essaye ca

Voir 40 message(s) de cette discussion en une page