Passer une textbox en variable

Version imprimable

ReEdit avant réponse code changer question changer:

Bonjour,

Je bloque sur un truc assez simple au premier abord ... je ne comprend pas pourquoi cela ne marche pas.
Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub ComboBoxType_Change() Call Tris_ligne Me.TextBoxEnCoursDRM.value = CInt(Me.TextBoxATraiter.value) + CInt(Me.TextBoxCADRM.value) + CInt(Me.TextBoxRESPDRM.value) + CInt(Me.TextBoxRESPM2I.value) Call ProcCouleurIndic(Me.TextBoxATraiter, 10) Call ProcCouleurIndic(Me.TextBoxCADRM, 10) Call ProcCouleurIndic(Me.TextBoxRESPDRM, 10) Call ProcCouleurIndic(Me.TextBoxRESPM2I, 10) Call ProcCouleurIndic(Me.TextBoxRESPM2I, 25) End Sub Sub ProcCouleurIndic(TextBoxUtil As Object, pas As Integer) If CInt(TextBoxUtil.value) >= 0 And CInt(TextBoxUtil(Name).value) < pas Then TextBoxUtil.floreColor.value = &HC000& If CInt(TextBoxUtil.value) >= pas And CInt(TextBoxUtil.value) < pas * 2 Then TextBoxUtil.floreColor.value = &HFFFF& If CInt(TextBoxUtil.value) >= pas * 2 And CInt(TextBoxUtil.value) < pas * 3 Then TextBoxUtil.floreColor.value = &H80FF& If CInt(TextBoxUtil.value) >= pas * 3 Then TextBoxUtil.floreColor.value = &HFF& End Sub
En gros J'ai 5 textbox ou l'on retrouve forcément écrit des Chiffres entre 0 et 100.
Je veux un code couleur qui s'affiche suivant le nombre qui y est affiché.
J'ai donc crée une macro qui s'appel

Code:

Sub ProcCouleurIndic(TextBoxUtil As Object, pas As Integer)

comme vous pouvez voir j'ai mit en variable un textbox
je renseigne donc par exemple pour appeler cette macro

Code:

Call ProcCouleurIndic(Me.TextBoxATraiter, 10)

.
Me.TextBoxATraiter etant un textbox dans l'userform ME.

Cependant ce code

Code:

Me.TextBoxATraiter

me revoir un chiffre (contenu de la textbox) et non l'object.
j'ai donc sur cette ligne :

Code:

TextBoxUtil.floreColor = &HFF&

Ma macro me signifie un message d'erreur:

Citation:

"Propriété ou méthode non géré par cette Object"

.

Je pense que ca viens du faite qui ne reconnais pas mon textbox comme un object et je ne sais pas quoi faire pour qu'il le reconnaisse ...

Avez-vous des suggestion ?

Merci par avance,
Cordialement,
Passepartout007

Bonjour,

Un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub TextBox1_Change()
 
    Colorer TextBox1
 
End Sub
 
Private Sub TextBox2_Change()
 
    Colorer TextBox2
 
End Sub
 
Private Sub TextBox3_Change()
 
    Colorer TextBox3
 
End Sub
 
Sub Colorer(Txt As MSForms.TextBox)
 
    Select Case Txt.Text
 
        Case Is < 10: Txt.BackColor = &H80FF80
        Case Is < 20: Txt.BackColor = &H80FFFF
        Case Is < 30: Txt.BackColor = &HFF00FF
        Case Is < 40: Txt.BackColor = &H8080&
        Case Is < 50: Txt.BackColor = &HFFC0C0
        Case Is < 60: Txt.BackColor = &HFFFF80
        Case Is < 70: Txt.BackColor = &H8080FF
        Case Is < 80: Txt.BackColor = &HC000&
        Case Is < 90: Txt.BackColor = &HFFC0FF
        Case Is <= 100: Txt.BackColor = &HFF&
        Case Else: Txt.BackColor = &HFFFFFF
 
    End Select
 
End Sub

17/09/2019, 16h33
Passepartout007

Re

Bonjour,
Je sais que je peux passer par la te box change.
Cependant il faudrais que je le fasse pour chaque textbox et cette solution n'est pas pratique à toute modification du code...
Je souhaitais donc passer le textbox en variable mais je n'y arrive pas..

Bonjour,

mise à jour via un bouton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim MaTextBox As Control
    For Each MaTextBox In Me.Controls
        If TypeOf MaTextBox Is msforms.TextBox Then MetEnCouleur MaTextBox
    Next MaTextBox
End Sub
 
Sub MetEnCouleur(LaTextBox As msforms.TextBox)
    Select Case LaTextBox.Text
        Case Is < 10: LaTextBox.BackColor = &H80FF80
        Case Is < 20: LaTextBox.BackColor = &H80FFFF
        Case Is < 30: LaTextBox.BackColor = &HFF00FF
        Case Is < 40: LaTextBox.BackColor = &H8080&
        Case Is < 50: LaTextBox.BackColor = &HFFC0C0
        Case Is < 60: LaTextBox.BackColor = &HFFFF80
        Case Is < 70: LaTextBox.BackColor = &H8080FF
        Case Is < 80: LaTextBox.BackColor = &HC000&
        Case Is < 90: LaTextBox.BackColor = &HFFC0FF
        Case Is <= 100: LaTextBox.BackColor = &HFF&
        Case Else: LaTextBox.BackColor = &HFFFFFF
    End Select
