VBA Transtypage [Résolu]

Messages postés
42
Date d'inscription
jeudi 30 mai 2002
Dernière intervention
27 avril 2011
- - Dernière réponse : cs_Sylvain93
Messages postés
42
Date d'inscription
jeudi 30 mai 2002
Dernière intervention
27 avril 2011
- 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
Messages postés
81
Date d'inscription
jeudi 29 juillet 2004
Dernière intervention
22 juillet 2007
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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Messages postés
42
Date d'inscription
jeudi 30 mai 2002
Dernière intervention
27 avril 2011
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.