XL 2016 DECALER dans formula VBA

[FRANCOIS GROSJEAN]

Bonjour à tous,
Je n'arrive pas à comprendre pourquoi cette macro marche et pas la suivante
Marche :
Sub essai()
ThisWorkbook.Sheets("Feuil2").Cells(2, 1).Formula = "=Feuil1!A2"
End Sub

Ne marche pas :
Sub essai()
ThisWorkbook.Sheets("Feuil2").Cells(2, 1).Formula = "=DECALER(Feuil1!A2;12;0;1;1)"
End Sub

Cela me fait

Merci pour vos conseils
Bien cordialement

 

[Fred0o]

Bonjour François

Essaie peut-être ceci :

Sub essai()
    ThisWorkbook.Sheets("Feuil2").Cells(2, 1).Formula = "=OFFSET(Feuil1!A2,12,0,1,1)"
End Sub

 

[Dranreb]

Bonjour.
Information: la 1ère marche quand même parce que c'est la même chose pour Formula que pour FormulaLocal

 

[FRANCOIS GROSJEAN]

J ai essayé mais ne marche pas non plus
Merci quand même

 

[Fred0o]

Re-bonjour

Dans ce cas, merci de joindre un fichier exemple pour que nous puissions tester

 

[FRANCOIS GROSJEAN]

Ok ci-joint le fichier avec explications dans l'onglet Essai_DECALER
Merci

 

[Dranreb]

Ce sont vos essais des solutions qu'on vous a indiquées que vous auriez dû mettre pas votre code d'origine. Les nôtres marchent si vous les appliquez correctement.
Ces deux instructions donnent le même résultat :

       ThisWorkbook.Sheets("Essai_DECALER").Cells(2, 1).FormulaLocal = "=DECALER(Données!A2;12;0;1;1)"
       ThisWorkbook.Sheets("Essai_DECALER").Cells(2, 1).Formula = "=OFFSET(Données!A2,12,0,1,1)"

 

[Fred0o]

Re-Bonjour

Je viens de tester, ca marche. Attention, j'ai une version d'EXCEL en langue anglaise

 

[Dranreb]

On peut encore l'écrire comme ça :

Feuil2.[A2].FormulaR1C1 = "=OFFSET(Données!RC,12,0,1,1)"

Attention à bien prendre la virgule comme séparateur d'arguments, le point virgule c'est seulement en français, parce que la virgule y est déjà prise comme séparateur décimal.

 

[FRANCOIS GROSJEAN]

Autant pour moi j'avais mis des ; au lieu de , dans le code VBA DECALER
DECALER et OFFSET marche tous les 2 avec les virgules
Un grand merci

 

[FRANCOIS GROSJEAN]

Un petit challenge supplémentaire du coup sans vouloir abuser de votre temps :
Si je veux que la valeur 12 soit une variable qui s'incrément par exemple J
Comment pourrais-je faire sachant que si je l'écris comme ci-dessous
DECALER(Données!A2,J,0,1,1)"
il me met = DECALER(Données!A2;J;1;1) mais ne met pas la valeur de J qui s'incremente.
Auriez vous une solution ?
Merci

 

[Dranreb]

Feuil2.[A2].FormulaR1C1 = "=OFFSET(Données!RC," & J & ",0,1,1)"

 

[FRANCOIS GROSJEAN]

Super , vous etes trop fort et réactifs !

 

[FRANCOIS GROSJEAN]

J'espère dernière question
La formule attendu se met bien comme il faut mais par contre il me met #NOM? et il faut que je double clique dans la cellule pour que le résultat apparaisse. J'ai vérifié et je suis bien en calcul automatique avec un format date comme dans la cellule que je vais chercher par calcul
Une idée?
Merci

 

[FRANCOIS GROSJEAN]

Ci-joint fichier avec la macro Essai_3