si textbox modifié caracteres rouge

Bonjour le forum,

Pouvez me renseigner sur la procedure à effectuer pour :
J'ai un userform contenant plus de 60 textboxs. Si modification d'un ou plusieurs textboxs est il possible d'ecrire en rouge dans les textboxs concernés.
l'userform est alimenté par une toupie.

j'ai debuté un code mais vraiment pas sur qui je pense ira dans UserForm_Initialize().

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub EcritureRougeSiModif() Dim TBox As Control   For Each TBox In Me.Controls If Me.Controls Then 'est modifié, je ne sais pas comment dire si modifié Me.TBox = Font.ColorIndex = 3 End If Next     End Sub

---

Merci pour votre aide.

Bonjour

Il faudrait que tu précises comment est fait la modification et par rapport à quoi ?

Il existe un évènement Change pour les zones de texte.

Philippe

Bonjour Philippe,
j'ai bien vu l'evenement change mais comme j'ai plus de 60 textboxs dans mon userform, cela me ferai plus de 60 evenements à créer.
La modification s'effectue sur l'userform; par exemple sur le Te_InvCh (textbox) s'affiche 100 et je modifie la valeur par 150 alors 150 doit etre en rouge.
Ensuite j'ai creer un code qui sauvegarde avec la forme la modification.
merci pour ton aide

re,

Vu qu'il n'y a pas de solution à mon probléme. j'ai tenté de devier en obligeant de cocher une case pour effectuer la saisie

j'ai essayer ce petit code pour comprendre il ne plante pas mais rien ne ce passe.
ce code dit (enfin je pense) : si la case a cocher est coché alors tu peux ecrire en rouge dans les texbox de l userform et si pas cocher saisie impossible dans les textbox de l userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub UserForm_Initialize()   Dim Tbox As Control   For Each Tbox In Me.Controls   If CheckBox1 = True Then   If TypeOf Tbox Is MSForms.TextBox Then Tbox.Object.Enabled = True Tbox.Font.ColorIndex = 3 Else Tbox.Object.Enabled = False End If   End If Next     End Sub

---

merci pour votre aide

Bonjour,
toujours sur mon probléme, je fait un essai avec ce code et toujours il est toujours non fonctionnel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub UserForm_Initialize()   Dim Tbox As Control   If CheckBox1 = True Then   For Each Tbox In UserForm1.Controls       If TypeName(Tbox) = "TextBox" Then   Tbox.Enabled = True Tbox.Font.ColorIndex = 3 Else Tbox.Enabled = False End If       Next Tbox End If End Sub

---

Voyez vous une erreur ou mon code est mal fait?
Merci pour votre aide

re,
Avec ce code mis dans checkbox_change , ca marche en partie il bloque l'ecriture quand le checkbox est desactivé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CheckBox1_Change()   Dim Tbox As Control   For Each Tbox In Me.Controls   If TypeName(Tbox) = "TextBox" Then   If CheckBox1 = True Then Tbox.Enabled = True 'Tbox.Font.ColorIndex = 3 Else Tbox.Enabled = False End If   End If Next Tbox End Sub

---

Mais je voudrais forcé l'ecriture en rouge quand le checkbox est activé
j'ai mis cette ligne mais elle plante

Code:

---

Tbox.Font.ColorIndex = 3

---

Pouvez vous m'aider
merci

bonjour dodo28 Philippe le forum peut etre en passant par un module de classe

un exemple basique passe en rouge le texte des textboxs si CheckBox1 = True

code module de classe

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Public WithEvents txt As MSForms.TextBox, i As Byte Private Sub txt_Change() For i = 1 To 60 If UserForm1.CheckBox1 = True Then UserForm1.Controls("Textbox" & (i)).ForeColor = &HFF& Else UserForm1.Controls("Textbox" & (i)).ForeColor = &H80000008 End If Next i End Sub

---

code user

Code:

---

1 2 3 4 5

Option Explicit Dim txt(1 To 60) As New classe1, i As Byte Private Sub UserForm_Initialize() For i = 1 To 60: Set txt(i).txt = Controls("textbox" & i): Next i End Sub

---

a adapter j'ai pris 60 textbox non renommees

Excuse moi je n'avais pas vu ta reponse et
Merci beaucoup Laetitia