Couleur d'un textbox

porcinet82

XLDnaute Barbatruc

• 24 Août 2006

• #2

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).

@+

 

Pièces jointes

• listviewcouleur (Hervé).xls

  42.5 KB · Affichages: 106

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 24 Août 2006

• #3

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 26 Août 2006

• #4

Re : Couleur d'un textbox

Bonsoir le fil,

Snif, rien ne fonctionne.

Je cherche toujours.

Merci

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 26 Août 2006

• #5

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 26 Août 2006

• #6

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

 

Dernière édition: 26 Août 2006

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 26 Août 2006

• #7

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 26 Août 2006

• #8

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.

 

Pièces jointes

• Cougar.zip

  6.2 KB · Affichages: 37
• Cougar.zip

  6.2 KB · Affichages: 54
• Cougar.zip

  6.2 KB · Affichages: 41

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 26 Août 2006

• #9

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 :

Code:

    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() :

Code:

    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

@+

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 26 Août 2006

• #10

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 26 Août 2006

• #11

Re : Couleur d'un textbox

Bonjour le fil,

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

Merci tous pour votre aide.

 

Dernière édition: 26 Août 2006

Vote positif 0 Vote négatif