Discussion :

[bsangoku]

Bonjour,

Je suis débutant en VBA et je souhaite savoir comment régler le problème.
J'ai deux fonction
function1(par1 as Worksheet,par2 as Integer)
function2(par1 as Worksheet,par3 as Integer)
La différence entre function1 et function2 ne réside qu'autour d'une seule instruction
La bonne idée est de faire
function3(par1 as Worksheet, optionnal par2 as Integer, optionnal par3 as Integer)

Mais comment faire pour que l'on puisse uniquement faire l'appel:
function3(par1,par2)
ou function3(par1,par3)
et non pas que que function3(par1)

Merci d'avance

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function3(par1,par2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function3(par1,,par3)

[bsangoku]

Oui mais on a le droit de faire function3(par1) et moi je n'ai pas envie qu'on est le droit...

[mercatog]

Et si c'est la cas Function3 retournera quoi?

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function Function3(ByVal Par1 As Integer, Optional Par2 As Variant, Optional Par3 As Variant)
Dim S As Variant
 
If IsMissing(Par2) And IsMissing(Par3) Then
    S = "Parameter missing"
ElseIf IsMissing(Par2) Then
    S = Par1 * Par3
ElseIf IsMissing(Par3) Then
    S = Par1 + Par2
End If
Function3 = S
End Function

PS: pour utiliser IsMissing, les paramètres optionnels doivent être un variant

[bsangoku]

Function3 retourne un variant...

Mais n'est ce pas possible de garder par2 et par 3 en integer?

[mercatog]

Pour cela, il faudra donner une valeur par défaut Toujours le même exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function Function3(ByVal Par1 As Integer, Optional Par2 As Integer = -1, Optional Par3 As Integer = -1)
Dim S As Variant
 
If Par2 = -1 And Par3 = -1 Then
    S = "Erreur"
ElseIf Par2 = -1 Then
    S = Par1 * Par3
ElseIf Par3 = -1 Then
    S = Par1 + Par2
End If
Function3 = S
End Function