Faire un curseur Résolu/Fermé

Question

Bonjour, 

Je travaille avec microsoft office excel 2007 et je n'arrive pas à faire une cellules avec des fleches haut et bas pour augmenter ou diminuer la valeur...

Merci d'avance pour votre aide.

Configuration: Windows 7 / Chrome 26.0.1410.64

Mike-31 · Answer

Salut,

Tu peux expliquer ce que tu souhaites faire, donne un exemple pour nous aider à comprendre

Andre1213 · Answer

J'aimerai dans une cellule (A1), taper un nombre entier au hasard (10 par exemple).
En A2 j'aimerai que ce nombre s'affiche avec aussi des flèches haut et bas pour augmenter ou diminuer de 0 à 10.
En A3 j'aimerai afficher l'exponentielle du nombre choisit en A2.

Mike-31 · Answer

Re,

Toujours pas tout cerné, mais regarde le fichier joint plusieurs proposition, joue avec les flèches voir si je suis sur la voie

https://www.cjoint.com/?CDznZtU91sD

Andre1213 · Answer

J'aime bien le deuxième, la barre de défilement de gauche à droite,  c'est presque ça, je voudrais que la valeur max de cette barre, ce soit en fonction d'une cellule =)

Mike-31 · Answer

Re,

Ca ce n'est pas possible avec ce genre de barre de défilement, si tu veux que la valeur Max de ta barre provienne d'une cellule il faut passer avec des contrôle activex et piloter par VBA si tu a quelques notions

Andre1213 · Answer

Je n'ai aucunes notions sur activex et VBA =/
C'est compliqué ce que j'essaie de faire ?

Mike-31 · Answer

Re,

Lorsque tu es sur Excel, as tu l'onglet Développeur, il est juste après l'onglet Révision Affichage

Andre1213 · Answer

Oui ça y est je l'ai affiché

Mike-31 · Answer

Re,

je rentre d'une réunion, si tu es dispo je vais essayer de t'aider

donc va sur l'onglet Développeur/ module Contrôles/clic sur l'icône Insérer/une boite à outil va s'ouvrir et en bas tu as les contrôles activex
clic sur le 6éme outil c'est la barre de défilement/déssine ta barre de la taille souhaitée

double clic ou clic droit visualiser le code ce qui va t'ouvrir le Visual Basic tu devrais avoir

Private Sub ScrollBar1_Change()

End Sub

colle cette ligne quio fait référence à la cellule contenant ta valeur maxi ex.B10
ScrollBar1.Max = [B10]

pour obtenir
Private Sub ScrollBar1_Change()
ScrollBar1.Max = [B10]
End Sub

normalement à gauche tu devrais avoir la barre des propriétés, recherche linkedcell
et en face linkedcell saisi la référence de cellule liée (ou tu veux voir la valeur liée au déplacement du curseur ex. D10

 désactive avec un simple clic l'icône mode création

Andre1213 · Answer

J'ai réussi, et ça marche exactement comme je veux !
Merci beaucoup ! C'était vraiment très bien expliqué, j'ai qu'un mot à dire : bravo !

Mike-31 · Answer

Re,

je passe le statut de la discussion en résolu

cordialement

Andre1213 · Answer

Eu... j'ai un dernier petit soucis ^^
Quand la cellule qui choisis le nombre maximum du curseur est égale à 0, le curseur disparait, et quand je remet autre chose que 0, le curseur ne réaparait pas =/ Que faire ?

Mike-31 · Answer

RE,

remplace Private Sub ScrollBar1_Change() 

par ou ajoute simplement ce code en plus

Private Sub ScrollBar1_GotFocus()
ScrollBar1.Max = [B10]
End Sub

Andre1213 · Answer

Super ça marche merci !

Faire un curseur

14 réponses

Discussions similaires