Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 13/12/2011, 11h20   #1
Invité de passage
 
Homme
Inscription : décembre 2011
Messages : 6
Détails du profil
Informations personnelles :
Sexe : Homme

Informations forums :
Inscription : décembre 2011
Messages : 6
Points : 0
Points : 0
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
guillaume30c est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/12/2011, 11h29   #2
Expert Confirmé Sénior
 
Avatar de Qwazerty
 
Homme Stéphane
La très haute tension :D
Inscription : avril 2002
Messages : 2 446
Détails du profil
Informations personnelles :
Nom : Homme Stéphane
Âge : 32
Localisation : France

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

Informations forums :
Inscription : avril 2002
Messages : 2 446
Points : 4 620
Points : 4 620
Envoyer un message via MSN à Qwazerty
Salut

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

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

MagicQwaz := Harry Potter la baguette en moins
Le monde dans lequel on vit
HammerFest
Ma page perso DVP - Dernier Tutoriel : VBA & Internet Explorer
Qwazerty est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 13/12/2011, 11h41   #3
Invité de passage
 
Homme
Inscription : décembre 2011
Messages : 6
Détails du profil
Informations personnelles :
Sexe : Homme

Informations forums :
Inscription : décembre 2011
Messages : 6
Points : 0
Points : 0
Super!
Merci
guillaume30c est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 03h21.


 
 
 
 
Partenaires

Hébergement Web