Discussion :

[Fabien28]

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 :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ou :

Code :

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

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.

[helas]

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 :

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

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

[Fabien28]

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 ?

[mercatog]

Tu avais (par exemple)

Code :

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

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 :

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

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 :

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

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