1 2 3 4 5 6 7
| Set Ws = ThisWorkbook.Worksheets("Qualif opérateur ")
Seuil = Ws.Range("M3")
Range("O2").Select
Range("O2:O2306").FormulaArray = _
"=IF(RC[-14]='Orange Business S',IF(AND(RC[-4]<=60*(1+Seuil),RC[-4]>=60*(1-Seuil)),'OBS Bimestriel',IF(AND(RC[-4]>=30*(1-Seuil),RC[-4]<=30*(1+Seuil)),'OBS Mensuel'RC[-14])),IF(RC[-14]='SFR Fixe',IF(AND(RC[-4]>=30*(1-Seuil),RC[-4]<=30*(1+'Qualif opérateur " & _
")),'SFR Fixe Mensuel',IF(AND(RC[-4]<=60*(1+Seuil),RC[-4]>=60*(1-Seuil)),'SFR Fixe Bimestriel',IF(AND(RC[-4]>=121*(1-Seuil),RC[-4]<=121*(1+Seuil)),'SFR Fixe Quadrimestriel',RC[-14]))),IF(RC[-14]='SFR','SFR Mobile',RC[-14])))"
Selection.AutoFill Destination:=Range("O2:O2306") |
Partager