Discussion :

[julbul]

bonjour et merci pour le code de cette discussion qui fonctionne parfaitement.

Pouvez vous m'indiquer comment limiter cette fonction à un seul onglet parmi les plusieurs présents dans le document svp ?

En plaçant le code dans l'onglet souhaité ça ne marche pas. J'ai tenté de remplacer "Workbook_SheetChange" par "Worksheet_SheetChange" ou "Worksheet_Change" mais j'ai un message d'erreur que je ne comprends pas...

Merci d'avance.

[Philippe Tulliez]

Bonsoir,
Soit on continue à utiliser la procédure événementielle au niveau de l'objet WorkBook et alors on utilise l'argument sh qui représente l'objet WorkSheet où s'est produit l'événement.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 If Sh.Name = "Feuil2" Then
  ' Placer le code ici"
  With Target.Interior
  .ColorIndex = 3
  .Pattern = xlSolid
  End With
 End If
End Sub

Soit on utilise la procédure Worksheet_Change mais à placer dans l'objet WorkSheet où doit avoir lieu l'événement par exemple Feuil2

[julbul]

Merci, ca fonctionne parfaitement.

Je suis désolé, j'aurais du tout demander en même tps, mais je souhaite restreinte à une plage de cellule.
J'ai essayé pas mal de combinaison avec de vous demander mais rien n'y fait.

Par exemple :

Code :

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

If Sh.Name = "Feuil2" And Sh.range("D11:F15") Then

Mais il y a une erreur.

Cordialement,
Julien

[Philippe Tulliez]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name = "Feuil2" Then
    If Not Application.Intersect(Target, Range("D11:F15")) Is Nothing Then
      ' Le code
      ' ...
    End If
  End If
End Sub

ou

Code :

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

1
2
3
4
5
6
7
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name = "Feuil2" And Not Application.Intersect(Target, Range("D11:F15")) Is Nothing Then
    ' Le code
    ' ...
 End If
End Sub