Private Sub Workbook_SheetSelectionChange

Bonjour à tous,

je veux exécuter une commande à toutes les feuilles par la procédure :

Code:

---

1 2 3

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not Application.Intersect(Target, Range("A8:A200")) Is Nothing Then ...

---

mais seulement je veux exclure uniquement 2 feuilles de cette exécution


Merci bcp pour votre aide.

Bonjour,

l'objet Sh représentant la feuille, effectuer donc une condition sur sa propriété .Index ou .Name …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci Marc,

si vous pouvez me montrer le détail de la condition sachant que dans le classeur uniquement la feuil1 et la feuil2 ne seront pas concerner par cette
procédure.



encore merci pour votre aide.

Par exemple avec l'index supérieur à 2 …

Bonjour,

Un exemple avec la propriété "Name" :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)   If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" Then Exit Sub 'exclu les feuilles "Feuil1" et Feuil2"   If Not Application.Intersect(Target, Range("A8:A200")) Is Nothing Then ...

---

Hervé.

Merci à tous infiniment, c'est résolu.

A +