Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D8:D259,G8:G259,J8:J259,M8:M259,P8:P259,S8:S259,V8:V259,Y8:Y259,AB8:AB259,AE8:AE259,AH8:AH259,AK8:AK259,AN8:AN259,AQ8:AQ259,AT8:AT259,AW8:AW259")) Is Nothing Then
If Target.Value = "TC" Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "" Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "TCIPHONE" Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "Sim Act" Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "HS Full Price" Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "Accessoire/Sim Sale" Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "Iphone Full P." Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "Repair/Return/Prepaid card" Then
Target.Offset(, 1).Value = " "
Target.Offset(, 2).Value = " "
End If
If Target.Value = "TRANSACTION" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
If Target.Value = "DC" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
If Target.Value = "AC+" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
If Target.Value = "SMB" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
If Target.Value = "AOM" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
If Target.Value = "Formation" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
If Target.Value = "Tablettes" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
If Target.Value = "Carte de crédit" Then
Target.Offset(, 1).Value = "—"
Target.Offset(, 2).Value = "—"
End If
End If
End Sub
Bookmarks