XL 2016 Barre de défilement

Phil69970 à dit:

Bonjour @Cuto1972

Essaye comme ceci

VB:

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

Cliquez pour agrandir...

fanch55 à dit:

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 .

Cliquez pour agrandir...

fanch55 à dit:

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 )​

Cliquez pour agrandir...

fanch55 à dit:

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 )​

Cliquez pour agrandir...