Discussion :

[natakou]

bonjour à tous,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut, voir dans la FAQ ?

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

[unparia]

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

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 :

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.

[natakou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case CLng(C2)

[natakou]

ahah effectivement c'est un copié merdé

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

[natakou]

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

Salut, voir dans la FAQ ?

[kiki29]

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

[Qwazerty]

Salut

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

++
Qwaz