XL 2016 Barre de défilement

[Cuto1972]

Bonjour à tous,

Je suis en train de faire un compteur qui marche très bien quand je change la cellule manuellement mais je voudrais le faire avec la barre de défilement.

Le problème est que le chiffres changent mais les aguilles ne bougent pas… connaissez-vous une solution?

Je vous annexe le dossier.

Merci beaucoup pour votre aide,

Carlos

 

[Phil69970]

Bonjour @Cuto1972

Essaye comme ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("Aguille")).Select
Selection.ShapeRange.Rotation = Range("B2").Value * -127
'Range("C2").Select

ActiveSheet.Shapes.Range(Array("Aguille2")).Select
Selection.ShapeRange.Rotation = Range("B3").Value * 128
Range("C2").Select
Application.ScreenUpdating = True

End Sub

*Merci de ton retour

@Phil69970

 

[fanch55]

Bonjour,
C'est le problème avec les objets de formulaire , il n'y a pas à proprement parler d'events.
Une astuce dans le classeur ci-joint :
Il y a une Scrollbar activex avec les mêmes spécifs que l'objet "barre de défil" mais en visible=false.
Ce qui permet de profiter du design de l'objet formulaire et de l'événement scrollbar_Change avec le code existant .

 

[Cuto1972]

Bonjour @Cuto1972

Essaye comme ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("Aguille")).Select
Selection.ShapeRange.Rotation = Range("B2").Value * -127
'Range("C2").Select

ActiveSheet.Shapes.Range(Array("Aguille2")).Select
Selection.ShapeRange.Rotation = Range("B3").Value * 128
Range("C2").Select
Application.ScreenUpdating = True

End Sub

*Merci de ton retour

@Phil69970

Bonjour Phil,


Trop fort!!!! ça marche parfaitement.


Merci infiniment.



Bon weekend,



Carlos

 

[Cuto1972]

Bonjour,
C'est le problème avec les objets de formulaire , il n'y a pas à proprement parler d'events.
Une astuce dans le classeur ci-joint :
Il y a une Scrollbar activex avec les mêmes spécifs que l'objet "barre de défil" mais en visible=false.
Ce qui permet de profiter du design de l'objet formulaire et de l'événement scrollbar_Change avec le code existant .

Bonjour Fach55,

Excellent, merci beaucoup pour votre aide. C'est genial.

Bon weekend,

Carlos

 

[Cuto1972]

Bonjour à nouveau,

Désolé mais j'ai encore une question: Existe-t-il une façon de faire bouger une image vers le haut et vers le bas avec une barre de défilement?

Je vous annexe l'idée...

Merci infiniment,

Carlos

 

[fanch55]

Vous auriez du faire un autre post car c'est une autre demande .

M'enfin,

L'image de l'homme en noir a été renommé Homme .​

Sub Init pour initialiser les scrollbars ( à ne faire qu'en conception )​

 

[Cuto1972]

Vous auriez du faire un autre post car c'est une autre demande .

M'enfin,

L'image de l'homme en noir a été renommé Homme .​

Sub Init pour initialiser les scrollbars ( à ne faire qu'en conception )​

Vous auriez du faire un autre post car c'est une autre demande .

M'enfin,

L'image de l'homme en noir a été renommé Homme .​

Sub Init pour initialiser les scrollbars ( à ne faire qu'en conception )​

Bonjour Fanch55,

Désolé, la prochaine fois je ferais une autre demande.

Sinon, c'est genial ta solution!

Merci infiniment,

Bon weekend à toi,

Carlos