Bonjour
j'ai testé la macro ci dessous en private sub et pas de pb elle fonctionne quand elle est intégré dans le fichier en question.
Maintenant, je possède un fichier excel source ou un active X provoque un certain nb d'opérations par macro. La première d'entre elles et d'ouvrir un fichier .txt et de le transformer en .xlsm sous un nouveau nom. Dasn ce fichier avec ce nouveau nom, je souhaiterais intégrer cette private sub dans ce nouveau fichier mais je ne sais pas comment faire.
Merci pour votre aide.
Ci dessous 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