La Vouivre
XLDnaute Occasionnel
Bonsoir à tous
Je suis entrain de faire un jeu de compteur, j’ai récupéré une macro sur le web qui marche bien.
Mais j’ai un petit souci avec les formules et les enregistrements.
La macro
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("curseur")).Select
Selection.ShapeRange.Rotation = Range("o4").Value * 3.6
Range("P1").Select
Application.ScreenUpdating = True
End Sub
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Sur la cellule « O4 » si je rentre une valeur à la main entre 0 et 11 le curseur tourne apres avoir
Si je mets un ScrollBar avec une liaison pour la cellule « O4 » plus rien ne fonctionne
J’ai essayé avec « Worksheets("Feuil1").Calculate » mais rien ne se passe c’est forcement pas le bon code .
Comment je peu faire pour faire fonctionner la macro si la cellule « O4 » est renseigner par un ScrollBar
Je suis entrain de faire un jeu de compteur, j’ai récupéré une macro sur le web qui marche bien.
Mais j’ai un petit souci avec les formules et les enregistrements.
La macro
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("curseur")).Select
Selection.ShapeRange.Rotation = Range("o4").Value * 3.6
Range("P1").Select
Application.ScreenUpdating = True
End Sub
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Sur la cellule « O4 » si je rentre une valeur à la main entre 0 et 11 le curseur tourne apres avoir
Si je mets un ScrollBar avec une liaison pour la cellule « O4 » plus rien ne fonctionne
J’ai essayé avec « Worksheets("Feuil1").Calculate » mais rien ne se passe c’est forcement pas le bon code .
Comment je peu faire pour faire fonctionner la macro si la cellule « O4 » est renseigner par un ScrollBar