Discussion :

[CIBOOX]

BONJOUR
J'ai un petit souci au niveau de l'indexation ....
voila j'ai ajouté un spin bouton afin de faire defiler les lignes de mon tableau dans un userfom
le spin bouton est definit en fonction de l'index ( l'index des combobox car elles sont liées voir pieces jointes )
la valeur spin max est la derniere ligne
mon spin bouton fonctionne corectement mais il ne s' arrete pas à la derniereligne et m'indique un message d' erreur 380 " impossible de definir la valeur de listindex valeur de propriete non valide "
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub laprocedure(Lindex)
Dim lecontrol As Object
For Each lecontrol In GRILLE.Controls
If InStr(lecontrol.Name, "cbox") = 1 Then
If Lindex >= 0 Then SpinButton1.Value = Lindex
If SpinButton1.Value >= derniereligne Then SpinButton1.Value = derniereligne
GRILLE.Controls(lecontrol.Name).ListIndex = SpinButton1.Value ici ça fais mal 
End If
Next

End Sub ''''''''''''''''''''''''''

en mode debugage j'ai value =11 ce qui correspond bien a ma dernierligne
comment corriger mon code ?

[ouskel'n'or]

Si tu fixes la valeur max = dernièreligne, tu n'auras jamais ce pb

[CIBOOX]

Bonjour ouskel 'nor

ma valeur max= derniereligne ( voir debut de la discusion ) et le probleme persiste

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub SpinButton1_Change()
SpinButton1.Max = derniereligne
If SpinButton1.Value > derniereligne - 1 Then SpinButton1.Value = derniereligne - 1
Lindex = SpinButton1.Value
Fich_num.Value = Lindex + 1
laprocedure (Lindex)
End Sub

[ouskel'n'or]

Non, ce n'est pas là que tu dois initialiser le spinbutton, c'est dans userforminitialize ou, si tu ajoutes des lignes à ton fichier, tu ré-initialise le max, là où tu les ajoutes et aussitôt que tu les as ajoutées... les lignes

Code :

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

1
2
3
4
Sub Userform1_initialise()
derniereligne = .........
Spinbutton1.max = derniereligne
'....

Et dans le clic du splin :

Code :

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

1
2
3
4
5
Private Sub SpinButton1_Change()
Lindex = SpinButton1.Value
'Fich_num.Value = Lindex+1 'c'est quoi, ça ?
laprocedure (Lindex)
End Sub

[CIBOOX]

OK ça marche merci beaucoup