Macro complémentaire et Private Sub

Bonjour,

J'ai créé des macros dans un fichier Excel puis, m'apercevant que je pourrai avoir besoin des macros avec d'autres fichiers, j'ai enregistré les macros dans un fichier .xla.

Problème : il y avait des macros événementielles du genre :

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

---

ou :

Code:

---

Private Sub CommandButton2_Click())

---

et celles-ci ne marchent pas dans les nouveaux fichiers Excel où je souhaite les utiliser.

Y a-t-il une manière de contourner ce problème ?

Merci de votre aide.

Bonjour,

Créer les fonctions ou les procedures avec passage d'arguments si necessaire et faire appel à celles-ci dans la procedure evenement du classeur

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call Procedure1(valeur1 , valeur2,...) retour = Procedure2(valeurX) End Sub

---

Je ne suis pas sûr d'avoir compris la réponse mais je ne pense pas non plus avoir formulé clairement ma question donc je reformule :

J'ai une macro Private Sub Worksheet_SelectionChange(ByVal Target As Range) dans une feuille de ma macro complémentaire macro.xla. En gros dès que je sélectionne une cellule dans cette feuille, il se passe un certain nombre de choses.

Je souhaite utiliser cette macro assez complexe dans un autre fichier .xls mais bien que je nomme les feuilles de ce fichier de la même manière que dans la macro complémentaire, rien ne se passe.

Est-ce plus clair ?

Tu avais (par exemple)

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address="$A$1" then Msgbox "Cellule A1 sélectionnée" End Sub

---

Tu mets dans une module, la procédure suivante

Code:

---

1 2 3

Sub SelectionCelluleA1(ByVal Targ as Range) If Targ.Address="$A$1" then Msgbox "Cellule A1 sélectionnée" End Sub

---

que tu fais fonctionner par

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call SelectionCelluleA1(Target) End Sub

---