Discussion :

[dodo28]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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

[dodo28]

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

[dodo28]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo28]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo28]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Tbox.Font.ColorIndex = 3

Pouvez vous m'aider
merci

[laetitia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo28]

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