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 :
Le fichier ci-joint vous sera peut-être plus parlant.
Merci d'avance pour l'expertise,
Wish
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 :
Code:
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 subLe fichier ci-joint vous sera peut-être plus parlant.
Merci d'avance pour l'expertise,
Wish
Dernière édition: