Discussion :

[Lool69]

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:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

[a_diard]

J'ai essayé , je ne sais pas comment est activée la macro.

Je l'ai insérée dans un module.

Je ne sais pas comment est activée la macro

pour moi ça fonctionne.

Le fait de selectionner les cellules contenant le pourcentage n'est pas utile.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub speed2()
 
Application.ScreenUpdating = False
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("aiguille")).Select
Selection.ShapeRange.Rotation = Range("B2").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille1")).Select
Selection.ShapeRange.Rotation = Range("B3").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille2")).Select
Selection.ShapeRange.Rotation = Range("B4").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille3")).Select
Selection.ShapeRange.Rotation = Range("B5").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille4")).Select
Selection.ShapeRange.Rotation = Range("B6").Value * 188
Application.ScreenUpdating = True
 
End Sub

Je pense que ceci fonctionne egalement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub speed3()
 
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("aiguille")).Rotation = Range("B2").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille1")).Rotation = Range("B3").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille2")).Rotation = Range("B4").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille3")).Rotation = Range("B5").Value * 188
ActiveSheet.Shapes.Range(Array("aiguille4")).Rotation = Range("B6").Value * 188
Application.ScreenUpdating = True
 
End Sub

J'active la macro speed3
par une macro événementielle sur la feuille SECTEUR

Code :

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

1
2
3
Private Sub Worksheet_Activate()
speed3
End Sub