Bonjour à tous
Je suis débutant en vba et j'ai un dossier à automatiser j'enregistre donc des macros et comme elles sont lourdes je voudrais les reduire pourriez vous m'aider a réduire celui ci
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=""si(et(gauche($L$6;1)=""""M"""";g6=""""F"""";nb.si(m96h;h6);"""""""")"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = True
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Ce code dit que si( gauche(L6;1)= "M",si g6="F") ; H8 appartient à la plage m24hr;sinon""
et je mets en forme
Merci pour votre aide
Je suis débutant en vba et j'ai un dossier à automatiser j'enregistre donc des macros et comme elles sont lourdes je voudrais les reduire pourriez vous m'aider a réduire celui ci
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=""si(et(gauche($L$6;1)=""""M"""";g6=""""F"""";nb.si(m96h;h6);"""""""")"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = True
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Ce code dit que si( gauche(L6;1)= "M",si g6="F") ; H8 appartient à la plage m24hr;sinon""
et je mets en forme
Merci pour votre aide