Bonjour,
Mon problème est que je n'arrive pas à garder ma mise en forme conditionnel lorsque je mets une croix dans ma cellule.
L'affichage de la croix se fait de maniere automatique en cliquant sur la case.
J'utilise ce code ci:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("O9:O13,P913,Q9:Q13,R9:R13,S9:S13")) Is Nothing Then
If IsEmpty(Target) Then
Target = "X"
Else: Target = ""
End If
End If
End Sub
Merci d'avance
Mon problème est que je n'arrive pas à garder ma mise en forme conditionnel lorsque je mets une croix dans ma cellule.
L'affichage de la croix se fait de maniere automatique en cliquant sur la case.
J'utilise ce code ci:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("O9:O13,P913,Q9:Q13,R9:R13,S9:S13")) Is Nothing Then
If IsEmpty(Target) Then
Target = "X"
Else: Target = ""
End If
End If
End Sub
Merci d'avance