Placer ce code dans un module standard, n'importe lequel, d'un classeur, n'importe lequel, et l'exécuter.
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
24
25
26
27
28
29
30
31
32
33
34 Option Explicit Sub EcrireDuCodeNimporteOu() Dim i, LeCode(1 To 13) Dim NomClasseur As String, NomFeuil As String Dim Wb As Workbook Application.Workbooks.Add NomClasseur = ActiveWorkbook.Name Worksheets.Add NomFeuil = ActiveSheet.Name LeCode(1) = "Private Sub Worksheet_Deactivate()" LeCode(2) = "Dim msg" LeCode(3) = " msg = ""Après avoir beaucoup cherché sur le Web"" & vbcr" LeCode(4) = " msg = msg & ""Et suite à une méchante galère"" & vbcr" LeCode(5) = " msg = msg & ""J'ai trouvé un site super"" & vbcr" LeCode(6) = " msg = msg & ""Où je peux enfin me défouler"" & vbcr" LeCode(7) = " msg = msg & ""A glisser des trucs perverts"" & vbcr" LeCode(8) = " msg = msg & ""Dans des codes élaborés"" & vbcr" LeCode(9) = " msg = msg & ""Conclusion :"" & vbcr" LeCode(10) = " msg = msg & "" Ne faites jamais confiance dans les codes qu'on vous passe"" & vbcr" LeCode(11) = " msg = msg & "" Assurez-vous de l'avoir compris avant de dire """"Youpi !""""" LeCode(12) = " msgbox msg" LeCode(13) = "End sub" Set Wb = Workbooks(NomClasseur) With Wb.VBProject.VBComponents(NomFeuil).CodeModule For i = .CountOfLines To 1 Step -1 .DeleteLines i DoEvents Next For i = 1 To UBound(LeCode) .InsertLines i, LeCode(i) Next End With Workbooks(NomClasseur).Worksheets(2).Select End Sub
......................................................![]()
Partager