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

LIER UN OBJET A UNE LISTE DEROULANTE

THIERRY35

XLDnaute Occasionnel
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
 

Pièces jointes

  • MODELE.xlsx
    16.7 KB · Affichages: 36

youky(BJ)

XLDnaute Barbatruc
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
 

Pièces jointes

  • Exemple.xlsm
    217.9 KB · Affichages: 23

THIERRY35

XLDnaute Occasionnel
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)

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…