probleme de moduleRésolu

Question

Salut 

Je n'utilis&#233; jamais les modules, mais l&#224; je me lance pour &#233;claircir le code de mes forms.

Par contre du coup je n'arrive pas &#224; passer une variable Mon_Heure d'un form &#224; un module.

Dans mon form :
Dim Mon_Heure As Date

Private Sub Command1_Click()
Mon_Heure = Label1(1).Caption
Lundi_Vert
End Sub

Dans mon module:
Public Sub Lundi_Vert()
If Mon_Heure < "12:00:00" Then
Beep
Else
Exit Sub
End If
End Sub


Comment mettre mon code pour que dans mon module la valeur de la variable Mon_Heure soit conserv&#233; ?

ManuAntibes

acecel · Accepted Answer

Soit 

Dans mon form :
Dim Mon_Heure As Date

Dans mon module:
Public Sub Lundi_Vert()
    If MaForm.Mon_Heure < "12:00:00" Then
        Beep
    Else
        Exit Sub
    End If
End Sub

Ou

Dans mon form :

Public 
Mon_Heure As Date


Dans mon module:

Public Sub Lundi_Vert()
    If Mon_Heure < "12:00:00" Then
        Beep
    Else
        Exit Sub
    End If
End Sub

jrivet · Answer

Salut,

Ou alors tu passes des parametes a tes sub ou fonction:

Dans le Module:

Public Sub Lundi_Vert(Mon_Heure as Date)
    If Mon_Heure < "12:00:00" Then
        Beep
    Else
        Exit Sub
    End If
End Sub

Dans ton Form:

Call Lundi_Vert(Mon_Heure)

Note: de cette maniere tu peux garder tes variables privees a tes form.
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

ManuAntibes · Answer

Ok 
J'ai vu d'autre personne mettre ByVal dans leurs parentaises 

Dans mon module:
Public Sub Lundi_Vert( ByVal Mon_Heure as date)
    If Mon_Heure < "12:00:00" Then
        Beep
    Else
        Exit Sub
    End If
End Sub

L&#224; on fait comment, tu sais ?

MANUANTIBES

acecel · Answer

ByVal = Moyen permettant de passer &#224; une proc&#233;dure la valeur d'un argument plut&#244;t que 
son adresse. La proc&#233;dure peut de ce fait acc&#233;der &#224; une copie de la variable. La 
valeur r&#233;elle de cette derni&#232;re n'est donc pas modifi&#233;e par la proc&#233;dure &#224; 
laquelle elle est pass&#233;e.

jrivet · Answer

e,


En fait tu as deux possibilite


ByVal ou ByRef ( = rien)


ByVal: Voir Post Acecel
ByRef: = Moyen permettant de passer &#224; une proc&#233;dure l'adresse d'un argument plut&#244;t que sa valeur. La proc&#233;dure peut ainsi acc&#233;der &#224; la variable proprement dite. La valeur r&#233;elle de cette derni&#232;re peut, de ce fait, &#234;tre modifi&#233;e par la proc&#233;dure &#224; laquelle elle a &#233;t&#233; pass&#233;e. Par d&#233;faut, les arguments sont pass&#233;s par r&#233;f&#233;rence.


un petit exemple avec du code... Une fois essayer observe avec ByVal, Remplace par ByRef et Observe la petite difference.


Private Sub Form_Load()
Dim i As Integer
i = 3
Call Add1(i)
MsgBox i
End Sub



Private Sub Add1(ByVal vale As Integer)
MsgBox vale
vale = vale + 1
MsgBox vale
End Sub


@+, Julien
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e



@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

Probleme de module

5 réponses

Discussions similaires