Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment orienter une flèche selon une inclinaison?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Mat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Mat

Guest
Bonjour,

Je cherche à faire varier l'inclinaison d'une flèche ou d'image selon une inclinaison donnée par une scrollbar.
Ci-joint un fichier d'exemple.
0° = flèche vers le bas
90° = flèche vers la droite
-90° = flèche vers la gauche

Si vous avez des idées je suis preneur. Merci

Amicalement,

Mat
 

Pièces jointes

Trier par date Trier par votes
Re : Comment orienter une flèche selon une inclinaison?

Bonsour®
il faut utiliser l'évenement change du scrollbar (VBA)

Sub Barrededéfilement4_QuandChangement()
ActiveSheet.Shapes("Fleche").Rotation = 180 - [B2]
End Sub
 
Vote positif 0 Vote négatif
Re : Comment orienter une flèche selon une inclinaison?

Bonjour Modeste Geedee,
Re,

Excel ne sait pas faire de rotation depuis un bord, donc il faut faire une rotation sur le centre puis déplacer la flèche pour que son début soit toujours au même endroit, pas forcément simple
Ou alors il faut retracer la flèche à chaque fois en calculant les coordonnées du point d'arrivée en fonction de l'angle choisi
Bref, un peu embêtant, mais je vais essaye de regarder
 
Vote positif 0 Vote négatif
Re : Comment orienter une flèche selon une inclinaison?

Bonsoir à tous


Sur la base du code de tototiti2008 :​
VB: 
Private Sub Worksheet_Calculate()
Dim x#
    x = -Range("B2").Value * 3.14159265358979 / 180
    With ActiveSheet.Shapes("Line 6")
        .Rotation = -Range("B2").Value
        .Left = 450 - .Height * Sin(x) / 2
        .Top = 0 + .Height * Cos(-x) / 2
    End With
End Sub



ROGER2327
#6182

Jeudi 12 Tatane 139 (Saints Cannibales, philanthropes - fête Suprême Quarte)
7 Thermidor An CCXX, 7,2203h - armoise
2012-W30-3T17:19:43Z
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Comment orienter une flèche selon une inclinaison?

Bonsour®
Mat à dit:
Super! Merci à tous!

Par contre j'ai pas tout pigé avec la girouette. Je vais essayer de la reproduire.
Cliquez pour agrandir...

😎 en fait pour le fun...
il y a 3 objets :
"Origine" et "pointe" sont réduit à taille mini, pointe est assimilé à un "satellite" de origine positionnés dans le plan selon equation trigo (fonctions circulaires).
la fleche elle-même n'est qu'un connecteur entre ces 2 objets.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
366
Magnio
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
846
Lu76Fer
L
  • Question Question
XL 2013 Liste en cascade
Réponses
8
Affichages
923
Lou61
L
POWERQUERY :: Unpivot d'une table de données style Comptable - transposition dans une table structurée - exploitable pour construire des TCD
Réponses
0
Affichages
610
oguruma
C
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
C
  • Résolu(e)
XL 2016 Problème sur une validation de cellule
Réponses
13
Affichages
1 K
TooFatBoy
M
  • Question Question
Microsoft 365 Aide pour une décrémentation d'une quantité en stock selon date de péremption
Réponses
2
Affichages
2 K
Mike047
M
P
  • Question Question
XL 2016 [RESOLU] Additionner résultats de deux TCD
Réponses
6
Affichages
4 K
Poptar
P
I
  • Question Question
XL 2010 Transfert d'une variable d'un userform à une macro
Réponses
2
Affichages
1 K
Dudu2
A
  • Résolu(e)
XL 2019 Activer un onglet en fonction d'une variable // copier-coller sur une ligne vide mais à compter de la ligne 16
Réponses
5
Affichages
2 K
ALFM2021
A
S
  • Question Question
XL 2016 Récupérer une formule dans une autre cellule
Réponses
6
Affichages
2 K
Serge6926
S
A
  • Question Question
XL 2016 Afficher un mot aléatoire et retrié dans une nouvelle liste
Réponses
2
Affichages
893
adgm1
A
M
  • Résolu(e)
Microsoft 365 Copier/coller à droite ou en bas selon critère
Réponses
8
Affichages
1 K
Staple1600
  • Question Question
[RESOLU] Extraction Nom dans une étiquette après un retour chariot
Réponses
8
Affichages
832
Daniel38
R
  • Question Question
VBA - valeurs incrémentielles selon conditions
Réponses
0
Affichages
983
Raka
R
R
  • Question Question
VBA ; recherche de valeurs mini sur une plage de façon dynamique
2 3
Réponses
30
Affichages
5 K
Raka
R
O
  • Question Question
XL 2016 Faire une moyenne jusqu'à ; Faire un graphique adaptatif
Réponses
4
Affichages
2 K
Onecraft
O
R
  • Résolu(e)
Autres Copier des feuilles d'un classeur à partir de données identiques
Réponses
2
Affichages
1 K
Renaud22
R
M
  • Question Question
XL 2019 Création plages d'horaires automatiques sur un créneau donné
Réponses
7
Affichages
6 K
Matt_B
M
A
  • Question Question
VBA excel comment differencier les dates du texte dans chaque cellule d'une colonne
Réponses
11
Affichages
3 K
Aimedija
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…