Discussion :

[Ganeshiva]

Bonjour à tout le monde

Je vous soumets mon problème :

J'aimerai cacher mes formules que j'ai mis pas mal de temps à faire sur un fichier excel en les transposant en une fonction personnalisé sous VBA.

la formule sous excel donne :

Code :

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

SIERREUR(SOMMEPROD((ESTNUM(EQUIV(Logement;E202:O202;0)))*QuantiteEF);0)

Logement correspond à un : =DECALER(A77;;4;;NBVAL(77:77)-3).
QuantitéEF correspond à un : =DECALER(A77;20;4;;NBVAL(77:77)-3).

J'aimerais dans la mesure du possible faire une formule avec le critère: A77 (qui n'est pas forcement la cellule choisi)

en gros la formule complète donne SIERREUR(SOMMEPROD((ESTNUM(EQUIV(DECALER(A77;;4;;NBVAL(77:77)-3);E202:O202;0)))*DECALER(A77;20;4;;NBVAL(77:77)-3));0).

Code :

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

1
2
3
4
5
Function NBAPSEF(Lgt) 
Application.Volatile
'Range(Lgt).End(xlToRight).Column address
NBAPSEF = WorksheetFunction.SumProduct((WorksheetFunction.ISNUMBER(WorksheetFunction.MATCH(Range(Lgt).Address, E202:O202, 0))) * Range(lgt).offset(20,4).Address)
End Function

J'avais commencé à faire un bout de code en décomposant petit à petit mais je me perds énormément dans les variable que je ne maîtrise pas.
Pourriez vous m'aider un tantinet
En vous remerciant par avance

Gilles

[parmi]

Bonjour,

Plutôt que de passer par plusieurs WorksheetFunction imbriqués, tu pourrais inscrire ta formule telle que tu l'écris dans une cellule et la copier en valeur par la suite.

[Ganeshiva]

je voudrais que un utilisateur lambda puisse faire évoluer s'il le veut le fichier sans pour autant être un néophite des formules excel, de plus, je voudrais protéger mes formules.

[parmi]

Je ne connais pas ton fichier, mais tout pourrait se faire par VBA sans nécessairement utiliser une fonction personnalisée...

[Ganeshiva]

je peux te le transmettre si tu veux afin que tu comprennes

[luddoo]

Bonjour,

Tu peux joindre ton fichier à la discussion, cela permettrait à tous de comprendre, y compris pour les visiteurs

Fais juste attention aux données confidentielles de ton entreprise.
Je conseille de supprimer les adresses, de remplacer les valeurs par des données bidons.

Ludo