Discussion :

[fluxtow]

Bonjour,

j'arrive pour la 1ere fois sur le site et j'en remercie deja son existence.

Bon, mon pb est simple, et le fait d'être ultra novice en Excel n'aide pas à le resoudre. J'ai plusieurs compteurs avec aiguilles sur une feuille en réponse aux objs des commerciaux. Cependant je ne peux pas en mettre plus d'un, mon code plante juste ensuite.



Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("Image 1")).Select
Selection.ShapeRange.Rotation = Range("E7").Value * 170
Range("E7").Select
Application.ScreenUpdating = True
 
End Sub

J'aimerai ajouter quelque chose dans le style (avec un 2eme compteur puis un 3eme etc.)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("Image 2")).Select
Selection.ShapeRange.Rotation = Range("E8").Value * 170
Range("E8").Select
Application.ScreenUpdating = True

Je vous sollicite pour m'aider svp Merci d'avance