Création d'un clignotant dans Excel

bonjour à tous,

je tiens à préciser j'ai juste les bases d'excel alors soyez indulgents si je ne comprends pas tout directement :mrgreen:.

voici mon probleme. je dois creer une application de mesure qui recuperee les données d'un capteur et qui en fonction des valeurs lues, fait clignoter une "led".
j'ai créé un userform sur excel avec un bouton , une zone de texte sur laquelle je récupère la valeur de mon capteur et une zone de texte qui me sert de Clignotant led.
pour une valeur attendue G = C*pas de mesure. je calcule la limite inférieur ininf= G*0.9 et une limite superieur insup=G*1.1
la valeur lue est C2.
l'objectif pour moi est d'ecrire :
Si C2 > insup ma case "Led" est rouge ,
si C2 < ininf ma case "led" est jaune
Si ininf <C2 < insup ma case "led" est verte

quand je change ininf et insup par une valeur pour tester ma fonction, tout se passe bien mais des que je remet ma variable, la fonction ne passe plus alors que les valeurs de chaque parametres sont bonnes. quelqu'un pourrait t'il m'aider à comprendre ce qui ne fonctionne pas?
le code que j'ai écris sur mon bouton est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Private Sub CommandButton1_Click() pas = 0.5 C = 60 C2 = cap2.Text G = C * (1 + pas)   insup = G * 1.1 ininf = G * 0.9   MsgBox C2 & vbNewLine & ininf & vbNewLine & insup   If C2 > insup Then MsgBox "superieur" L2.BackColor = &HC000&   Else If insup >= C2 Then MsgBox "inferieur" L2.BackColor = &HFFFF&   Else If ininf < C2 <= insup Then MsgBox "compris entre" L2.BackColor = &HC000& End If End If   End If   End Sub

---

Salut, voir dans la FAQ ?

Bonjour
Et si on parlait logique, avant même de parler informatique ?
Regarde --->>

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If C2 > insup Then ' 1) '.......   Else '2) c'est donc que C2 <= insup c'est à dire ce que dit ta ligne suivante ... If insup >= C2 Then ' pardi. Que pourrait-il être d'autre ? '..... Else ' sinon quoi ? Il est forcément 1) ou 2) -->> et tout ce qui suit est donc ignoré If ininf < C2 <= insup Then '...... End If End If   End If

---

Alors évidemment ....

Alors ?
1) tu commences par compléter ceci :

Citation:

---

Si C2 > insup ma case "Led" est rouge ,
si C2 < ininf ma case "led" est jaune
Si ininf <C2 < insup ma case "led" est verte

---

Où l'on ne voit pas ce que tu veux faire :
-si C2 = insup
- si C2 = ininf
2) tu ouvres ton aide interne VBA à la rubrique Select Case, instruction ==>> tu lis, ainsi que l'exemple qui l'accompagne ==> tu l'utilises (c'est vraiment très simple) avec un "select case C2".

PS : tu vas probablement me dire qu'il fallait savoir qu'existait cette instruction Select Case ===>> et je te répondrai alors ceci :
La rubrique Utilisation d'instructions If...Then...Else (puisque tu as utilisé cette instruction-là) affiche ceci, dès sa première phrase :

Citation:

---

L'instruction If...Then...Else permet d'exécuter une instruction spécifique ou un bloc d'instructions, selon la valeur d'une condition. Les instructions If...Then...Else peuvent être imbriquées au nombre de niveaux désiré. Cependant, pour favoriser la lisibilité du code, il est préférable d'utiliser une instruction Select Case plutôt que plusieurs niveaux d'instruction If...Then...Else imbriqués.

---

Tu vois le temps que tu aurais gagné ? ;)

Ne vois s'il te plait aucun reproche dans ce message. Il se veut simplement l'indication d'une méthode de travail/recherche qui te permettrait d'être bien plus performante et indépendante. ;)

