Remplacer une formule

[sunguess]

Bonjour à tous,

J'utilise un logiciel fourni avec une macro complémentaire qui permet sous excel d'aller rechercher des données dans la base de donnée du logiciel.

Malheureusement la formule pour attaquer la base est peut pratique et utilise des caractères spéciaux...

Je me demandais s'il était possible de remplacer formulepeupratique(X;Y) par quelque chose du genre get(X;Y)
(X et Y étant les paramètres de la base)

Est il possible de creer une macro complémentaire pour définir cette formule ?

D'avance merci pour votre aide.

 

[pierrejean]

Re : Remplacer une formule

bonjour sunguess

A priori oui
il suffit de remplacer le titre de la macro (formulepeupratique) par autre chose (peut-etre pas Get qui est surement un mot reservé de Vba )

 

[sunguess]

Re : Remplacer une formule

Le problème est que la macro est protégée par un mot de passe et que je peux donc pas y acceder...

 

[wilfried_42]

Re : Remplacer une formule

bonjour à tous

tu peux creer ta propre fonction qui appelle cette fonction : exemple

dans la cellule :

=Get_maBDD(param1;param2;param3) ' je ne connais pas ta fonction

dans un module

Public Function get_maBDD(a,b,c) as string ' si le retour est de l'alpha
    get_maBDD = Mafonctionpaspossible(a,b,c)
end function

cela si j'ai tout compris

 

[sunguess]

Re : Remplacer une formule

j'ai essayé de transposé ta réponse avec ma formule et ça donne ça :

Public Function aa(a, b) As String ' si le retour est de l'alpha
aa = CWIN32|Data!'CWEval|active|map("a","b")|'
End Function

Apparemment, excel n'aime pas trop car il me renvoie une erreur de compilation , a quoi est ce du ?

merci pour ton aide.

EDIT : a et B sont les variables et aa() le nom de la nouvelle fonction

 

[pierrejean]

Re : Remplacer une formule

Re

En l'absence de Wilfried

Soit:

Public Function aa(a, b) As String ' si le retour est de l'alpha
aa = CWIN32|Data!'CWEval|active|map(a,b)|'
End Function

Soit:

Public Function aa As String ' si le retour est de l'alpha
aa = CWIN32|Data!'CWEval|active|map("a","b")|'
End Function