Dans le but de rendre mon fichier résilient je voudrait comptabilisé les commande de data log 1 pour lesquelles l'extraction n'a pas fonctionner. Ce qui se remarque si il manque le prix (col("Price")).
pour l'instant j'ai mis ça en colonne C:
=SI(C2=0;"non dispo";B2-C2)
donc compter les "non dispo"
Et faire une mise en forme conditionnelle sur la colonne C pour repèrerles valeurs extremes; j'ai fais une macro en faisant de l'enregitrement de macro mais ça ne resemble à rien et le résultat n'est pas top:
'
Sub Mise_en_forme()
'
'suite_extract Macro'
' Mise en page et calcul
'
'
Range("D1").Value = " cout or trad "
Range("D2").Select
Selection.Value = "=IF(RC[-1]=0,""non dispo"",RC[-2]-RC[-1])"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D779")
Range("D2:D779").Select 'mise en forme 1'
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=-1", Formula2:="=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.AddColorScale ColorScaleType:=2
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 2650623
.TintAndShade = 0
End With 'mise en forme 2'
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValueNumber
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = -1
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 10285055
.TintAndShade = 0
End With 'mise en forme 3'
Selection.FormatConditions.AddColorScale ColorScaleType:=2
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueNumber
Selection.FormatConditions(1).ColorScaleCriteria(1).Value = 1
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.ThemeColor = xlThemeColorAccent5
.TintAndShade = -0.249977111117893
End With
End Sub