Discussion :

[fmris]

Bonjour
J'ai une sub "Worksheet_Change" qui est fonctionnelle.
Je voudrais intégrer cette dernière dans un nouveau fichier de manière automatique.
Je ne sais pas comment faire pour que cette dernière s'applique.

Pour être plus clair j'ai un fichier ("fichier source") dans lequel se trouve un bouton qui execute une macro.
Dans cette macro un nouveau fichier s'ouvre ("fichier cible"). Dans un des onglets de ce fichier deux, je souhaite associé la private sub ci dessous.

Merci de m'aider

ci dessus ma private sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim laLigne As Integer, laColonne As Integer
    Dim d
 
    laLigne = Target.Row
    laColonne = Target.Column
 
Range("a1") = laLigne
Range("a2") = laColonne
 
    d = 1
    While Cells(74, d + 1) <> ""
    d = d + 1
    Wend
        If laLigne < 12 And laLigne > 1 And laColonne < 14 And laColonne > 6 Then
            ActiveSheet.ChartObjects("Graphique 1").Activate
            ActiveChart.SeriesCollection(1).Values = Range(Cells(laLigne + 72, 1), Cells(laLigne + 72, d))
            ActiveChart.ChartTitle.Text = "Génératrice " & laColonne - 6 & " ligne " & laLigne
        Else
        End If
Cells(laLigne, laColonne).Select
End Sub

[parmi]

Bonjour,

Tu ne pourrais pas créer un fichier "Template" avec la macro déjà intégrée et que tu ouvres et remplis au besoin avec ta macro plutôt que d'en créer un nouveau ?

[fmris]

je ne connais pas les fichiers "template". Peux tu m'expliquer qu'est ce que tu entends par ce terme ?

[parmi]

En fait c'est une feuille modèle qui a les mêmes configurations mais sans les données modifiables.
Celle-ci peut être masquée.
Il suffit d'en faire une copie dans le même classeur ou dans un nouveau et d'y copier les données que tu souhaites.

Attention aussi: les Sub Worksheet_Change et Worksheet_SelectionChange sont bien différentes
Dans ton message tu parles de Change et ton code montre SelectionChange

[fmris]

je ne vois pas trop comment l'appliquer dans mon cas.
Y'aurait il une autre solution ?

[parmi]

Parallèlement aux macros qu'on retrouve dans chaque feuille (Change, SelectionChange), on a aussi les mêmes au niveau du classeur dans ThisWorkbook
Une différence est le paramètre Sh as Worksheet qui définit sur quelle feuille le code va s'appliquer
C'est peut-être une solution à ton problème(?)

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
End Sub