Utilisation de la range "Target" dans une autre procedure.

Bonjour à tous,
Je cherche à utiliser la range "Target" renvoyer dans les sub "Private Sub Worksheet_Change(ByVal Target As Range)" et "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" d'une feuille vers une autre procédure pour éviter d'avoir 2 procédures identiques dans ces evenements.

J'ai essayé de déclarer un objet "Selection", une Range, avec ou sans "Option explicit". J'ai tourné le problème dans tous les sens, J'ai toujours un message d'erreur.
J'ai mis cette 3 eme procédure dans le code de la feuille, dans un module, même problème.
Pour ma recherche, cette 3eme procédure ne contient qu'une msgbox (selection.address) pour vérifier le bon fonctionnement.

Essai avec le transfert direct de "Target" vers la procédure Essai:
Private Sub Worksheet_Change(ByVal Target As Range)
essai (Target)
End Sub
Erreur 424


Essai avec une variable déclarée et utilisation ou non de "Set" :
Dim selection As Range
Set selection = Target
essai (selection)
erreur 91
Dans la procédure "Essai", j'ai aussi essayé avec et sans la declaration (byval selection as range) mais toujours une erreur!
En espérant avoir été assez clair même si je ne suis pas rentré dans le détail de toutes les versions essayées. Si quelqu'un peux m'éclairer sur ce problème que je tourne dans tous les sens.
Merci d'avance.
Cordialement

Bonjour,

Citation:

---

Je cherche à utiliser la range "Target" renvoyer dans les sub "Private Sub Worksheet_Change(ByVal Target As Range)" et "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" d'une feuille vers une autre procédure pour éviter d'avoir 2 procédures identiques dans ces evenements.

---

Vous pouvez soit prévoir un argument de type Range dans la procédure que vous avez nommé "Essai" ou utiliser l'objet Selection

Exemple 1 en utilisant un argument de type Range

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Essai Target End Sub

---

La procédure Essai dans un module standard ou dans le module de la feuille

Code:

---

1 2 3

Sub Essai(oRange As Range) MsgBox "Target = " & oRange.Address End Sub

---

Exemple 2 en utilisant l'objet Selection dans la procédure Essai

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Essai End Sub

---

La procédure Essai dans un module standard ou dans le module de la feuille

Code:

---

1 2 3

Sub Essai() MsgBox "Target = " & Selection.Address End Sub

---

Lorsque vous invoquez une procédure avec argument, c'est Call Essai(Target) ou Essai Target