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 :

incrémenter un compteur type toupie avec un pas de 0.1 [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 6
    Points : 5
    Points
    5
    Par défaut incrémenter un compteur type toupie avec un pas de 0.1
    Bonjour à tous,

    Comme l'intitulé l'indique, je souhaiterai incrémenter une cellule avec un pas de 0.1 à l'aide de la toupie du formulaire Excel (le pas minimum que l'on puisse choisir étant de 1)

    J'ai déjà eu l'idée de passer par une autre cellule (A3 par ex) et d'insérer dans la cellule (A2) une formule du type: =SI(A3=0;0;A3/10) . Le problème c'est que si l'utilisateur décide de passer directement pas la table numérique il supprime cette formule, donc la toupie ne fonctionne plus!

    Je pense qu'il doit y avoir une possibilité à l'aide d'une macro, mais j'ai beau chercher je trouve rien!

    Merci pour vos réponses,

    Guillaume

  2. #2
    Expert éminent
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    3 906
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 3 906
    Points : 8 539
    Points
    8 539
    Par défaut
    Salut

    Utilise une Toupie ActivX (pas formulaire, tu verras dans les outils) et utilise le code suivant

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub SpinButton1_SpinDown()
    Range("A1").Value = SpinButton1.Value / 10
    End Sub
     
    Private Sub SpinButton1_SpinUp()
    Range("A1").Value = SpinButton1.Value / 10
    End Sub
    J'utilise directement range, qui suppose que la fenêtre active contient la cellule à modifier, ce qui ne devrait pas poser de problème.

    ++
    Qwaz

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 6
    Points : 5
    Points
    5
    Par défaut
    Super!
    Merci

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

Discussions similaires

  1. [MEX] plantage avec certains types de paramètres et pas d'autres
    Par ol9245 dans le forum MATLAB
    Réponses: 4
    Dernier message: 11/10/2014, 21h18
  2. [JSTL] incrémenter un compteur avec les tags jstl
    Par xsaami dans le forum Taglibs
    Réponses: 1
    Dernier message: 16/09/2010, 08h33
  3. Compteur qui fonctionne avec FF mais pas avec IE
    Par beegees dans le forum Général JavaScript
    Réponses: 0
    Dernier message: 16/05/2009, 20h04
  4. Type pour données de type email avec @
    Par jeff37 dans le forum Langage SQL
    Réponses: 4
    Dernier message: 26/01/2004, 14h50
  5. Réponses: 4
    Dernier message: 25/08/2003, 09h02

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