Discussion :

[jstas]

bonjour voici la fonction "Decaler" que j'utilise dans une cellule.

Vous remarquerez qu'elle est assez complexe du à son appel dans un autre classeur.

Code :

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

=DECALER(ttotos.xls!contactbiorem;[ttotos.xls]Feuil1!K2-1;0;1;1)

pourriez vous me dire comment traduire cette fonction en vba sachant qu'elle serait appelé dans un module que je déclarerais .

en vous remerciant d'avance

[alsimbad]

fais la avec l'enregistreur de macro. c'est le plus simple pour avoir la base.

[Maxence HUBICHE]

et encore une fois... (va falloir mettre ce truc dans la faq à force)
c:\program files\microsoft office\officexx\1036\vbalist.xls

[alsimbad]

hum; j'en doute pas, parce que moi, je sais pas de quoi tu parle.moi apres microsoftoffice/ j'ai : document theme12 ; média ; office12 ; et template qui est effectivement suivi de 1036 mais qui contient : FAx ; et one note (j'ai le 2007 ).

[JackOuYA]

et encore une fois... (va falloir mettre ce truc dans la faq à force)
c:\program files\microsoft office\officexx\1036\vbalist.xls

http://vb.developpez.com/faqvba/inde...nslatefunction

[alsimbad]

ok alors, il existe bien chez moi sur ce chemin
C:\Program Files\Microsoft Office\Office12\1036\vbalist.xls
merci

[JackOuYA]

Pour répondre à jstas, c'est quand même le but de la discussion

vas falloir que tu nous en dise plus sur tes intentions .?

que veux tu faire :

1. Ecrire (dans une cellule ) en VBA ta formule décaler .?
   Effectuer en VBA le même calcul que cette formule pour utiliser son résultat dans ton code ?
   ...

[Maxence HUBICHE]

hum; j'en doute pas, parce que moi, [...] apres microsoftoffice/ j'ai [...] office12

Cool !
Plus qu'à aller voir Office12/1036

http://vb.developpez.com/faqvba/inde...nslatefunction

Ben, là, on est dans Excel... donc le mettre dans la FAQ Excel serait un bien non ?

[Maxence HUBICHE]

Code :

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

1
2
 
TaCellule.Formula="=OFFSET(ttotos.xls!contactbiorem,[ttotos.xls]Feuil1!K2-1,0,1,1)"

ou

Code :

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

1
2
 
TaCellule.FormulaLocal="=DECALER(ttotos.xls!contactbiorem;[ttotos.xls]Feuil1!K2-1;0;1;1)"

devraient fonctionner (quand tu auras mis une référence correcte à la place de TaCellule

[JackOuYA]

Cool !
Plus qu'à aller voir Office12/1036
Ben, là, on est dans Excel... donc le mettre dans la FAQ Excel serait un bien non ?

il y as juste l'auteur qui change :
http://excel.developpez.com/faq/inde...ctionFonctions

[Maxence HUBICHE]

oulalaaah !
Va falloir que j'arrête l'Irish Coffee moi... ou alors que je commence à mettre le Coffee dedans

[jstas]

Pour répondre à jstas, c'est quand même le but de la discussion

vas falloir que tu nous en dise plus sur tes intentions .?

que veux tu faire :

1. Ecrire (dans une cellule ) en VBA ta formule décaler .?
   Effectuer en VBA le même calcul que cette formule pour utiliser son résultat dans ton code ?
   ...

merci à vous tous mais il me semble que certains de vos lien office10.... ne correspondent pas vraiment au lien de mon architecture software. DE plus je ne savais pas quoi chercher....

Pour répondre à la question de JackOuYA .
Ecrire (dans une cellule ) en VBA ma formule décaler .

je test quand même la structure émise en réponse.

merci à vous tous je vous tiens au courant

[JackOuYA]

bon c'est toujours pas clair pour moi ... mais tu peu faire :
pour mettre ta formule dans la cellule D1 de la feuille active :

Code :

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

Range("D1").FormulaLocal = "=DECALER(ttotos.xls!contactbiorem;[ttotos.xls]Feuil1!K2-1;0;1;1)"