function

Pyrof

XLDnaute Occasionnel
Bonjour à tous.

Voila mon problème.

J'ai fait une function comme suit :
Code:
Function aa(a As Range)
L = a.Row
ref = Cells(L, 2)
c = a.Column
feuille = Cells(7, c)
aa = Sheets(feuille).Range(ref)
End Function

(function simple)

Cette fontion sera appelée dans les cellules

Seulement elle fontionne une seule fois. Si je change une valeur dans la feuille, elle n'est pas ré-exécutée

Il y a très lontemps j'ai eu ce même problème, mais ma mémoire à des défaillences.

C'est l'un d'entre vous qui m'avait résolu ce problème.

Merci de vos reponses.

Bonne journée A+
 

Pyrof

XLDnaute Occasionnel
Merci

C'est bien application.volatile (j'avais perdu la mémoire)

Pour information :

J'ai une feuille dont en tete de colonne, j'ai le nom des onglets de mon application (actuellement 30)

dans la colonne 1 j'ai des références (environ 100).

Je dois recupérer la valeur
de la cellule qui porte de nom de la reference dans la feuille de nom x (ou x le nom qui est dans la première ligne de la colonne en cours)

Espère avoir été assez claire.


Encore merci de la réponse
 

2passage

XLDnaute Impliqué
Bonjour,

Euh... assez claire ?... franchement ?... euh... non... :)
Mets donc un fichier exemple qu'on regarde ca plus en détail (sur qu'avec une formule ca peut marcher). A priori, en essayant juste de décortiquer ton code, je dirais que ça doit ressembler a ça :
=INDIRECT(DECALER(B1;;LIGNE(A2)-1)&'!'&ADRESSE(LIGNE(A2);2))

A+

Edit : précisions : Avec en ligne 1 a partir de B1 les noms des feuilles et en A2 la 'valeur' sur laquelle on fait la recherche.

Message édité par: 2passage, à: 01/07/2005 09:56
 

Pyrof

XLDnaute Occasionnel
Bonjour,

C'est, c'est toujours facile a comprendre pour celui qui est dans le sujet et donner des explications 'claires' pour les autres n'est pas toujours évident.

Donc voici un condensé de ce que je souhaite
J'ai la même formule quelque soit la cellule (6 cellules dans l'exemple mais je vais en avoir plusieurs centaines)

Tout ce fait par la fontion pf_valeur

Merci de te préocuper de mes soucis

Ceci dit j'ai le resusltat escompté, mais si tu as une meilleur solution je suis preneur et t'en remercis

Bonne journée [file name=Classeur10_20050701102338.zip size=7481]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur10_20050701102338.zip[/file]
 

Pièces jointes

  • Classeur10_20050701102338.zip
    7.3 KB · Affichages: 16

2passage

XLDnaute Impliqué
Bonjour,

Voila une solution par formule. Je trouve que c'est un peu plus simple.

A+ [file name=Classeur10_2.zip size=7900]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur10_2.zip[/file]
 

Pièces jointes

  • Classeur10_2.zip
    7.7 KB · Affichages: 24

Pyrof

XLDnaute Occasionnel
Rebonjour,

Je ne suis pas contre mais dans ta formule tu mets des addresses directes (LC)

Chose que moi j'essais de minimiser pour des problèmes de maintenance du développement.

Si je dois mofifier la formule, toi tu dois intervenir sur toutes les cellules, avec ma solution je change uniquement la fonction.

Ceci dépend bien entendu de la modification à faire

Le dialogue reste ouvert...

A+
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 276
Messages
2 086 714
Membres
103 378
dernier inscrit
phdrouart