Discussion :

[harry226h]

bonjour le forum
Je viens une fois de plus solliciter votre aide.

j'essai de faire une mise en forme conditionnelle sur la valeur d'un controle de formulaire.

J'aimerais que le backcolor du control "zpa" soit vert si sa valeur est comprise entre la valeur du control min et la valeur du control max.
Lorsque j'essai le code ci dessous le mise en forme ne s'applique que sur le control "zpa1".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande4601_Click()
Dim i As Integer
 
        For i = 1 To 5
        If Me.Controls("cda" & i) > Me.Controls("MinA") And Me.Controls("cda" & i) < Me.Controls("MaxA") Then
        Me.Controls("cda" & i).BackColor = vbGreen
        Else
        Me.Controls("cda" & i).BackColor = vbRed
        End If
        Next
 
End Sub

Merci d'avance pour votre aide

cordialement

[EricDgn]

Bonjour,
Le format conditionnel s'appliquera aux contrôles "cda1", "cda2", "cda3", "cda4" et "cda5". Les autres contrôles conservent leur format initial.
Attention que > n'est pas la même chose que >=. Idem < est différent de <=.
Cordialement.

[harry226h]

Merci pour la reponse Eric mais le soucis c'est qu'il s'applique uniqiement a cda1

[EricDgn]

Bizarre. Aussi, vérifier que les contrôle cda ont bien été nommés en ajoutant temporairement ce code dans la macro

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande4601_Click()
    Dim c As Control
    For Each c In Controls
        If c.Name Like "*cda*" Then Debug.Print c.Name
    Next c
    Dim i As Integer
    ...
End Sub

Cordialement