Déclaration et normalisation de fonction

Version imprimable

Bonjour,

Je déclare ma feuille active comme public

Code:

Public Feuilleactive As String

que je déclare à initialisation du l'userform

Dans un textbox exit je met le code :

Code:

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:

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:

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:

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

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

Cordialement,
Passepartout007

17/07/2018, 17h49
Menhir

Citation:

Envoyé par Passepartout007

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 ?

Citation:

Je déclare ma feuille active comme public

Code:

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.
17/07/2018, 18h02
Passepartout007

Re

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

Re bonjour

Bonjour,

J'ai essayer de faire ca :

Code:

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

avec le macro qui appel une fonction :

Code:

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:

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:

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

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

Cordialement,
Passepartout007

Bonjour,

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

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
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:

1
2
Public UserformActif As Object
Public BTValidation As Object

Code:

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:

If BackColor = &HFF& Then

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

Cordialement,
Passepartout007

18/07/2018, 14h02
Menhir

Tu n'aurais pas oublié un "." devant ton BackColor ?
18/07/2018, 14h15
Passepartout007

Re

Bonjour Menhir,
Je ne comprend pas .... j'avais essayer avec et sans le point et cela viens de marcher ...
Merci Menhir xD
18/07/2018, 16h29
Passepartout007

Re

Bonjour,

J'essaye de mettre des noms de tableau dans différente feuille en variable

Code:

Public Tableau As Object

Code:

Set Tableau = List_TypeFTS

Ou List_TypeFTS est le nom de mon tableau .. Mais cela fonctionne pas.

Des conseils ? il est vrais que j'ai du mal à déclarer mes variable et savoir qu'elle type leur attribuer ... je ne fais que débuter en VBA ^^

Merci à vous,

Cordialement,
Passepartout007