SpinButton

[maval]

Bonjour,

J'ai sur un Formulaire un SpinButton qui fonctionne très vers le bas mais qui ne fonctionne vers le haut

Mon code de spinBoutton est celui-ci

'Avance rapide
Private Sub SpinButton1_SpinDown() 'la flèche vers le bas

LabelIndex.Visible = True
nom.Visible = True

    If ComboBox1.ListIndex = -1 Then Exit Sub
    If ComboBox1.ListIndex = 0 Then Exit Sub
    ComboBox1.ListIndex = ComboBox1.ListIndex - 1
    
     If ListBox1.ListIndex = -1 Then Exit Sub
    If ListBox1.ListIndex = 0 Then Exit Sub
    ListBox1.ListIndex = ListBox1.ListIndex - 1
   
    
End Sub

Private Sub SpinButton1_SpinUp() 'la flèche vers le haut

LabelIndex.Visible = True
nom.Visible = True
    If ComboBox1.ListIndex = ComboBox1.ListCount - 1 Then Exit Sub
    ComboBox1.ListIndex = ComboBox1.ListIndex + 1
    
    
    If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
    ListBox1.ListIndex = ListBox1.ListIndex + 1
    
End Sub

'Avance rapide
Private Sub SpinButton1_Change()

Range("B" & SpinButton1.Value).Select

 LabelIndex = SpinButton1.Value
  With Sheets("Liste")
    .Range("B" & LabelIndex + 3).Activate
    nom.Caption = .Cells(LabelIndex + 3, 2)
    .[B4:B65536].Interior.Color = RGB(255, 255, 255)
    .Cells(LabelIndex + 3, 2).Interior.ColorIndex = 6
  End With
End Sub

Je vous remercie d'avance

 

[Paritec]

Re : SpinButton

Bonjour maval le forum
bon alors pour moi ni l'une ni l'autre ne peuvent donner satisfaction !!!
si tu as un listindex dans combobox1 qui te fais sortir, comment veux-tu que la procédure concernant la listbox puisses se dérouler ??
Maintenant sans fichier, bah débrouille toi tout seul.
a+
Papou🙂

 

[maval]

Re : SpinButton

Bonjour,

Excuse moi je penser avoir mis mon fichier!

@+

 

[JCGL]

Re : SpinButton

Bonjour à tous,

La toupie fonctionne chez moi. Elle va juste jusqu'à 41 alors que tu n'as que 39 items Film.

A+ à tous

 

[Paritec]

Re : SpinButton

Re Bonjour Maval le forum
bon alors toi tu mélanges les torchons et les serviettes !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
dans combobox 1 tu as les noms des acteurs et dans Listbox1 la liste des films de l'acteur
comment veux tu avoir un spinbutton qui gère deux listes différentes???? si tu lances la macro tu as un changement de la combobox1 qui lance le remplissage de ta listbox1 ??????
en bref tu veux faire quoi et de quelle manière? Explique nous cela et on va modifier
a+
Papou🙂

EDIT : Re Bonjour JC🙂

 

[maval]

Re : SpinButton

Re, Papou

Ne t énerve pas cela n'est pas bon pour le cœur.
Avec la toupie je voudrais déplacer vers le haut ou le bas en fonction du choix des optionbutton ?

@+

 

[maval]

Re : SpinButton

Re,

Personne peut m'aider

Bonne soirée

 

[Paritec]

Re : SpinButton

Re Max le forum
bah oui tu veux déplacer la sélection, j'ai parfaitement compris, mais tu ne réponds en rien à mon post précédent!!!!
tu veux changer la sélection dans le combobox1 ou la listbox1 ????????????????????????????????,
c'est pas les mêmes listes
a+
Papou🙂

 

[BOISGONTIER]

Re : SpinButton

Bonjour,

Cf exemple en PJ

Private Sub b_préc_Click()
 If Me.ComboBox1.ListIndex > 0 Then
  Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex - 1
  Me.ListBox1.ListIndex = 0
End If
End Sub

Private Sub B_préc2_Click()
 If Me.ListBox1.ListIndex > 0 Then
   Me.ListBox1.ListIndex = Me.ListBox1.ListIndex - 1
 End If
End Sub

Private Sub B_suivant_Click()
 If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount - 1 Then
  Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
  Me.ListBox1.ListIndex = 0
End If
End Sub

Private Sub b_suivant2_Click()
 If Me.ListBox1.ListIndex < Me.ListBox1.ListCount - 1 Then
  Me.ListBox1.ListIndex = Me.ListBox1.ListIndex + 1
 End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormCascadeDVD.xls

JB

 

[Paritec]

Re : SpinButton

Re JB , Max, le forum
bah oui mais là il y a deux spinbutton, un pour le combo un pour la listbox, c’est bien ce que je disais dans mes deux dernier posts, on ne peut pas le faire avec un spinbutton, et c'est normal!!!
a+
Papou🙂

 

[maval]

Re : SpinButton

Bonjour Papou, JB

Je te remercie beaucoup et te souhaite une bonne journée

@

 

[BOISGONTIER]

Re : SpinButton

J'ai fait une nouvelle version avec la note (1-5) sous forme d'étoiles

 For e = 1 To 5: Me("etoile" & e).Visible = False: Next e
 For e = 1 To Val(Me.TextBox6)
   Me("etoile" & e).Visible = True
 Next e

JB

 

[maval]

Re : SpinButton

Re JB

C'est Génial, mais si je peut me le permettre deux petit souci.
1° j'ai deux colonnes critique, une Critique Spectateur l'autre Critique Presse.
2° J'ai des note de 1, 1.5, 2, 2.5 ect..... les étoiles qui représentent les demies sont moitie jaune et moitie noir ont peut les trouver sur le fichier que j'ai mis au post 3#.

Je te remercie du temps passé.

 

[BOISGONTIER]

Re : SpinButton

Avec 2 notes et demi-étoile

 '-- note1
 note = Val(Replace(Me.TextBox6, ",", "."))
 If note > 5 Then note = 5
 For e = 1 To Int(note): Me("etoile" & e).Visible = True: Next e
 x = Int(note) + 1
 If x < 6 And note - Int(note) >= 0.5 Then
   Me.etoiledemi.Left = Me("etoile" & x).Left
   Me.etoiledemi.Top = Me("etoile" & x).Top
   Me.etoiledemi.Visible = True
 End If
 '---- note2
 note = Val(Replace(Me.TextBox7, ",", "."))
 If note > 5 Then note = 5
 For e = 1 To Int(note): Me("etoile" & e + 10).Visible = True: Next e
 x = Int(note) + 11
 If x < 16 And note - Int(note) >= 0.5 Then
   Me.etoiledemi2.Left = Me("etoile" & x).Left
   Me.etoiledemi2.Top = Me("etoile" & x).Top
   Me.etoiledemi2.Visible = True
 End If

Dans ListBox1, j'ai oublié de cacher les colonnes 3 à 11 (mettre à 0 en largeur)

JB

 

[maval]

Re : SpinButton

Re,

Vraiment génial on ne peut espérer plus, un grand merci.

Bonne soirée à toi et merci encore