Colorer les TextBox

Hello Excel Pratique

Hello tout le monde

SVP Gentelmans si vous pouvez m'aider a finir ce fichier

Merci beaucoup d'avance pour l'aide

Corialement

MARTI

Bonsoir,

Tu veux colorer des TextBox ?

Pas sorcier !

    TextBox1.BackColor = vbRed

tu peux utiliser les constantes vba pour les couleurs simples : vbRed, vbGreen, vbYellow... (8 couleurs de base incluant blanc et noir) et pour les autres couleurs utiliser la fonction RGB...

Et tu programmes ça sur l'évènement validation (AfterUpdate) des TextBox dont les changements de valeurs conditionnent les couleurs des autres...

Cordialement.

Hiii MFerrand

Merci beaucoup pour l'explication

Tres gentil de votre part

(( ....les changements de valeurs conditionnent les couleurs des autres....))

Comment exprimer ces valeurs par code svp

Amicalement

MARTI

C'est toi qui a défini les valeurs que tu prends en compte ! Dans les TextBox que tu surveilles, lors d'une modification, tu testes les nouvelles valeurs : instruction conditionnelle, If... Then... Else... End If. Et selon résultat du test tu mets la couleur prévue là où tu as prévu, ou tu l'ôtes !

Cordialement.

Merci Gentelman

En realite j'ai pas pu exprimer en code cette expression ( du .......jusqu'a ) .. commen exemple

Private Sub TextBox81_AfterUpdate()

If TextBox81.Value = 6 And TextBox82.Value = 21 Then

'comment exprimer mettre ces textBox du 6 jusqu'a 21 en BackColor = vbRed

Else

'ces textbox indiquee restent BackColor = &H80000005& (Blanche)

End If

End Sub

Amicalement

MARTI

Tu fais une boucle pour les servir tous.

Et pour raccourcir, dans la condition tu définis la couleur à appliquer, et dans la boucle tu l'appliques !

Private Sub TextBox81_AfterUpdate()
    Dim i%, clr&
    If TextBox81.Value = 6 And TextBox82.Value = 21 Then
        clr = vbRed
    Else
        clr = vbWhite
    End If
    For i = 6 To 21
        Controls("TextBox" & i).BackColor = clr
    Next i
End Sub

Et alors là il faut normalement que tu fasses la même chose pour le 82 !

Donc pour économiser du code, tu mets cette procédure dans une Sub autonome.

Sub CouleurTB6_21()

mais tu peux l'appeler comme tu veux..., et tes proc d'évènements deviennent :

Private Sub TextBox81_AfterUpdate()
    CouleurTB6_21
End Sub

Private Sub TextBox82_AfterUpdate()
    CouleurTB6_21
End Sub

Cordialement.

edit : Si problème lié au fait que TextBox = texte, tu mettras 6 et 21 entre guillemets...

Merci Gentelman

Mais vraiment je suis tres tres desole

Peut etre j'ai mal exprime car je parle pas bien la langue francaise malheureusement

Les valeurs que je vais ecrire dans les TextBox 81 jusqu'au TextBox84 sont varibles

C'est pas toujours du 6 jusqu'au 21

Alors je peux pas utiliser ce genre de code

Cordialement

MARTI

Si tu ne sais pas ce que tu veux, c'est autre chose !

Rien à voir avec le code !!! C'est ta définition des conditions en dehors de tout code qui est en cause !

Bonjour MARTI MARTI

a tester

Bonjour BOB71AU

Merci beaucoup pour l'aide

Merci 1000 fois pour votre gentillesse

BRAVO ..

C'est effectivement ce que j'ai voulu voir et avoir

Parfaitement resolu par votre part

Amicalement

MARTI