Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

SpinButton

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
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

Code: 
'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
 
Trier par date Trier par votes
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🙂
 
Vote positif 0 Vote négatif
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🙂
 
Dernière édition:
Vote positif 0 Vote négatif
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 ?

@+
 
Vote positif 0 Vote négatif
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🙂
 
Vote positif 0 Vote négatif
Re : SpinButton

Bonjour,

Cf exemple en PJ

Code: 
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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🙂
 
Vote positif 0 Vote négatif
Re : SpinButton

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



Code: 
 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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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é.
 
Vote positif 0 Vote négatif
Re : SpinButton

Avec 2 notes et demi-étoile



Code: 
 '-- 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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Listbox click
Réponses
10
Affichages
633
ChTi160
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
310
job75
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
782
thunder23
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
556
chinel
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
425
sylvanu
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
501
KTM
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
326
Did25
D
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
J
  • Résolu(e)
XL 2019 Interdire les doublons dans ListBox
Réponses
3
Affichages
240
JLR67
J
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
203
anthoYS
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
483
nabilexcel2007
N
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
250
anthoYS
  • Résolu(e)
Autres dimensionner une listbox pour DUDU2
2 3 4
Réponses
47
Affichages
2 K
patricktoulon
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
475
youguybass
Y
M
  • Question Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
2 K
Mody200
M
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
476
job75
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
285
TooFatBoy
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…