Problème VBA d'une jauge verticale

Bonjour,

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

Bonjour et bienvenue ;)

Ci-joint le fichier modifié avec la jauge sur la deuxième feuille, les valeurs sur la première feuille et la variation de la jauge suivant la valeur de la cellule A4

Pièce jointe 29880

merci fring pour cette réponse rapide. Je pense que cela a du être "facile" pour toi.

Maintenant je vais essayer de la comprendre et de la comparé avec l'autre. Pour ma culture vba!! :)

Citation:

---

Envoyé par nichboul

Maintenant je vais essayer de la comprendre et de la comparé avec l'autre. Pour ma culture vba!! :)

---

Excellente initiative, n'hésite pas si besoin d'explication

fring, je voudrais savoir à quoi correspond le fait de mettre un . devant un objet dans le code vba.
.mercure....

merci

C'est ce qui le lie à la feuille 2, tu peux soit l'écrire comme ceci

Code:

---

1 2 3

Sheets(2).objet1 = "toto" Sheets(2).objet2 = "titi" Sheets(2).objet3 = "tutu"

---

soit comme ceci

Code:

---

1 2 3 4 5

With Sheets(2) .objet1 = "toto" .objet2 = "titi" .objet3 = "tutu" End With

---

le "with" te permet donc de ne pas taper à chaque fois le nom de la feuille.

merci

Exact, c'est valable pour tout, exemple pour une cellule

Code:

---

1 2 3 4 5 6 7

With Range("A1") If Range("C10") = "titi" Then .Value = "toto" '<-- concerne la cellule A1 .Interior.ColorIndex = 3 '<-- concerne la cellule A1 .Font.Bold = True '<-- concerne la cellule A1 End If End With

---

bonjour fring

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("B1:B4"), Target) Is Nothing Then seuilbas = Range("B1").Value '<-- valeur du seuil bas seuilhaut = Range("B2").Value '<-- valeur du seuil haut objectif = Range("B3").Value '<-- valeur de l'objectif jauge = Range("B4").Value '<-- valeur de la jauge Call jaugeV(seuilbas, seuilhaut, jauge, objectif)   End If End Sub

---

Le code du module (jaugeV) je l'ai à peu près compris, il n'y a pas trop de changement.
Par contre, le code ci dessus pose un peu pb. Surtout les 2 premières lignes :
Worksheet_Change ? c'est à dire à chaque fois qu'une cellle d'une feuille change??
Target as Range ?
If Not Application.Intersect(Range("B1:B4"), Target) Is Nothing Then ??
A quoi cela correspond t il concrètement
merci

Alors...

Code:

---

Private Sub Worksheet_Change

---

permet d'exécuter une action lors de l'évènement Change de la feuille, c'est à dire à chaque fois qu'on modifie la valeur d'une cellule.

Code:

---

Target as Range

---

Target signifie Cible et on définit l'objet Target en lui attribuant le type Range (cellule) ce qui en d'autres termes signifie la cellule cible (cellule concernée par le changement)

Code:

---

If Not Application.Intersect(Range("B1:B4"), Target) Is Nothing Then

---

Afin d'éviter d'exécuter l'action suite à un changement dans n'importe quelle cellule de la feuille, on peut définir une plage de cellule bien précise. En clair Intersect(Range("B1:B4"), Target) signifie "si la cible (Target) est comprise dans la plage de cellules B1:B4 alors on exécute l'action. Ce qui permet dans ton cas de mettre à jour la jauge en cas de modification d'une de ces 4 cellules.
En VBA c'est un peu tordu, au lieu de dire "si la cible est comprise", on dit "si la cible n'est pas n'est pas comprise".

Mes explications ne sont peut-être pas très limpides, jette un oeil dans l'aide de Visual basic, tu auras des explications plus détaillées.

merci bien pour tous ces renseignements. J'ai également regardé l'aide d'excel mais c'est bien d'avoir 2 points de vue.

Citation:

---

Envoyé par fring

En VBA c'est un peu tordu, au lieu de dire "si la cible est comprise", on dit "si la cible n'est pas n'est pas comprise".

---

Je me permets une petite correction.
VBA n'est pas tordu, il applique une notion élémentaire de maths modernes.

Il faut lire: "Si l'intersection entre la cible et la plage de référence n'est pas vide (ou égale à rien)".