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

macro avec bouton toupie sur userform

  • Initiateur de la discussion Initiateur de la discussion klorane
  • 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 !

klorane

XLDnaute Occasionnel
Bonjour à tous,

j'utilise un userform sur le quel j'ai un bouton toupie avec la macro suivante :

Private Sub SpinButton1_Change()
Dim j As Integer
j = SpinButton1.Value
TextBox1.Value = Range("B" & j).Value
TextBox1.ForeColor = Range("B" & j).Font.Color
TextBox2.Value = Range("A" & j).Value
End Sub


le problème que j'ai c'est que lorsque je clique sur le bouton toupie, les données à afficher défilent d'un coup et je suis donc obligé de faire marche arriere pour retourner là ou j'étais.

y a t'il possibilité d'ajouter quelque chose à la macro de façon à avancer uniquement de 1 lorsque je clique sur la toupie et se jusqu'à se que je relache le bouton de la souris.

Si ce n'est pas possible, utiliser un simple bouton me derange pas mais qui dans ce cas peut me modifier la macro ci dessus pour l'adapter à un simple bouton?

Merci

Sébastien.
 
Re : macro avec bouton toupie sur userform

bonjour

tu peux faire un essai en ajoutant


Code:
Private Sub UserForm_Initialize()
    With SpinButton1
        .Min = 0 'Valeur mini
        .Max = 100 'Valeur maxi
        
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle SpinButton
        '(La valeur par défaut = 1)
        .SmallChange = 1
    End With
End Sub

bonne journée
MichelXld
 
- 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

Réponses
2
Affichages
461
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…