couleur textbox actif

[Dennnisss]

bonjour messieur,mesdame

j'ai cree un userform avec 30 textbox et autant de label, alors mon probleme il faut porter une attention particuliere a savoir dans lequel je me trouve , est-il possible de faire changer la couleur de fond du textbox qui est actif pour mieux voir ou je suis rendu et le remettre a sa couleur initial apres
par defaut il on toute la couleur blanc de fond

exemple si je veut le fond bleu du text box lorsqu'il est actif
avez-vous une solution pour moi merci
je vous envoi un petit usf avec 6 textbox comme exemple

merci de votre attention

dennnisss

 

[myDearFriend!]

Re : couleur textbox actif

Bonsoir Dennnisss,

Ci-dessous, une manière de procéder...

Pour chaque TextBox, on utilise l'évènement Enter() comme suit (à reproduire pour chaque textbox) :

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] TextBox1_Enter()
    Curseur
[COLOR=NAVY]End Sub[/COLOR]
[/SIZE]

Puis on ajoute l'unique procédure Curseur() ci-dessous qui va gérer la couleur des TextBox :

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Curseur()
[COLOR=NAVY]Dim[/COLOR] Ctrl [COLOR=NAVY]As[/COLOR] Control
    [COLOR=NAVY]For Each[/COLOR] Ctrl [COLOR=NAVY]In[/COLOR] Me.Controls
        [COLOR=NAVY]If[/COLOR] TypeName(Ctrl) = "TextBox" [COLOR=NAVY]Then[/COLOR]
            Ctrl.BackColor = IIf(Ctrl [COLOR=NAVY]Is[/COLOR] ActiveControl, &H8000000D, &H80000005)
        [COLOR=NAVY]End If
    Next[/COLOR] Ctrl
[COLOR=NAVY]End Sub[/COLOR]
[/SIZE]

Cordialement,

 

[JYLL]

Re : couleur textbox actif

Bonsoir Dennnisss,

J'ai modifié ton classeur et cela fontionne.

Bon test.


Pardon Didier pas vu ta réponse.

 

[myDearFriend!]

Re : couleur textbox actif

Re,

Par ailleurs, tes procédures Keypress() accompagnées de la procédures Touch() sont fausses et ne peuvent pas fonctionner comme ça.

Il convient de faire pour chaque TextBox :

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] TextBox1_KeyPress([COLOR=NAVY]ByVal[/COLOR] KeyAscii [COLOR=NAVY]As[/COLOR] MSForms.ReturnInteger)
    KeyAscii = Touch(KeyAscii)
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Puis ajouter une Function Touch() et non une Sub :

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Function[/COLOR] Touch([COLOR=NAVY]ByVal[/COLOR] K [COLOR=NAVY]As Byte[/COLOR])
    [COLOR=GREEN]'Autorise uniquement les touches numériques[/COLOR]
    [COLOR=NAVY]Select Case[/COLOR] K
    [COLOR=NAVY]Case Is[/COLOR] < 48, [COLOR=NAVY]Is[/COLOR] > 57
        K = 0
    [COLOR=NAVY]End Select[/COLOR]
    Touch = K
[COLOR=NAVY]End Function[/COLOR][/SIZE]

Dennnisss, si je puis me permettre, tu ne t'en sortiras jamais si tu ne testes même pas tes codes... Avant d'imaginer rajouter de jolies couleurs et autres fioritures, je pense qu'il conviendrait déjà de se concentrer sur le fonctionnement même de ton projet et sur sa fiabilité.

Cordialement,

EDITION :
Oups, bonsoir Jyll, eh bien je ne t'avais pas vu non plus...

 

[Dennnisss]

Re : couleur textbox actif

hey bien merci tous le monde

cela fonctionne tres bien oui c'est cela que je cherche
excuser moi j'ai envoyer un vieux fichier que mdf m'avais donne en correction
mais celui la n'a pas ete modifie mais mon dossier principal a ete fait
desole pour les erreurs

dans l'exemple que vous m'avez envoyer est-ce que l'on peut gerer les couleurs

ex: TEXTBOX1.BACKCOLOR = & HCOFFFF = JAUNE

QUEL EST LE CODE SI IL Y EN A POUR LE BLEU LE ROUGE


MERCI VOUS ETES TRES EFFICACES LES REPONSES NE SE FONT PAS ATTENDRENT

merci dennnisss

 

[Mytå]

Re : couleur textbox actif

Salut le Forum

Une autre façon de faire avec les modules de classe.

Un exemple pour Guylaine sur le lien suivant

https://www.excel-downloads.com/threads/combobox.65511/

Mytå