D
Domi_d
Guest
Bonjour,
Peut-on simplifier cette macro :
If Not Intersect(Target, Range('C2:C5')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 2
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 2
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C6:C9')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 4
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 4
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C10:C13')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 6
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 6
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C14:C17')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 8
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 8
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C18:C21')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 10
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 10
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C22:C25')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 12
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 12
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C26:C29')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 14
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 14
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C30:C33')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 16
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 16
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
-------------------------
Merci d'avance pour votre aide
Peut-on simplifier cette macro :
If Not Intersect(Target, Range('C2:C5')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 2
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 2
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C6:C9')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 4
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 4
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C10:C13')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 6
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 6
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C14:C17')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 8
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 8
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C18:C21')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 10
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 10
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C22:C25')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 12
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 12
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C26:C29')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 14
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 14
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
If Not Intersect(Target, Range('C30:C33')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 16
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\ 2 + 16
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
-------------------------
Merci d'avance pour votre aide