ahah effectivement c'est un copié merdé ;)

Citation:

---

Envoyé par unparia

Bonjour
Et si on parlait logique, avant même de parler informatique ?
Regarde --->>

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If C2 > insup Then ' 1) '.......   Else '2) c'est donc que C2 <= insup c'est à dire ce que dit ta ligne suivante ... If insup >= C2 Then ' pardi. Que pourrait-il être d'autre ? '..... Else ' sinon quoi ? Il est forcément 1) ou 2) -->> et tout ce qui suit est donc ignoré If ininf < C2 <= insup Then '...... End If End If   End If

---

Alors évidemment ....

---

Pour repondre :
R-1) effectivement ça manquait de précision dans le code. Partons du postulat
Si C2 > insup ma case "Led" est rouge , ou 1
si C2 < ininf ma case "led" est jaune ou 2
Si ininf <= C2 <= insup ma case "led" est verte ou 3

R-2) effectivement le temps, c'est l’expérience ;) ( et l'organisation aussi ;) )

Du coup pour revenir à mes essais. voici comment j'ai structuré le code et les résultats:

code avec des valeurs ==> test ok pour C= 60 81 88 90 103

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If C2 > 90 Then MsgBox "superieur" coteattendue.Text = "1" Else If C2 < 81 Then MsgBox "inferieur" coteattendue.Text = "3" Else MsgBox "compris entre" coteattendue.Text = "2" End If   End If

---

code sans variable ==> test non ok. pour toutes les valeurs de tests j'ai "rouge / 1",

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If C2 > insup Then MsgBox "superieur" coteattendue.Text = "1" Else If C2 < ininf Then MsgBox "inferieur" coteattendue.Text = "3" Else MsgBox "compris entre" coteattendue.Text = "2" End If End If

---

Code avec variable et fonction select case ,test non ok. pour toutes les valeurs de tests j'ai "rouge / 1",

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Select Case C2 Case Is > insup coteattendue.Text = "1" 'L2.BackColor = &HFF&   Case ininf To insup coteattendue.Text = "2" 'L2.BackColor = &HFFFF&   Case Is < ininf coteattendue.Text = "3" 'L2.BackColor = &HC000&   End Select

---

je me demande s'il n’y a pas un problème de déclaration de variable parce que je suis toujours bloquée au même endroit :(

Citation:

---

Envoyé par unparia

Alors ?
1) tu commences par compléter ceci :

Où l'on ne voit pas ce que tu veux faire :
-si C2 = insup
- si C2 = ininf
2) tu ouvres ton aide interne VBA à la rubrique Select Case, instruction ==>> tu lis, ainsi que l'exemple qui l'accompagne ==> tu l'utilises (c'est vraiment très simple) avec un "select case C2".

PS : tu vas probablement me dire qu'il fallait savoir qu'existait cette instruction Select Case ===>> et je te répondrai alors ceci :
La rubrique Utilisation d'instructions If...Then...Else (puisque tu as utilisé cette instruction-là) affiche ceci, dès sa première phrase :

Tu vois le temps que tu aurais gagné ? ;)

Ne vois s'il te plait aucun reproche dans ce message. Il se veut simplement l'indication d'une méthode de travail/recherche qui te permettrait d'être bien plus performante et indépendante. ;)

---

Bonjour,

Dans ton Select Case, C2 est de type String.
Il te faut, pour pouvoir comparer avec une valeur numérique, la transformer en numérique :

Code:

---

Select Case CLng(C2)

---

merci pour le tuyau mais je voulais faire clignoter un élément texte dans un userform et non pas dans une cellule :)

Citation:

---

Envoyé par kiki29

Salut, voir dans la FAQ ?

---

Re, et alors le principe est le même, sinon en t'inspirant de ce timer, ne t'attend pas à du tout cuit.

Salut

Peux-tu poster les déclarations et ce que tu places dans insup et ininf stp

++
Qwaz