Je dois réaliser une jauge verticale pour un tableau de bord.
J'ai le code vba de l'ouvrage d'Alain Fernandez (l'essentiel du tableau de bord) mais je voudrais le modifier mais je n'y arrive pas.
Ce que je voudrais :
- avoir une cellule valeur qui permet de mettre à jour la jauge à la place d'un scrollbar
- mettre la jauge dans la feuil2 par exemple et les données dans la feuil1
Merci par avance
Code :
Private Sub ScrollBar1_Change()
seuilbas = Range("J6" ).Value 'lit la valeur du seuil bas en H12
seuilhaut = Range("J7" ).Value 'lit la valeur du seuil haut en H13
objectif = Range("J8" ).Value 'lit la valeur de l'objectif
>> seuilbas = Range("J6" ).Value 'lit la valeur du seuil bas en H12 C'est quoi ce foutage de gueule ?
Si tu as plusieurs feuilles, il faut explicitement les désigner quand tu fais référence à une cellule :
Code :
seuilbas = Range("H12" ).Value 'lit la valeur du seuil bas en H12
seuilbas = Wordksheet("Feuil1" ).Range("H12" ).Value 'lit la valeur du seuil bas en Feuille1, H12
Si ton code fait référence à une scrollbar, (ScrollBar1_Change(), ScrollBar1.Value) et que tu n'en veux pas, il faut sans doute changer certaines choses, je te l'accorde. Réfléchis un peu et reviens avec une solution, même bancale. On t'aidera.
