Discussion :

[PANGOT911]

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

[Philippe Tulliez]

Bonjour,

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 :

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

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 :

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

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 :

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

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 :

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

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