Couleur d'un textbox

[Cougar]

Bonsoir le forum,

Je cherche comment changer la couleur de fond d'un textbox selon 2 conditions sans succès. J'ai essayé ceci :

If tabtemp(O, 20) = True Then
CheckBox11.Value = True
OptionButton1.Value = True
TextBox4.BackColor = RGB(0, 32, 64) 'mais je veux bleu pâle
End If

Une petite idée ?

Merci

 

[porcinet82]

Re : Couleur d'un textbox

Salut Cougar,

Peut etre une solution via le fichier joint, c'est une démo faite par mon ami Hervé (que je salue au passage).

@+

 

[Eric C]

Re : Couleur d'un textbox

Bonjour le forum
Bonjour Cougar, bonjour Romain

Pour le bleu pale, essais :204, 255, 255.

Bonne journée à toutes & à tous

 

[Cougar]

Re : Couleur d'un textbox

Bonsoir le fil,

Snif, rien ne fonctionne.

Je cherche toujours.

Merci

 

[Mytå]

Re : Couleur d'un textbox

Salut le Forum

Cougar je comprends ton problème,

.BackColor = RGB(204, 255, 255)

Sinon un bout de fichier

Mytå

P.S. Macro RGB pour couleur

Sub Voir_Couleur()
c = Cells(1, 1).Interior.Color
bleu = c \ 65536
vert = (c - bleu * 65536) \ 256
rouge = c - bleu * 65536 - vert * 256
MsgBox (rouge & ", " & vert & ", " & bleu)
End Sub

Anti-slash volontaire

 

[Cougar]

Re : Couleur d'un textbox

Bonsoir le forum, Mytå,

Voici ce que j'ai essayé la dernière fois sans succès :

If tabtemp(O, 44) = True Then
TextBox5.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If

Cougar

 

[porcinet82]

Re : Couleur d'un textbox

Bonjour le fil,

Cougar, je ne comprends pas pourquoi cele ne fonctionne pas chez toi, cher moi la couleir du Textbox prends bien une couleur bleu ciel avec le code RGB de Mytå. Si ca ne fonctionne pas chez toi, c'est qu'il doit y avoir un problème dans ton code, tres certainement au niveau de la condition If tabtemp(O, 44) = True Then qui ne doit pas etre verifiée.

D'ailleur a quoi correspond tabtemp(O, 44) ?

@+

PS : Merci Mytå pour cette petite macro bien utile

 

[Cougar]

Re : Couleur d'un textbox

Bonjour le fil,

Le tabtemp fait référence à une cellule (mon tableau = A1:BD6985) à partier d'une autre.

J'inclus le userform seulement car même en diminuant mon fichier il dépasse la limite.

Merci.

 

[porcinet82]

Re : Couleur d'un textbox

re,

Je viens de regarde le code de ton USF, et sans le fichier, pas moyen de vérifier le code pas a pas, donc je te laisse le soin de le faire par toi meme. Si tu ne vois toujours pas le problème, esas de mettre ton fihcier en passat par Cjoint.com

Sinon en regardant ton code, j'ai vu pas mal de répétition que tu pourrais remplacer par des boucles (par exemple le code dans l'instruction Private Sub ComboBox4_Change() ):

apres la ligne de code Me.Label30.Caption = Me.ComboBox4.Text tu peux mettre :

    For i = 1 To 15
        If Controls("TextBox" & i) <= 0 Or Controls("TextBox" & i) = "" Then
            Controls("TextBox" & i).Value = ""
            Controls("TextBox" & i).BackColor = &H8000000F
        End If
    Next i

dans l'instrcution Private Sub UserForm_Initialize() :

    For i = 1 To 6
        Controls("OptionButton" & i).Value = False
    Next i
    For i = 1 To 15
        Controls("TextBox" & i).Value = False
        Controls("TextBox" & i).BackColor = &H80000005
    Next i

@+

 

[Cougar]

Re : Couleur d'un textbox

Bonjour le fil,

Je ne trouve pas mon erreur dans le pas à pas.

Voici le fichier avec Cjoint : http://cjoint.com/?iAqPdnOgPn

Merci

 

[Cougar]

Re : Couleur d'un textbox

Bonjour le fil,

J'ai trouvé mon erreur. Mauvaise référence à une cellule.

Merci tous pour votre aide.