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 ).

[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 ?

[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

[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]

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