Décalage sur un Slider ou (Scrollbar)

Fermé
vieuxray - 12 déc. 2016 à 06:50
 vieuxray - 14 déc. 2016 à 06:59
Bonjour,

Sous Excel VBA 2007

Petit soucis de décalage sur le déplacement du pointeur sur un slider ou (Scrollbar)
sans doute un calcul a effectuer.

Voir svp le lien ci-dessous pour le fichier ci-joint.

Merci a vous pour votre aide a tous une excellente journée.

http://www.cjoint.com/c/FLmfPBvtayz

Cdlt Ray

5 réponses

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
12 déc. 2016 à 19:22
Bonjour,

Bon, tu as trouvé pour le placement vertical ou pas du coup ?
Sinon ça ça a l'air d'aller :
        p = (Slider1.Height - 22) / Slider1.Max * Slider1.Value
        .Top = Slider1.Top + p + 4

eric

1
Salut a tous

Pas de réponse sans doute pas possible alors.
Entre temps j'ai chercher mais pas trouver.

Par contre verticalement ca fonctionne nickel.
Le petit carré rouge est pil poil en face du pointeur du slider.

Bonne soirée a tous.

Cdlt Ray
0
Salut Eriiic,

Merci beaucoup pour ta réponse, c'est gentil a toi.

Du coup, ca fonctionne dans les deux sens, nickel.

Merci bien, je vais avancer demain et mettre en
place dans mon programme.

Par contre, tu a pu voir le carré jaune sur le coté gauche, je n'ai
pas réussi a trouver dans les propriétés du Slider.

Ce que j'ai vu par contre, c'est que selon un choix ce petit carré jaune peux
apparaitre de plusieurs façons.

Mais si on peut faire en sorte que je le vois pas, ca m'arrangerai bien.

Bonne soirée a toi avec beaucoup de merci.

Cdlt Ray
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
12 déc. 2016 à 20:10
non, pas vu de propriété qui me saute aux yeux même dans l'explorateur d'objets.
Si tu utilises .Scroll au lieu de .Click tu peux déplacer ton textbox en temps réel.
On peut en imaginer un autre de l'autre coté qui te masques l'espèce de tiptext.
eric
0
Salut eriiic,

Merci pour ta réponse

j'ai essayer de trouver une astuce pour me débarrasser du (tiptext) jaune mais en vain.

Masquer avec un label même couleur mais il apparait toujours.

Pas d'autres idées, bon toutefois si il est la, on doit pouvoir le masquer, désactiver où je ne sais pas plus, si tu a une idée, je suis preneur.

Bonne après midi a toi, merci

Cdlt Ray
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Salut eriiic,

Un petit service svp si tu a le temps et puisque le slider fonctionne bien

comment faire pour tester et afficher dans mon Label90 la valeur du slider
de 0 a 10

PS:je me sers du (clic) le (scroll) dans l'immédiat ne me semble pas utile.

Ex: si je descends le curseur du slider jusqu'à la position 3 et que je clic .
Afficher dans le label90 "Action N°3 en cours"
Puis si une autre action, faire de même Ex: clic position 7 alors label90 "Action N°7 en cours"
J'ai agrandi un peu le slider et du coup j'ai de 0 a 10

je te remercie par avance et te souhaite la bonne soirée.

Cdlt Ray
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
13 déc. 2016 à 22:30
Tu n'as pas mis le nouveau fichier...
Et bien pareil que tu faisais avec le label1 :
Label90.Caption = "Action N°" & Slider1 & " en cours"

eric
0
vieuxray > eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024
14 déc. 2016 à 06:59
Salut eric,
Merci pour ta réponse,

Effectivement pas le fichier car j'ai effectuer directement le petit code
sur mon programme.

J'ai bien compris ta dernière réponse et je vais faire de même.

Merci a toi passe une excellente et agréable journée.

Cdlt Raymond
0