[VBA] Plantage Excel avec Worksheet_Change

Plantage Excel avec Worksheet_Change [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 16-10-2009 à 14:41:14    

:hello:  
 
Salut à tous !
 
J'ai un souci avec ce code :
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     'Stop
  4.     Application.ScreenUpdating = False
  6.     Dim XX1 As Single
  7.     Range("A65536" ).End(xlUp).Select
  8.     XX1 = ActiveCell.Row - 2
  9.     Range(Target.Address).Select
  11.     If Target.Row > 7 And Target.Row <= XX1 Then
  12.         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
  14.             If ActiveCell.Value = "" Then
  15.                 With Selection.Interior
  16.                     .ColorIndex = 0
  17.                     .Pattern = xlSolid
  18.                     .PatternColorIndex = xlAutomatic
  19.                 End With
  20.             Else
  21.                 With Selection.Interior
  22.                     .ColorIndex = 24
  23.                     .Pattern = xlSolid
  24.                     .PatternColorIndex = xlAutomatic
  25.                 End With
  26.             End If
  27.         End If
  28.     End If
  30.     If ActiveCell.Value <> "" Then
  31.         ActiveCell.Offset(1, 0).Select
  32.     End If
  34. 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
Reply

Marsh Posté le 16-10-2009 à 14:41:14   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed