Textbox - couleur suivant critere + modif case

[YannC.]

Textbox - couleur suivant critere + modif case (Reglé)

Bonjour à tous,

J'ai encore besion de votre aide. Je vous ai mis le fichier en P.J.

J'ai deux probleme :

1 : J'aimerai que suivant l'information marquer dans la textbox, quelle change de couleur. (ex : si TOTO textbox en rouge)

2 : Et j'aimerai aussi pouvoir changer les données des cases 1 et 2, à partir des case des colonnes de l'userform nommée 'changer colonne 1 & 2'

L'userform montre l'exemple, mais je n'ai pas reussi à mettre mais 2 problemes. Raison pour laquelle je viens vers vous



Merci pour votre aide.

 

[Hervé]

Re : Textbox - couleur suivant critere + modif case

bonjour

ok pour le 1 en piece jointe, par contre, j'ai pas compris pour le 2 🙂

salut

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Merci Herve,

Pour le N°2, j'aimerai pouvoir changer grace au colonne de droite nommé 'changé case 1 & 2', les textbox des deux premieres colonnes directement.

Par exemple, pour 2008 apparait toto 1 et toto 2 dans la premier ligne des textbox à gauche. J'aimerai pouvoir les modifier ou changer les nom en ecrivant dans les textbox appeller changer 'case 1 et 2' à droite de l'userform.

Merci

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Excuse moi herve, mais pour le 1, je pense que le fichier n'est pas celui modifier. Car il y a aucune difference, ou alors je n'arrive pas à le faire fonctionner.

Merci pour ton aide

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Si quelqu'un peut m'aider. ce serait vraiment cool. Car à ce niveau la je suis bloqué. Merci beaucoup

 

[Pyrof]

Re : Textbox - couleur suivant critere + modif case

Bonjour,

Pour la couleur modifie le vba des textbox comme suit

Private Sub TextBox1_Change()
TextBox1.BackColor = couleur(TextBox1)
End Sub



Function couleur(texte)
Select Case UCase(texte)
Case "TOTO": couleur = RGB(255, 255, 198)
Case "DUPOND": couleur = RGB(0, 0, 255)
Case "JPP": couleur = RGB(255, 0, 0)
Case Else: couleur = RGB(255, 255, 255)
End Select
End Function

Pour le second problème, je ne comprend pas .................

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Bo njour. Je te remercie. Est ce qu'il faut faire cela un à un pour toute les texbox, ou peut on faire en sorte que ce soit operationnel suivant n'importe laquel de celle ci ?

 

[Pyrof]

Re : Textbox - couleur suivant critere + modif case

Oui

Mais il y a une façon de généraliser pour toutes les textbox avec les modules de classe que je ne connais pas.

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Ok , je te remercie beaucoup pour ton aide, je vais essayer de trouver cette methode. Ou si quelqu'un peut m'aider, cela serait sans refus. MErci encore

 

[Staple1600]

Re : Textbox - couleur suivant critere + modif case

Bonjour


Cliques sur ce lien

Puis sur [Effectuez la recherche]

Tu trouveras plusieurs fils qui traitent des modules de classes.

Bonne lecture.

 

[skoobi]

Re : Textbox - couleur suivant critere + modif case

Bonjour tout le monde,

je te propose ceci:

1- A mettre tout en haut du code de l'USF:

Dim grp_txt() As New Cls_txtbx

2- A ajouter dans le code "Initialise":

Dim ButtonCount As Integer
ButtonCount = 0
For i = 6 To 65
  ButtonCount = ButtonCount + 1
  ReDim Preserve grp_txt(1 To ButtonCount)
  Set grp_txt(ButtonCount).ctl = Controls("TextBox" & i)
Next i

3- Tu crés un module de classe et tu le nommes "Cls_txtbx", puis tu y mets ce qui suit:

Public WithEvents ctl As MSForms.TextBox
Private Sub ctl_Change()
  With userform1.ctl
    Select Case .Value
    Case "TOTO": .BackColor = RGB(255, 255, 198)
    Case "DUPOND": .BackColor = RGB(0, 0, 255)
    Case "JPP": .BackColor = RGB(255, 0, 0)
    Case Else: .BackColor = RGB(255, 255, 255)
    End Select
  End With
End Sub

J'ai pas testé mais normalement c'est bon.

NB: cela suppose que ce sont uniquement les textbox 6 à 65 qui doivent changer de couleurs, sinon il faut modifier la ligne "For i = 6 To 65".

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Merci à tous les deux.

Skoobi je voulais voir avec toi une erreur qui bloque le lancement de l'user.

A la phrase :

1- A mettre tout en haut du code de l'USF:

Code:
Dim grp_txt() As New Cls_txtbx

Excel me marque le message suivant :

Erreur de compilation. Un module n'est pas de type valide.

Peux tu m'expliquer ou me dire de ou viens le probleme. Merci

Et pou le message suivant à mettre dans le module :

Public WithEvents ctl As MSForms.TextBox.

Excel me met en rouge WithEvents et me le marque en erreur.

Je te remercie de ton aide

P.S. : Je met le fichier modifier en piece jointe.

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Bonjour, j'ai trouver une d emes erreur. J'avais creer un module au lieu d'un module de classe et il me manquait la phrase Dim i as long dans l'user. Mais maintenant dans le module de classe j'ai une erreur avec

With USF.ctl

.

Par contre, là je ne comprend pas pourquoi?

 

[skoobi]

Re : Textbox - couleur suivant critere + modif case

Re,

petite erreur, enlève USF:

With ctl

Maintenant ça devrait être bon.

 

[YannC.]

Re : Textbox - couleur suivant critere + modif case

Excellent je te remercie beaucoup pour ton aide. Il me reste plus cas resoudre le point N°2

Merci encore à toi