Aide macro Speedomètre
Bonjour à la communauté
Premier post pour moi merci par avance pour votre aide
Voila j'ai crée plusieurs speedomètres à aiguille que je souhaite activer en fonction des résultats de commerciaux qui sont renseignés sous différents onglets dans le même classeur. Ma macro fonctionne quand je saisis manuellement les chiffres dans la feuille speedomètre active mais rien ne se passe ou les aiguilles bougent n'importe comment quand je saisis les données sur les onglets des commerciaux qui seront utilisateurs.
Je joins le fichier en PJ
Mon objectif d'utilisation: commercial 1,2 et 3 saisissent leurs ventes (%) des produits A/B/C/D sur leurs onglets/ cela alimente l'onglet "SECTEUR" et fait bouger les aiguilles par produit automatiquement
Merci pour votre aide
L
Voila ma macro actuelle:
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("aiguille")).Select
Selection.ShapeRange.Rotation = Range("B2").Value * 188
Range("B2").Select
ActiveSheet.Shapes.Range(Array("aiguille1")).Select
Selection.ShapeRange.Rotation = Range("B3").Value * 188
Range("B3").Select
ActiveSheet.Shapes.Range(Array("aiguille2")).Select
Selection.ShapeRange.Rotation = Range("B4").Value * 188
Range("B4").Select
ActiveSheet.Shapes.Range(Array("aiguille3")).Select
Selection.ShapeRange.Rotation = Range("B5").Value * 188
Range("B5").Select
ActiveSheet.Shapes.Range(Array("aiguille4")).Select
Selection.ShapeRange.Rotation = Range("B6").Value * 188
Range("B6").Select
Application.ScreenUpdating = True
End Sub
Bonjour,
Une option serait d'utiliser l'événementiel (Worksheet_Activate).
Ainsi, les gens saisissent leurs données.
En sélectionnant le feuille "Secteur", les speedomètres se mettront à jour.
Le problème étant qu'il faut sélectionner l'objet pour le modifier (aiguilles).
Un essai ...
ric
Merci Ric de ta correction c'est beaucoup mieux !!!
Peux tu m'expliquer ce que tu veux dire par "Le problème étant qu'il faut sélectionner l'objet pour le modifier (aiguilles)"?
Merci bcp
Bonjour,
Les aiguilles sont un type d'objet qu'il faut sélectionner pour pouvoir le modifier (rotation).
Pour ce type de sélection, il faut que la feuille soit en avant plan (sélectionnée ( à l'écran )).
Sinon, le code ne peut agir sur eux. Du moins, si c'est possible, je ne sais pas le faire.
ric