[VBA-E] pb avec spinbutton

Version imprimable

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, 21h13
ouskel'n'or

Que veux-tu faire avec ton SpinButton ?
A+
01/02/2007, 09h19
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, 09h33
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, 09h56
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, 13h17
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, 15h05
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, 15h20
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, 17h23
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, 19h44
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, 20h02
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, 20h07
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, 22h30
ouskel'n'or

Je peux rien faire de mieux Pièce jointe 9240
Tu dis
A+
02/02/2007, 13h23
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, 16h26
lio62

bonsoir, et encore merci ouskel j'essaye ca
02/02/2007, 17h24
lio62

bon ben j'ai repris ton premier code que tu m'as envoyé lio_matos
j'ai viré le spinbutton car c trop galère
le code fonctionnait avec ton fichier je coller le code dans le mien et ca plantait erreur 380 donc j'ai pas de solution je peux pas y passer ma vie dommage.
tu vois dans le userf il y a deux fois la date et bien il y en a un ou j'ai appliqué ton code et dans l'autre aucun problème .. bizarre

un grand merci ouskel... j'ai encore plein de projets en tête

:lahola:
02/02/2007, 18h08
ouskel'n'or

Résolu ? C'est pas vrai ! Et le bouton, alors ?
02/02/2007, 18h58
lio62

ben si tu veux c résolu parce que j'ai viré le spinbutton et là plus de pb alors je mets résolu ?

c'est incompréhensible le meme code (pour le spinbutton) dans un environnement similaire et il plante dommange il n'y a pas un autre bouton qui eurait les memes fonctions que le spinbutton?

merci a+
02/02/2007, 19h34
ouskel'n'or

Non, si tu ne considères pas la discussion comme résolue, alors ne mets pas résolu... ;)
C'est le splinbutton qui t'embête ?
Pour me déplacer (sur une grosse base) j'utilise un ascenseur mais je pense que tu auras le même pb.
Comme ça fonctionne chez moi et apparemment chez toi sur mon fichier (?)... je ne comprends pas.
02/02/2007, 20h04
lio62

BONSOIR OUSKEL

Come cela fonctionne sans le spin
ben tu sais plus haut je t'ai dit sur le lio61_matos y avait la cb9 qui ne fonctionnait pas enfin y avait pas de laison avec les autres amis bon le code que j'utilise actuellement pas de pb mais pas de spin

je vais rentrer a nouveau le code pour le spin et après je verrai..... enfin je te ferai voir si pb :oops:
c c de coincer la dessus tous les pb ont été résolus en amont j'ai quaiment fini ce fichier j'ai bien dit ce fichier !:lol: :mrgreen:

merci a +

re bonsoir ouskel

lorque j'inhibe ces lignes de commandes
Code:

1 2 3 4 5 With SpinButton1 .Min = 1 .Max = Dernièreligne .SmallChange = 1 End With
le userf se lance autrement il plante erreur 380 "impossible de definir la propriete listindex valeur de propriété non valide
mais dés qu'il est lancé et que je clique sur la fleche du haut du spinbutton j'ai a nouveau l'erreur 380
pour info tout a l'heure le code a fonctionné devant mes yeux ebahis jusqu'a je me trouve je pense etre positionné sur la ligne la plus haute
Code:

1 2 3 4 5 6 7 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 ' --> lignepb End If Next
End Sub

merci a +

03/02/2007, 09h10
lio62

bonjour ouskel je te joins le fichier matos

tu verras lorsque tu cliques sur le bouton de gauche au moment ou tu arrives vers la fin de la bd il plante erreur 380 autrement ca semble fonctionnnait
je rève:lol:

merci a+
03/02/2007, 10h03
SfJ5Rpw8

ben vérifie les limites de ton index ... listIndex doit être inférieur à listCount - 1...

Hello
Bon, j'ai regardé ton code
Déjà, relis ce que tu as mis, là. En faisant ça, tu fais 498 fois la même chose
Tu parts d'Activecell et tu arrive sur le même activecell
Regarde si en remplaçant activecell par Cellule ça fait ce que tu veux, moi, j'ai rien compris. :aie:
Code:

1 2 3 4 5 6 7 8 [i65536].End(xlUp).Select For Each cellule In Range("i2:i500") If ActiveCell.Offset(1, -1) <> "" Then ActiveCell.EntireRow.Offset(0, 0).Range("i1:m1").Copy ' Select ActiveCell.Offset(1, 0).PasteSpecial Else End If Next
Quant à tes essais avec le code de mon fichier, si tu appliques mon code, modifie au moins le nom de la feuille de calculs ("Feuil1" dans la dernier fichier que je t'ai passé au lieu de "bd" dans ton classeur)
Je t'envoie le fichier qui m'a servi à tester le code, auquel j'ai appliqué les modifs existantes sur ton propre fichier (hors mis le code ci-dessus) pour ne pas avoir à rechercher plus loin le bug dans le tien... Bref, je n'ai pas trouvé le problème. donc, une nouvelle fois Pièce jointe 9291
A+

03/02/2007, 11h32
lio62

bonjour,
pour le premier c tout ce que je sais faire :lol: :lol:
j'ai pas saisi pour cellule pour le second je rereteste le fichier
merci a+
03/02/2007, 11h47
lio62

Alors je dis quoi ????????

:yaisse: :yaisse:

:lahola:

:merci:

(sauf pour cellule):( :oops:

A............................très bientôt

Lionel
03/02/2007, 12h12
ouskel'n'or

Citation:

(sauf pour cellule):( :oops:

Que veux-tu faire ? zat iz ze kestion !
A+
03/02/2007, 14h48
lio62

salut

remplir les portions de lignes vides d'équipe a fin de vacation pour moi la, ca tourne mais bon c pas rationnel :lol: :mouarf: :oops:
03/02/2007, 15h48
ouskel'n'or

Tu peux faire une procédure appelée à la fermeture ou à l'ouverture de ton fichier. Elle consisterait à consulter ta/tes colonnes à compléter.
Le principe :
Lire les cellules de la colonne, si une cellule est vide, on copie le contenu de la cellule du dessus.
Tu peux faire ça pour toutes les colonnes que tu veux
Tu réfléchis à ça, tu testes et si tu as un pb, tu dis... mais pas avant
Propose quelque chose, il est temps que tu testes ce que tu sais :mouarf:
A+
03/02/2007, 15h56
lio62

bon je vais voir ca mais pour une fois que je trouvais quelquechose tout seul:lol: c pas d'bol