XL 2016 DECALER dans formula VBA

Fred0o

XLDnaute Barbatruc

• 3 Avril 2020

• #2

Bonjour François

Essaie peut-être ceci :

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Avril 2020

• #3

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

 

Vote positif 0 Vote négatif

F

FRANCOIS GROSJEAN

XLDnaute Nouveau

• 3 Avril 2020

• #4

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 3 Avril 2020

• #5

Re-bonjour

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

 

Vote positif 0 Vote négatif

F

FRANCOIS GROSJEAN

XLDnaute Nouveau

• 3 Avril 2020

• #6

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

 

Pièces jointes

• Classeur1.xlsm

  123 KB · Affichages: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Avril 2020

• #7

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 :

VB:

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 3 Avril 2020

• #8

Re-Bonjour

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

 

Pièces jointes

• DECALER_V1.xlsm

  122.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Avril 2020

• #9

On peut encore l'écrire comme ça :

VB:

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.

 

Dernière édition: 3 Avril 2020

Vote positif 0 Vote négatif

F

FRANCOIS GROSJEAN

XLDnaute Nouveau

• 3 Avril 2020

• #10

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

 

Vote positif 0 Vote négatif

F

FRANCOIS GROSJEAN

XLDnaute Nouveau

• 3 Avril 2020

• #11

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Avril 2020

• #12

VB:

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

 

Vote positif 0 Vote négatif

Solution

F

FRANCOIS GROSJEAN

XLDnaute Nouveau

• 3 Avril 2020

• #13

Super , vous etes trop fort et réactifs !

 

Vote positif 0 Vote négatif

F

FRANCOIS GROSJEAN

XLDnaute Nouveau

• 3 Avril 2020

• #14

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

 

Vote positif 0 Vote négatif

F

FRANCOIS GROSJEAN

XLDnaute Nouveau

• 3 Avril 2020

• #15

Ci-joint fichier avec la macro Essai_3

 

Pièces jointes

• Classeur1.xlsm

  155.2 KB · Affichages: 4

Vote positif 0 Vote négatif