Forum - Questions générale - Sujet n°501

[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Questions générale - Questions générale


clos par 3Stone le 11/05/2011 : 13:13  Sujet n° 501  Utilisation d'une function?

le 01/05/2011 : 16:23
par lemeruvien

Anonyme

visiteur

Salut Pierre, oui me revoila!kJe constate que tu n'a pas beaucoup de demande, alors me voila pour ne pas que tu t'ennuie!!Voila l'objet de ma visite, dans ma base, j'ai un form dans lequel j'ai un champ que je nome "période"Dans ce champ, à la saisie, je tape: 0511, et après MaJ je vais dans la procédure suivante:Private Sub période_AfterUpdate()    CalculMois période,1End SubQui m'envoie dans la fonction CalculMois avec période= 0511Function CalculMois(moisnum,)Dim mois As String    If Left(moisnum, 2) = "01" Then mois = "Janv."    If Left(moisnum, 2) = "02" Then mois = "Févr."    If Left(moisnum, 2) = "03" Then mois = "Mars"    If Left(moisnum, 2) = "04" Then mois = "Avril"    If Left(moisnum, 2) = "05" Then mois = "Mai"    If Left(moisnum, 2) = "06" Then mois = "Juin"    If Left(moisnum, 2) = "07" Then mois = "Juil."    If Left(moisnum, 2) = "08" Then mois = "Aout"    If Left(moisnum, 2) = "09" Then mois = "Sept."    If Left(moisnum, 2) = "10" Then mois = "Oct."    If Left(moisnum, 2) = "11" Then mois = "Nov."    If Left(moisnum, 2) = "12" Then mois = "Déc."    Me!période = mois & " " & Right(période1, 2)End Functionça marche tres bien, et donc mon champ période est: "Mai 11"Mon problème est que j'utilise cette formule dans 5 form différents, et donc ces deux procédures sont répétées dans chaque formulaire, donc 5 fois!Je pense que c'est pas bien?et comme je ne suis pas doué, mais que je veus toujours évoluer, je voudrais transformer ça en une seule procédure ou fonction que chaque formulaire pourait appeler!Alors, comment transformer ça, et aussi comment l'appeler en vba depuis chaque form??Merci beaucoup!roger
Ecrire à lemeruvien  sujet clos  Haut
Réponse n° 1
--------
le 01/05/2011 : 17:32
par 3Stone

Anonyme

Administrateur

Bonjour,

Utilise cette fonction :

 
Code :
Function CalcMois(s) As String
Dim s1 As Integer, s2 As Integer
If Len(s) >= 3 Then
s1 = Left(s, Len(s) - 2)
s2 = Right(s, 2)
If Val(s1) < 12 Then
CalcMois = MonthName(s1, True) & " " & Format(s2, "00")
Else
CalcMois = Format(Date, "mm yyyy", 2, 2)
End If
End If
End Function
 
Place la dans un module général que tu nommeras mod_calcmois par exemple.

Après, tu peux l'utiliser de n'importe ou...

Cordialement,
Pierre(3stone)
  clos par 3Stone le 11/05/2011 : 13:13  Haut
Réponse n° 2
--------
le 03/05/2011 : 07:26
par lemeruvien

Anonyme

visiteur
Encore une fois MERCI, et à bientot!
roger
Ecrire à lemeruvien   clos par 3Stone le 11/05/2011 : 13:13  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut