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

3xceln4ute · 17 Décembre 2017

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:

Code:

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

Voici le code au complet:

Code:

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 · 17 Décembre 2017

Bonsoir le fil, le forum

Ca devrait fonctionner ainsi, non ?

VB:

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 · 17 Décembre 2017

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 · 17 Décembre 2017

Re

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

3xceln4ute · 17 Décembre 2017

Re,

La cellule C2 indique 2.

Staple1600 · 17 Décembre 2017

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 · 17 Décembre 2017

Staple1600 à dit:
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 · 17 Décembre 2017

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 · 17 Décembre 2017

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 · 17 Décembre 2017

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 · 17 Décembre 2017

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

Staple1600 · 17 Décembre 2017

Re

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

3xceln4ute · 18 Décembre 2017

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 · 18 Décembre 2017

Coucou,

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

Code:

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

Merci @Staple1600 pour ton aide.

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

3xceln4ute

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

3xceln4ute

XLDnaute Occasionnel

Discussions similaires