Discussion :

[Passepartout007]

Bonjour,

Je déclare ma feuille active comme public

Code :

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

Public Feuilleactive As String

que je déclare à initialisation du l'userform

Dans un textbox exit je met le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TxtDateDeb_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TxtDateColoration TxtDateDeb.Value, "TxtDateDeb"
 
    If TxtDateDeb.BackColor = &HFFFFFF Then
    'On masque/affiche la label d'avertissement
    LblInvalid.Visible = False
 
    'On détermine l'activation du bouton Rechercher
    EnableFindBt
    Else
    LblInvalid.Visible = True
    End If
 
End Sub

Celui-ci fais appel une macro en public :

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
Public Sub TxtDateColoration(Date1 As String, Textbox As String)
Dim ValidDate As Boolean, ValidFin As Boolean
    'On définie la couleur du fond en fonction du texte tapé
    'Le fond sera blanc si
    'Le texte est vide
    'La date est valide
    'le checkBox option date est décoché
    'Attention par contre avec IsDate, il reconnait 11/15/2018 comme une date valide à cause de l'écriture anglosaxonne Mois/Jour/Année
    'Je te laise implémenter ta solution à la place si tu le souhaites
    ValidDeb = DateValide(Date1)
 
    'On met en place la coloration
    Feuilleactive.Textbox.BackColor = IIf(ValidDate, &HFFFFFF, &HFF&)
 
End Sub

qui elle même fais appel a une fonction :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function DateValide(strDate As String) As Boolean
Dim TabDate As Variant
Dim YearValue As Long
Dim MonthValue As Long
Dim DayValue As Long
DateValide = True
 
If Not strDate Like "##/##/####" And Not strDate Like "##-##-####" Then
 
    DateValide = False
Else
    'On extrait les 3 parties
    TabDate = Split(strDate, "/")
    YearValue = TabDate(2)
    MonthValue = TabDate(1)
    DayValue = TabDate(0)
    'On vérifie le retour de isdate()
        If YearValue < 1900 Then
            DateValide = False
        Else
            Select Case MonthValue
                Case 1, 3, 5, 7, 8, 10, 12
                    If DayValue > 31 Then DateValide = False
                Case 4, 6, 9, 11
                    If DayValue > 30 Then DateValide = False
                Case 2
                    If YearValue Mod 400 = 0 Or (YearValue Mod 100 <> 0 And YearValue Mod 4 = 0) Then
                        If DayValue > 29 Then DateValide = False
                    Else
                    If DayValue > 28 Then DateValide = False
                    End If
                Case Else
                    If strDate <> "" Then
                        DateValide = False
                    Else
                        DateValide = True
                    End If
            End Select
        End If
End If
End Function

Sauf que à la partie :

Code :

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

Public Sub TxtDateColoration(Date1 As String, Textbox As String)

Cela ne fonctionne pas quelqu'un peux m'aider ?

Cordialement,
Passepartout007

[Menhir]

Cela ne fonctionne pas quelqu'un peux m'aider ?

Déjà, tu pourrais expliquer ce qui ne fonctionne pas.
Message d'erreur ? Quel message ? Quelle ligne de code est désignée ?

Je déclare ma feuille active comme public

Code :

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

Public Feuilleactive As String

Non, tu ne déclares pas une feuille, tu déclarer une variable de type chaine de caractère, ce qui est complètement différent.

Donc Feuilleactive.Textbox.BackColor = IIf(ValidDate, &HFFFFFF, &HFF&) ne peut pas fonctionner puisqu'une variable de ce type ne peut pas, par nature, avoir de membre, elle n'a qu'une valeur et un nom, rien de plus.
Seuls les objets (et les variable de type objet) peuvent avoir des membres.

Mais même si tu la définissais avec le bon type, encore faudrait-il la renseigner (un variable non renseignée n'est qu'une coquille vide), ce que je ne vois nulle part dans ton code.

[Passepartout007]

Bonjour,
C'est exactement à cette ligne.

Elle est comme je l'ai dis, décaler à l'initialisation de l'userform.
Tu me propose donc de dire :
Public Feuilleactive as userform ?
Et textbox as control ?

Je ne suis pas devant Excel, mais cela peut-il marcher ?
Cordialement,
Passepartout007

[Passepartout007]

Bonjour,

J'ai essayer de faire ca :

Code :

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

1
2
Public Feuilleactive As Object
"Public TextBoxactif As MSForms.Textbox" et "Public TextBoxactif As Control"

avec le macro qui appel une fonction :

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 TxtDateFin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
Set Feuilleactive = RECHMOD ' déclare que l'userform actif est RECHMOD
Set TextBoxactif = TxtDateFin
 
    TxtDateColoration TxtDateFin.Value
 
    If TxtDateFin.BackColor = &HFFFFFF Then
    'On masque/affiche la label d'avertissement
    LblInvalid.Visible = False
 
    'On détermine l'activation du bouton Rechercher
    EnableFindBt
    Else
    LblInvalid.Visible = True
    End If
 
End Sub

Alors apparemment il prend bien la ref de l'userform, mais pas celui du textbox ... je suis un peux bloqué ^^'

Mon code de la fonction coloration est le suivant :

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
Public Function TxtDateColoration(Date1 As String)
Dim ValidDate As Boolean
    'On définie la couleur du fond en fonction du texte tapé
    'Le fond sera blanc si
    'Le texte est vide
    'La date est valide
    'le checkBox option date est décoché
    'Attention par contre avec IsDate, il reconnait 11/15/2018 comme une date valide à cause de l'écriture anglosaxonne Mois/Jour/Année
    'Je te laise implémenter ta solution à la place si tu le souhaites
    ValidDate = DateValide(Date1)
 
    'On met en place la coloration
    Feuilleactive.TextBoxactif.BackColor = IIf(ValidDate, &HFFFFFF, &HFF&)
 
End Function

le bug se passe à la ligne

Code :

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

Feuilleactive.TextBoxactif.BackColor = IIf(ValidDate, &HFFFFFF, &HFF&)

Car le Textboxactif prend la date rentrer et non le nom tu textbox

Cordialement,
Passepartout007

[Passepartout007]

Bonjour,

J'ai le meme problème avec cette fonction qui

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
24
Public Function enabeldBtValid()
Dim Ctrl As Control
Dim R As String
R = 0
With UserformActif
 
    For Each Ctrl In UserformActif.Controls
 
        With Ctrl
            If Ctrl.Tag = "Rouge" Then
                If BackColor = &HFF& Then
 
                    R = R + 1
                End If
            End If
        End With
    Next Ctrl
        If R > 0 Then
            .BTValidation.Enabled = False
        Else
            .BTValidation.Enabled = True
        End If
 
End With

Code :

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

1
2
Public UserformActif As Object
Public BTValidation As Object

Code :

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

1
2
Set BTValidation = CommandButtonValider
Set UserformActif = FTSSaisie

Voici comment c'est initialiser, je prend bien en compte l'userform, mais arriver à la textbox ou le fond est rouge :

Code :

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

If BackColor = &HFF& Then

il considère qu'elle ne l'est pas.
Quelqu'un peux m'aider ?

Cordialement,
Passepartout007

[Menhir]

Tu n'aurais pas oublié un "." devant ton BackColor ?