VBA Transtypage [Résolu]

cs_Sylvain93 42 Messages postés jeudi 30 mai 2002Date d'inscription 27 avril 2011 Dernière intervention - 2 août 2005 à 15:51 - Dernière réponse : cs_Sylvain93 42 Messages postés jeudi 30 mai 2002Date d'inscription 27 avril 2011 Dernière intervention
- 2 août 2005 à 16:23
Bonjour,
Je voudrais afficher des champs seulement ce qui ont un nom qui est inférieur à l'anné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
Afficher la suite 

2 réponses

Meilleure réponse
jhary69 81 Messages postés jeudi 29 juillet 2004Date d'inscription 22 juillet 2007 Dernière intervention - 2 août 2005 à 16:17
3
Merci
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+

Merci jhary69 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 87 internautes ce mois-ci

cs_Sylvain93 42 Messages postés jeudi 30 mai 2002Date d'inscription 27 avril 2011 Dernière intervention - 2 août 2005 à 16:23
0
Merci
Ca marche impecc', merci jhary69

@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.