Bonjour à tous j'ai crée une macro qui me sert a mettre en forme certaines cellules en fonction de leur contenus. Cependant j'aimerais que ma macro soit executée automatiquement sans que j'ai besoin d'aller dans macro et faire exécutée a chaque fois j'ai trouvé un moyen de le faire enfin je pense mais j'ai un petit problème voila le code que j'ai inséré dans ma feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/05/2008 par Administrator
'
'
Range("F36").Select
ActiveWindow.ScrollRow = 3
Range("F3:F54").Select
Application.CutCopyMode = False
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI(ET(B3+2<=D3+2;D3+2<=F3);F3;"" "")"
Selection.FormatConditions(1).Font.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI(D3+2<=F3;F3;"" "")"
Selection.FormatConditions(2).Font.ColorIndex = 45
End Sub
End Sub
Je sais pas si le code est bon mais quand j'ouvre ma feuille ca me met un message me disant qu'un "End Sub est attendu" mais je ne comprend pas ou il manque alors si vous savez comment faire je vous remercie d'avance de votre aide
A Bientot
Private Sub Worksheet_Change(ByVal Target As Range)
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/05/2008 par Administrator
'
'
Range("F36").Select
ActiveWindow.ScrollRow = 3
Range("F3:F54").Select
Application.CutCopyMode = False
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI(ET(B3+2<=D3+2;D3+2<=F3);F3;"" "")"
Selection.FormatConditions(1).Font.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI(D3+2<=F3;F3;"" "")"
Selection.FormatConditions(2).Font.ColorIndex = 45
End Sub
End Sub
Je sais pas si le code est bon mais quand j'ouvre ma feuille ca me met un message me disant qu'un "End Sub est attendu" mais je ne comprend pas ou il manque alors si vous savez comment faire je vous remercie d'avance de votre aide
A Bientot