Discussion :

[rbakkali]

Salut ts le monde,
Je bosse sur une bd et je bloque sur mon formulaire.
J'ai un champs "satisfaction" qui aura comme valeur "de 0 à 10" mais je voudrais qu'il soit représenté comme ceci:
10 petits rectangle(1X1) cote à cote pour former une barre de 10X1. avec un bouton "+" et un bouton "-". Chaque fois que l'utilisateur pousse sur le "+"
0=blanc
1=jaune clair
2=jaune foncé
3=orange clair ..... 10= rouge

Vous seriez super sympa de me répondre, je trouve rien sur le net.
Merci

[seb92400]

Idée... En créant une boucle sur la valeur sélectionnée... On affiche le nombre de petits rectangles...

[rbakkali]

Merci d'avoir répondu
Peux-tu développer ta réponse svp. Merci

[argyronet]

Bonjour,

Il y a un exemple sur des valeurs dans le forum...
Bon, je me fends d'un exemple, à toi d'adapter :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Option Compare Database
Option Explicit
 
Private m_intValeur As Integer
 
Private Const BLANC = 16777215
Private Const JAUNEC = 10092543
Private Const JAUNEF = 49087
Private Const ORANGEC = 10079487
Private Const ORANGEF = 26367
Private Const MARRONC = 18137
Private Const MARRONF = 13209
Private Const VIOLETC = 16751052
Private Const VIOLETF = 6697881
Private Const ROUGE = 255
 
Private Sub cmdMoins_Click()
Dim I  As Integer
Dim oCTL As Control
    m_intValeur = m_intValeur - 1
    If m_intValeur < 1 Then
        m_intValeur = 1
        cmdPlus.Enabled = True
        cmdPlus.SetFocus
        cmdMoins.Enabled = False
    End If
    For I = 1 To m_intValeur
        Set oCTL = Form.Controls("RectangleSatisfaction" & Trim(Str(I)))
        oCTL.BackColor = Choose(I, BLANC, JAUNEC, JAUNEF, ORANGEC, ORANGEF, MARRONC, MARRONF, VIOLETC, VIOLETF, ROUGE)
    Next
    For I = m_intValeur To 10
        Set oCTL = Form.Controls("RectangleSatisfaction" & Trim(Str(I)))
        oCTL.BackColor = BLANC
    Next
    Set oCTL = Nothing
    lblValeur.Caption = m_intValeur
End Sub
 
Private Sub cmdPlus_Click()
Dim I  As Integer
Dim oCTL As Control
    m_intValeur = m_intValeur + 1
    cmdMoins.Enabled = True
    If m_intValeur >= 11 Then
        m_intValeur = 10
        cmdMoins.SetFocus
        cmdPlus.Enabled = False
        Exit Sub
    End If
    For I = 1 To m_intValeur
        Set oCTL = Form.Controls("RectangleSatisfaction" & Trim(Str(I)))
        oCTL.BackColor = Choose(I, BLANC, JAUNEC, JAUNEF, ORANGEC, ORANGEF, MARRONC, MARRONF, VIOLETC, VIOLETF, ROUGE)
    Next
    Set oCTL = Nothing
    lblValeur.Caption = m_intValeur
End Sub

Argy

[ft035580]

Salut,

Sinon un petit bricolage.

[seb92400]

Je viens d'avoir une autre idée... Pourquoi ne pas utiliser la police terminal et le caractère Û (qui affiche un rectangle plein)... par exemple :

Pour valeur = 1, on affiche "ÛÛ" couleur rouge...
Pour valeur = 2, on affiche "ÛÛÛÛ" couleur jaune-orangé...
etc...

On place ce champ sur un fond blanc, par exemple, et on obtient un genre de bargraph...