Création d'une boucle

[zeltron24]

Bonjour le Forum,

Pourriez vous m'aider à trouver une solution plus économique à ceci :

' Janvier
If FrmBilan.TxtEcart01 < 0 Then
FrmBilan.TxtEcart01.ForeColor = &HFF

End If

Cette condition se répète 40 fois dans une macro ce qui me fait une liste très longue. Serait il possible de la simplifié.
En sachant que TxtEcart01 va jusqu'à TextEcart39 (TxtEcart02...TxtEcart03...etc)
Merci pour votre aide

 

[Pierrot93]

Re : Création d'une boucle

Bonjour,

essaye peut être ceci :

Dim i As Byte
With Me
    For i = 1 To 39
        If .Controls("TxtEcart" & Format(i, "00")) < 0 Then _
            .Controls("TxtEcart" & Format(i, "00")).ForeColor = &HFF
    Next i
End With

bonne journée
@+

 

[zeltron24]

Re : Création d'une boucle

Bonjour Pierrot93
Merci,
Le problème est que dans mes TxtEcart.... j'ai des sommes positives et négatives, ce que je cherche à faire et de mettre les sommes positives en vert celles négatives en rouge et les valeurs 0 ou vide en blanc, afin de ne pas voir apparaitre les 0

 

[Pierrot93]

Re : Création d'une boucle

Re,

peut être convertir les "textbox" :

If CDbl(.Controls("TxtEcart" & Format(i, "00"))) < 0 Then _

 

[zeltron24]

Re : Création d'une boucle

Re,
Je viens d'essayer ton code, et j'ai un message "Utilisation incorrecte de Me

 

[Pierrot93]

Re : Création d'une boucle

Re,

Je viens d'essayer ton code, et j'ai un message "Utilisation incorrecte de Me

A utiliser dans le module de l'userform....

 

[zeltron24]

Re : Création d'une boucle

Re,
Ok je te remercie

 

[zeltron24]

Re : Création d'une boucle

Re,
Le plus simple et de regarder le classeur car je suis perdu rien ne va plus depuis les modifs
Merci

 

[Pierrot93]

Re : Création d'une boucle

Re,

si tu l'utilises dans un module standard, modifie comme suit :

Dim i As Byte
With FrmBilan
    For i = 1 To 11
        If CDbl(.Controls("TxtEcart" & Format(i, "00"))) < 0 Then
            .Controls("TxtEcart" & Format(i, "00")).ForeColor = &HFF
        ElseIf CDbl(.Controls("TxtEcart" & Format(i, "00"))) = 0 Then
            .Controls("TxtEcart" & Format(i, "00")).ForeColor = &HFFFFFF
        End If
    Next i
End With

la boucle dans l'userfor est erronée.... fait double emploi avec la procédure couleur que tu lances d'ailleurs....

 

[zeltron24]

Re : Création d'une boucle

Re,

OK ça fonctionne impeccablement
Merci beaucoup Pierrot93 je te souhaite une bonne journée
A+