LIER UN OBJET A UNE LISTE DEROULANTE

[THIERRY35]

Bonjour,

il me manque un code VBA pour lier une liste déroulante à un un objet, dans mon cas c'est l'aiguille d'une jauge qui montre la progression d'un objectif.
J'ai un code
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes.Range(Array("AIGUILLE")).Select
Selection.ShapeRange.Rotation = Range("A2").Value * 248
End Sub
mais il faut faire entrer après chaque sélection.
Y a t'il un moyen d'éviter ce select.

Fichier ci joint,

Merci

 

[youky(BJ)]

Hello Thierry,
de retour ton fichier avec explications
J'ai ajouté Module1(insertion module et la macro à recopier
Affecte la macro cadran au bouton de la Liste
Bruno

 

[THIERRY35]

Hello Thierry,
de retour ton fichier avec explications
J'ai ajouté Module1(insertion module et la macro à recopier
Affecte la macro cadran au bouton de la Liste
Bruno

 

[THIERRY35]

Bonjour
merci de votre réponse mais le fichier joint ne me concerne pas, il ne s'agit pas de ma demande d'origine

Merci

 

[youky(BJ)]

Désolé voici le bon fichier
En ce moment je suis trop étourdi.
Bruno

 

[THIERRY35]

Super,

merci beaucoup ça fonctionne parfaitement sur mon fichier d'origine.
Mais que vient faire "Feuil6" dans le code? (l'onglet est nommé " indicateur (2)"
Puis je mettre un autre nom, car je vais copier cette feuille plusieurs fois avec des données différentes sur chacune d'elle.

Merci

 

[youky(BJ)]

Feuil6 est le CodeName de l'onglet et non le Name
Cela permet de pouvoir renommer l'onglet sans bug
Voir ce CodeName dans la fenêtre des propriétés
Si tu as plusieurs onglets avec le cadran utilises ActiveSheet à la place.
Bruno