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

[bsangoku]

En fait mon integer n'est pas static car il s'agit d'un range.value (ça dépend de la valeur de la case)

[Didier Gonard]

Bonjour,

Ta question ne se résoudrait-elle pas à ceci ?

J'ai une fonction avec 2 paramètres obligatoires, mais je dois pouvoir identifier le source de l'un deux car ça entraînera un changement d'instruction.

Tu peux alors faire que ton 2ème argument obligatoire soit de la forme : A00000 ou B00000 donc celui qui appelle transmet un A+chiffres ou un B+chiffres et dans ta fonction tu a un select case qui selon A ou B isole la valeur voulue en retirant la lettre+ conversion numérique et valide l'instruction ad-hoc...

?

cordialement,

Didier

[bsangoku]

Bonjour Ormonth,

C'est vrai que la question est celle ci parce que si je suis dans les cases entre A01 et A20 je fais une instruction et B01 et B20 une autre instruction.

Par contre, comment comparer entre qu'une case (range est de la forme A01 A02 ou de la forme B01 B02)?

[Didier Gonard]

Bonjour,

ça c'est le contexte de ton truc qui te le dit, vu que pour attribuer une var par2 ou par3 tu avais bien une méthode.

L'idée est que quand tu récupères la valeur de la cellule cible, tu sais d'où elle vient du coup tu lui concatène une lettre en plus et tu l'envoies en paramètre, et à la réception après le select case, tu supprimes la lettre en récupérant la valeur.

Si tes cibles proviennent toujours de 2 colonnes fixes, ce serait sioux de te servir de la lettre de la colonne comme identifiant (cf propriété Address)

cordialement,

Didier