IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Scrollbar avec avantage d'une toupie [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Mut
    Mut est déconnecté
    Membre averti Avatar de Mut
    Homme Profil pro
    Inscrit en
    Mars 2003
    Messages
    931
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations forums :
    Inscription : Mars 2003
    Messages : 931
    Points : 307
    Points
    307
    Par défaut Scrollbar avec avantage d'une toupie
    Bonjour,

    J'ai une plage de données sur une colonne. Par exemple A2:A30 contenant des valeurs numériques

    Cette plage est triée par ordre croissant. Par conséquent, je peux déterminer la valeur min et max de ma scrollbar.

    Je souhaite lorsque je fais varier la scrollbar, afficher les valeurs de la plage. Par exemple, si j'initialise la scrollbar avec un min représentant A2 et un max représentant A30, si la valeur de départ de la scrollbar est A2, je souhaite que lorsque je clique sur la scrollbar, cela passe à la valeur A3 (si j'ai cliqué sur la flèche droite et la cellule inférieur si je clique sur gauche).

    En résumé, comment avoir les fonctionnalités d'une toupie avec un ascenseur au milieu permettant de faire varier la plage simplement.

    Tout ceci se trouve dans une feuille Excel

    Merci

  2. #2
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 203
    Points : 14 354
    Points
    14 354
    Par défaut
    Bonjour,

    Tu règles le Min à 1 et le Max à 29, le SmallChange à 1. Avec I2 comme cellule résultat, mets dans le module de la feuille :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub ScrollBar1_Change()
        [I2] = [A2].Offset(ScrollBar1.Value - 1)
    End Sub
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  3. #3
    Mut
    Mut est déconnecté
    Membre averti Avatar de Mut
    Homme Profil pro
    Inscrit en
    Mars 2003
    Messages
    931
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations forums :
    Inscription : Mars 2003
    Messages : 931
    Points : 307
    Points
    307
    Par défaut
    Parfait merci !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Empecher défilement d'une scrollbar avec popup
    Par Underghast dans le forum Général JavaScript
    Réponses: 0
    Dernier message: 10/10/2014, 14h46
  2. Réponses: 8
    Dernier message: 12/02/2013, 01h08
  3. incrément d'une scrollbar avec roulette souris
    Par awalter1 dans le forum GTK+ avec Python
    Réponses: 1
    Dernier message: 16/10/2012, 08h49
  4. configuration d'une scrollbar avec un fichier .txt
    Par simpson79 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/07/2009, 23h26
  5. PB avec "self" dans une dll
    Par DiJiRiDouS dans le forum Langage
    Réponses: 2
    Dernier message: 21/02/2003, 09h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo