E
elo6
Guest
Re le forum,
ma private sub me permet de mettre une croix par ligne dans ma plage de données... Comment le faire par colonne ?
Merci d'avance!
De nouveau le code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 35 And Not Application.Intersect(Target, Range('ZoneDonnees')) Is Nothing Then
Range(Cells(Target.Row, 4), Cells(Target.Row, 8)) = ''
Target = IIf(Target.Text = 'X', '', 'X')
End If
End Sub
ma private sub me permet de mettre une croix par ligne dans ma plage de données... Comment le faire par colonne ?
Merci d'avance!
De nouveau le code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 35 And Not Application.Intersect(Target, Range('ZoneDonnees')) Is Nothing Then
Range(Cells(Target.Row, 4), Cells(Target.Row, 8)) = ''
Target = IIf(Target.Text = 'X', '', 'X')
End If
End Sub