End Sub

Citation:

Cependant il faudrais que je le fasse pour chaque textbox et cette solution n'est pas pratique à toute modification du code...
Je souhaitais donc passer le textbox en variable mais je n'y arrive pas..

Ok, donc, en passant par un module de classe !

Code à mettre dans l'UserForm :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim Txt() As New Classe1
 
Private Sub UserForm_Initialize()
 
    Dim Ctrl As Control
    Dim I As Integer
 
    For Each Ctrl In Me.Controls
 
        If TypeName(Ctrl) = "TextBox" Then
 
            'stocke le TextBox dans le tableau
            I = I + 1: ReDim Preserve Txt(1 To I)
            Set Txt(I).Txt = Ctrl
 
        End If
 
    Next Ctrl
 
End Sub

Code à mettre dans le module de classe nommé Classe1 (nom par défaut) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public WithEvents Txt As MSForms.TextBox
 
Private Sub Txt_Change()
 
    Select Case Txt.Text
 
        Case Is < 10: Txt.BackColor = &H80FF80
        Case Is < 20: Txt.BackColor = &H80FFFF
        Case Is < 30: Txt.BackColor = &HFF00FF
        Case Is < 40: Txt.BackColor = &H8080&
        Case Is < 50: Txt.BackColor = &HFFC0C0
        Case Is < 60: Txt.BackColor = &HFFFF80
        Case Is < 70: Txt.BackColor = &H8080FF
        Case Is < 80: Txt.BackColor = &HC000&
        Case Is < 90: Txt.BackColor = &HFFC0FF
        Case Is <= 100: Txt.BackColor = &HFF&
        Case Else: Txt.BackColor = &HFFFFFF
 
    End Select
 
End Sub

Quelque soit le nombre de TextBox sur l'UserForm, le code n'aura pas une ligne de plus ! Si tu veux modifier la procédure Change(), tu as juste à le faire dans le module de classe et elle le sera pour tous les TextBox puisqu'ils utilisent tous la même !

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public WithEvents Txt As MSForms.TextBox
 
Private Sub Txt_Change()
 With Txt
    Select Case .Text
 
        Case 0 to 9: .BackColor = &H80FF80
        Case 10 to 19:.BackColor = &H80FFFF
        Case 20 to 29: .BackColor = &HFF00FF
        Case 30 to 39: .BackColor = &H8080&
        Case 40 to 49: .BackColor = &HFFC0C0
        Case 50 to 59: .BackColor = &HFFFF80
        Case 60 to 69: .BackColor = &H8080FF
        Case 70 to 79: .BackColor = &HC000&
        Case 80 to 89: .BackColor = &HFFC0FF
        Case 90 to 100: .BackColor = &HFF&
        Case Else: .BackColor = &HFFFFFF
 
    End Select
End with

SOLUTION

Bonjour,

Je vous remercie pour votre aide.

J'ai compris mon erreur et je me suis inspiré de ce que vous avez fais pour amélioré ce que j'avais déjà fais.

Voici mon code, celui-ci fonctionne, il me permettra le jours ou je rajoute des textboxs de les rajouter facilement.
Et ainsi, de vérifier par le nom de la textbox que ce soit bien celle que je veux et d'appeler la macro qui change la couleur suivant la contenu de celle-ci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBoxType_Change()
Dim MatextBox As Control
For Each MatextBox In Me.Controls
    Select Case MatextBox.Name
                Case Is = "TextBoxATraiter": Call ProcCouleurIndic(MatextBox.value, MatextBox.Name, 10)
                Case Is = "TextBoxCADRM": Call ProcCouleurIndic(MatextBox.value, MatextBox.Name, 10)
                Case Is = "TextBoxRESPDRM": Call ProcCouleurIndic(MatextBox.value, MatextBox.Name, 10)
                Case Is = "TextBoxRESPM2I": Call ProcCouleurIndic(MatextBox.value, MatextBox.Name, 10)
                Case Is = "TextBoxEnCoursDRM": Call ProcCouleurIndic(MatextBox.value, MatextBox.Name, 25)
    End Select
Next MatextBox
End Sub

Code:

1
2
3
4
5
6
7
Sub ProcCouleurIndic(valeur As Integer, TextBoxUtil As String, pas As Integer)
 
If CInt(valeur) >= 0 And CInt(valeur) < pas Then Controls(TextBoxUtil).BackColor = &HC000&
If CInt(valeur) >= pas And CInt(valeur) < pas * 2 Then Controls(TextBoxUtil).BackColor = &HFFFF&
If CInt(valeur) >= pas * 2 And CInt(valeur) < pas * 3 Then Controls(TextBoxUtil).BackColor = &H80FF&
If CInt(valeur) >= pas * 3 Then Me.Controls(TextBoxUtil).BackColor = &HFF&
End Sub

Cordialement,

Passepartout007

18/09/2019, 09h58
Thumb down

bonjour,
pourquoi ces is?

Code:

Case "TextBoxATraiter" :