Re,
Essaie ainsi :
Public Sub XXX()
Dim DD As Long
DD = Cells(Rows.Count, 2).End(xlUp).Row
If DD > 5 Then
Cells(4, 4).Resize(DD - 3).FormulaR1C1 = _
"=IF((GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Pawomat"",RC[-3])/CAPABILITE_3311!R3C3)-QUOTIENT(GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Pawomat"",RC[-3]),CAPABILITE_3311!R3C3)>0,QUOTIENT(GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Pawomat"",RC[-3]),CAPABILITE_3311!R3C3)+1,GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Pawomat"",RC[-3])/CAPABILITE_3311!R3C3)"
End If
End Sub
Merci pour la réponse, sauf que quand j'ai effectué cette modification sur le tableau, je n'ai pas eu eu de résultat dans la cellule désirée (sachant qu'il n'y a pas de bug au macro).
Voici le code après modification :
Range("D3").Select
ActiveCell.FormulaR1C1 = "NBR D'EXEMPLAIRE"
Dim DD As Long
DD = Cells(Rows.Count, 2).End(xlUp).Row
If DD > 5 Then
Cells(4, 4).Resize(DD - 3).FormulaR1C1 = _
"=IF((GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Schäfer"",RC[-3])/((CAPABILITE_3311!R6C3)*(CAPABILITE_3311!R6C4)))-QUOTIENT(GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Schäfer"",RC[-3]),((CAPABILITE_3311!R6C3)*(CAPABILITE_3311!R6C4)))>0,QUOTIENT(GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Schäfer"",RC[-3]),((CAPABILITE_3311!R6C3)*(CAPABILITE_3311!R6C4)))+1,GETPIVOTDATA(""MIN_PLANNED"",RC[-3],""BMNR_Schäfer"",RC[-3])/((CAPABILITE_3311!R6C3)*(CAPABILITE_3311!R6C4)))"
End If
Y-a-t-il une autre rectification ?
Merci