VBA TranstypageRésolu

Question

Bonjour,
Je voudrais afficher des champs seulement ce qui ont un nom qui est inf&#233;rieur &#224; l'ann&#233;e actuelle (c'est a dire 2001,2002,2003,2004,2005). Mias je trouve pas du tout comment faire...
Voici le le code si vous pouvez m'aider...

Private Sub Form_Open(Cancel As Integer)
    Dim maDate As Integer
    Dim A As Integer
    Dim test As String
    maDate = Mid$(Date, 7)
    If maDate > 2001 Then
        For A = 2002 To maDate Step 1
            Me![ & A & ].Visible = True
        Next A
    End If        
End Sub

Merci d'avance

jhary69 · Accepted Answer

salut,

Private Sub Form_Open(Cancel As Integer)
    Dim maDate As Integer
    Dim A As Integer
    Dim test As String
    maDate =  format(Date, "yyyy")
    If  cInt (maDate) > 2001 Then
        For A  = 2002 To maDate Step 1
            <NomFormulaire>.controls(CStr(A)).Visible = True
        Next A
    End If        
End Sub

ca devrait marcher ...

A+

cs_Sylvain93 · Answer

Ca marche impecc', merci jhary69

@+

VBA Transtypage

2 réponses

Discussions similaires