Salut à tous !
J'ai un souci avec ce code :
Code :
- Private Sub Worksheet_Change(ByVal Target As Range)
- 'Stop
- Application.ScreenUpdating = False
- Dim XX1 As Single
- Range("A65536" ).End(xlUp).Select
- XX1 = ActiveCell.Row - 2
- Range(Target.Address).Select
- If Target.Row > 7 And Target.Row <= XX1 Then
- If Target.Column = 8 Or Target.Column = 9 Or Target.Column = 10 Or Target.Column = 11 Or Target.Column = 12 Or Target.Column = 14 Then
- If ActiveCell.Value = "" Then
- With Selection.Interior
- .ColorIndex = 0
- .Pattern = xlSolid
- .PatternColorIndex = xlAutomatic
- End With
- Else
- With Selection.Interior
- .ColorIndex = 24
- .Pattern = xlSolid
- .PatternColorIndex = xlAutomatic
- End With
- End If
- End If
- End If
- If ActiveCell.Value <> "" Then
- ActiveCell.Offset(1, 0).Select
- End If
- End Sub
|
je le traduis :
si je tape une valeur dans une cellule qui se trouve entre la 8ème et denière ligne de mon tableau et qui se trouve dans les colonnes 8, 9, 10, 11, 12 ou 14, le fonds de ma cellule change
si j'efface ce qu'il y a dans la cellule, le fonds se réinitialise...
ça marche très très bien... pas de souci...
par contre, quand je sélectionne une ligne du tableau en entier et que je la supprime, Excel reste figé...
quel est mon problème ?
---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
