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

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #2

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

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 17 Décembre 2017

• #3

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #4

Re

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

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 17 Décembre 2017

• #5

Re,

La cellule C2 indique 2.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #6

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 🙄

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 17 Décembre 2017

• #7

Staple1600 à dit:

Re

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

Cliquez pour agrandir...

Re,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #8

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 ?

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 17 Décembre 2017

• #9

Re,
@Staple1600

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

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #10

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 17 Décembre 2017

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2017

• #12

Re

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

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 18 Décembre 2017

• #13

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 ?

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 18 Décembre 2017

• #14

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.

 

Vote positif 0 Vote négatif