Utilisation d'une private sub
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:
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 |
