Discussion :

[ch16089]

* Bonjour *

Avec Delphi, on peut passer une Fonction en argument d'une autre Fonction, voir exemple ci-dessous.

Peut-on faire la même chose avec VBA ?

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Fx;
 
{$APPTYPE CONSOLE}
 
Type
  TFx = function(a: Double): Double;
 
function F1(Fx: TFx; x: Double): Double;
begin
  F1 := Fx(x);
end;
 
function F(x: Double): Double;
begin
  F := x*x + x + 1;
end;
 
begin
  Writeln(F1(F, 10.0):0:0);
  Readln;
end.

[helas]

Bonjour,
On ne peut pas en VBA.