Discussion :

[erm60]

Bonjour,
Dans une macro évènementielle, je souhaite agir sur un ensemble de cellules, en fonction du résultat d'un calcul apparaissant dans la colonne 10 (J) de mon tableau. Avec mon code, l'évènement se produit seulement lorsque le rentre manuellement la valeur dans la cellule. Pouvez-vous m'aidez ? Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 10 Then
If Target.Value > 1 Then
Range(Target, Target.Offset(0, -5)).Interior.ThemeColor = xlThemeColorAccent2
Range(Target, Target.Offset(0, -5)).Interior.TintAndShade = 0.8
Else
Range(Target, Target.Offset(0, -5)).Interior.Pattern = xlNone
End If
End If
Application.EnableEvents = True
 
End Sub

[PMO2017]

Bonjour,

Essayez avec votre code modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
On Error Resume Next
Set R = Target.Dependents
If Err = 0 Then
  Application.EnableEvents = False
  If R.Column = 10 Then
    If R.Value > 1 Then
      Range(R, R.Offset(0, -5)).Interior.ThemeColor = xlThemeColorAccent2
      Range(R, R.Offset(0, -5)).Interior.TintAndShade = 0.8
    Else
      Range(R, R.Offset(0, -5)).Interior.Pattern = xlNone
    End If
  End If
  Application.EnableEvents = True
End If
Err.Clear
On Error GoTo 0
 
'/// éventuels autres traitements ///
 
End Sub

[erm60]

Bonjour,
Ca fonctionne très bien.
Il fallait donc agir sur les dépendants (Set R = Target.Dependents) de ma cellules. J'ai encore appris quelque chose.
Je commençais à désespérer car je n'avais pas de réponse.

Merci beaucoup
Eric