1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Set origine = Application.InputBox("Sélectionnez une plage d'origine !", "Sélection de cellules", Type:=8)
Set cellule = Application.InputBox("Sélectionnez une plage de destination !", "Sélection de cellules", Type:=8)
' origine.Name = "IRR"
' MsgBox origine.Address
Adresse = origine.Address(, ColumnAbsolute:=False)
cellule.Cells(1, 1).Value = "MIN"
cellule.Cells(1, 2) = "=MIN(" + Adresse + ")"
cellule.Cells(2, 1) = "MAX"
cellule.Cells(2, 2) = "=MAX(" + Adresse + ")"
cellule.Cells(3, 1) = "AVG"
cellule.Cells(3, 2) = "=AVERAGE(" + Adresse + ")"
cellule.Cells(4, 1) = "Median"
cellule.Cells(4, 2) = "=MEDIAN(" + Adresse + ")"
cellule.Cells(5, 1) = "Quantile"
cellule.Cells(5, 2) = "=PERCENTILE(" + Adresse + ";0.25)"
cellule.Cells(6, 1) = "FdR"
cellule.Cells(6, 2) = "=COUNTIF(" + Adresse + ";0)/COUNT(" + Adresse + ")" |
Partager