XL 2016 [Résolu] Erreur macro : Obj doesn'tsupport this property or method

[3xceln4ute]

Bonjour,

J'essaie d'associer un code macro à un speedomètre, mais j'ai une erreur 438 relative au message cité en objet qui s'affiche.

Voici la ligne signalée:

ActiveSheet.Shape.Range(Array("Aiguille")).Select

Voici le code au complet:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
ActiveSheet.Shape.Range(Array("Aiguille")).Select
Selection.ShapeRange.Rotation = Range("c2").Value / 5
Range("c2").Select
Application.ScreenUpdating = True

End Sub

Je vous remercie.

 

[Staple1600]

Bonsoir le fil, le forum

Ca devrait fonctionner ainsi, non ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Shape
Set sh = ActiveSheet.Shapes("Aiguille")
Application.ScreenUpdating = False
sh.Rotation = Range("C2").Value / 5
Application.ScreenUpdating = True
End Sub

 

[3xceln4ute]

Bonsoir le forum, Staple16000,

L'erreur n'apparaît plus mais l'aiguille ne pointe pas vers le résultat.
Par exemple à 40%, elle devrait pointé l'indice "2 jrs".

Merci.

 

[Staple1600]

Re

Lors de ton test:
Quelle la valeur saisie en C2 ?

 

[3xceln4ute]

Re,

La cellule C2 indique 2.

 

[Staple1600]

Re

@subirubi
Merci de supprimer mon pseudo dans le titre de ta discussion.
[RESOLU] suffit amplement

(Voir ici le pourquoi de ma demande)
https://www.excel-downloads.com/threads/les-titres-des-fils.20019572/

EDITION: Je parlais d'éditer le titre de ton message
Pas de supprimer ton dernier message

 

[3xceln4ute]

Re

Merci de supprimer mon pseudo dans le titre de ta discussion.
[RESOLU] suffit amplement

Re,

En fait, j'ai crié victoire trop rapidement. Le problème persiste

 

[Staple1600]

Re

Relis quand même mon dernier message (pour infos notamment en suivant le lien qui s'y trouve)

Sauf erreur de ma part, la rotation s'exprime en ° pas en %, non ?

 

[3xceln4ute]

Re,
@Staple1600

En fait, ça ne devrait pas déranger si je me base sur le tuto youtube :

En passant, merci de m'avoir donner la raison pour laquelle on met seulement "Résolu".

 

[Staple1600]

Re

Euh si j'étais mois, j'irais voir ailleurs, non?
Voila ce que dit YouTube

Soyez prudent, ce site peut présenter des risques.
Le site auquel vous tentez d'accéder (learnaccess.kneo.me) peut présenter des logiciels malveillants, des tentatives d'hameçonnage ou des contenus choquants.

 

[3xceln4ute]

Étonnant :/, ce n'est qu'une vidéo sur youtube qui ne devrait pas contaminer quiconque.

 

[Staple1600]

Re

Je parle du lien indiqué sous la video quand on regarde la video directement sur youtube
(ce que j'ai fait)

 

[3xceln4ute]

Humm, j'ai visité le site et y a rien d'alarmant.

Mis à part ça, est-ce qu'il y a moyen de faire bouger l'aiguille pour indiquer le bon résultat ?

 

[3xceln4ute]

Coucou,

Finalement, j'ai eu raison du code et ai trouvé la solution. J'ai ajouté *100 à la ligne de la formule.

Selection.ShapeRange.Rotation = Range("b1").Value / 5 * 100

Merci @Staple1600 pour ton aide.