Microsoft 365 grande.valeur : erreur de transposition formule en vba

[WIsh_]

Bonjour à tous,

J'étais auparavant sur Excel 2013 et suis passé sur 365.

J'avais dans le code VBA un module pour réaliser des calculs mais depuis que je suis sur 365, la formule ne s'écrit plus correctement dans le fichier.

La formule qui s'inscrit en colonne E dans la feuille "Ligne" est :

{=SIERREUR(GRANDE.VALEUR(SI((VA2A[@Dcc]=[@Dcc])*(VA2A[@Present]="OUI");VA2A[jours]);LIGNES('GA2'!R1));"")}

alors qu'elle devrait être :

{=SIERREUR(GRANDE.VALEUR(SI((VA2A[Dcc]=[@Dcc])*(VA2A[Present]="OUI");VA2A[jours]);LIGNES('GA2'!R1));"")}

Dans le code vba :

Sub calcul()

Dim wk As Workbook
Dim WD6, WE5 As Worksheet

Set wk = ThisWorkbook
Set WE5 = wk.Worksheets("ligne")

With WE5.Range("E12")
.Formula = _
        "=IFERROR(LARGE(IF((VA2A[Dcc]=[@Dcc])*(VA2A[Present]=""OUI""),VA2A[jours]),ROWS('GA2'!R1)),"""")"
.FormulaArray = .FormulaR1C1
End With

End sub

Le fichier ci-joint vous sera peut-être plus parlant.

Merci d'avance pour l'expertise,
Wish

 

[WIsh_]

Erreur de syntaxe ?

 

[Hasco]

Bonsoir,

Cette ligne devrait suffire.

WE5.Range("E7").FormulaArray = "=IFERROR(LARGE(IF((VA2A[Dcc]=[@Dcc])*(VA2A[Present]=""OUI""),VA2A[jours]),ROWS('GA2'!R1)),"""")"

Testée sur excel 2021


Cordialement

 

[Hasco]

Re,

Pour toutes les plages de cellules.

Sub calcul()

    Dim c As Range

    With ThisWorkbook.Worksheets("ligne")
        For Each c In .Range("E7,E12,E17,E22,E27,E32")
            c.FormulaArray = "=IFERROR(LARGE(IF((VA2A[Dcc]=[@Dcc])*(VA2A[Present]=""OUI""),VA2A[jours]),ROW(1:1)),"""")"
            c.Resize(3).FillDown
        Next
    End With

End Sub

On pourrait faire une boucle par pas de 5 pour les lignes mais ça n'apporterait pas grand chose de plus.

Cordialement

 

[WIsh_]

Bonsoir,

Cette ligne devrait suffire.

WE5.Range("E7").FormulaArray = "=IFERROR(LARGE(IF((VA2A[Dcc]=[@Dcc])*(VA2A[Present]=""OUI""),VA2A[jours]),ROWS('GA2'!R1)),"""")"

Testée sur excel 2021


Cordialement

Merci cela fera en effet l'affaire, je ne sais pas pourquoi je suis resté bloqué sur mon vieux code.