se créer sa propre fonction : My

3 réponses

Alfred WALLACE

04/12/2006 à 11:41

Bonjour :-)

voil=E0, j'ai cr=E9er une sub() comme cel=E0

Sub my_msgbox()
With [parametres!MODE_DEBUG] 'Range("A1").CurrentRegion
If [parametres!MODE_DEBUG] Then
MsgBox "arret pour debug"
End If

End With

elle va donc appeler la fonction msgbox si la zone
[parametres!MODE_DEBUG] est VRAI.

ailleurs dans mon programme, j'appel ma fonction comme ceci :
My_msgbox

Voil=E0, ce que je voudr=E9 faire est pouvoir passer un parametre =E0
My_MsgBox comme ceci :
My_MsgBox("un petit message pour voir")

Ma question :
1 - comment je dois =E9crire le passage de parametre ? je me m=E9lange
un peu avec les arguments et les d=E9clarations =E0 faire.

2 - est-ce que, je pourrais passer, en parametre le nom du module (ou
de la
sub() ) qui est en train de s'=E9xecuter (ou plutot qui =E0 appeler
My_MsgBox)

Merci pour votre aide.

jos=E9

3 réponses

FdeCourt

04/12/2006 à 12:00

Hello,

en nommant ta macro ainsi :
Sub my_msgbox(XXX as string)

Puis en l'appellant, tu n'as plus qu'a mettre

my_msgbox "blablabla"

et dans le code de ta macro, par exemple :

If [parametres!MODE_DEBUG] Then
MsgBox "arret pour debug - " & XXX
End If

Bonjour :-)

voilà, j'ai créer une sub() comme celà

Sub my_msgbox()
With [parametres!MODE_DEBUG] 'Range("A1").CurrentRegion
If [parametres!MODE_DEBUG] Then
MsgBox "arret pour debug"
End If

End With

elle va donc appeler la fonction msgbox si la zone
[parametres!MODE_DEBUG] est VRAI.

ailleurs dans mon programme, j'appel ma fonction comme ceci :
My_msgbox

Voilà, ce que je voudré faire est pouvoir passer un parametre à
My_MsgBox comme ceci :
My_MsgBox("un petit message pour voir")

Ma question :
1 - comment je dois écrire le passage de parametre ? je me mélange
un peu avec les arguments et les déclarations à faire.

2 - est-ce que, je pourrais passer, en parametre le nom du module (ou
de la
sub() ) qui est en train de s'éxecuter (ou plutot qui à appeler
My_MsgBox)

Merci pour votre aide.

josé

MichDenis

04/12/2006 à 12:09

Sub test()
my_msgbox "arret pour debug"
End Sub

'------------------------
Sub my_msgbox(Optional Message As String)

With [parametres!MODE_DEBUG]
If [parametres!MODE_DEBUG] Then
MsgBox Message
End If

End With

End Sub
'------------------------

"Alfred WALLACE" a écrit dans le message de news:

Bonjour :-)

voilà, j'ai créer une sub() comme celà

Sub my_msgbox()
With [parametres!MODE_DEBUG] 'Range("A1").CurrentRegion
If [parametres!MODE_DEBUG] Then
MsgBox "arret pour debug"
End If

End With

elle va donc appeler la fonction msgbox si la zone
[parametres!MODE_DEBUG] est VRAI.

ailleurs dans mon programme, j'appel ma fonction comme ceci :
My_msgbox

Voilà, ce que je voudré faire est pouvoir passer un parametre à
My_MsgBox comme ceci :
My_MsgBox("un petit message pour voir")

Ma question :
1 - comment je dois écrire le passage de parametre ? je me mélange
un peu avec les arguments et les déclarations à faire.

2 - est-ce que, je pourrais passer, en parametre le nom du module (ou
de la
sub() ) qui est en train de s'éxecuter (ou plutot qui à appeler
My_MsgBox)

Merci pour votre aide.

josé

Alfred WALLACE

04/12/2006 à 13:49

tro for ....

Merci
José

Sub test()
my_msgbox "arret pour debug"
End Sub

'------------------------
Sub my_msgbox(Optional Message As String)

With [parametres!MODE_DEBUG]
If [parametres!MODE_DEBUG] Then
MsgBox Message
End If

End With

End Sub
'------------------------

"Alfred WALLACE" a écrit dans le message de news:

Bonjour :-)

voilà, j'ai créer une sub() comme celà

Sub my_msgbox()
With [parametres!MODE_DEBUG] 'Range("A1").CurrentRegion
If [parametres!MODE_DEBUG] Then
MsgBox "arret pour debug"
End If

End With

elle va donc appeler la fonction msgbox si la zone
[parametres!MODE_DEBUG] est VRAI.

ailleurs dans mon programme, j'appel ma fonction comme ceci :
My_msgbox

Voilà, ce que je voudré faire est pouvoir passer un parametre à
My_MsgBox comme ceci :
My_MsgBox("un petit message pour voir")

Ma question :
1 - comment je dois écrire le passage de parametre ? je me mélange
un peu avec les arguments et les déclarations à faire.

2 - est-ce que, je pourrais passer, en parametre le nom du module (ou
de la
sub() ) qui est en train de s'éxecuter (ou plutot qui à appeler
My_MsgBox)

Merci pour votre aide.

josé

se créer sa propre fonction : My_msgbox

3 réponses

Veuillez sélectionner un problème