Discussion :

[Gautheron]

Bonjour,

Au cours de géénration de page de synthèse, je tente de mettre un code sous l'espace privée des feuilles pour activer des macros par douvle click.

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
 
For p = 1 to 5
      Worksheets("Bench Domaine " & p).select 
      indexfeuille = Worksheets("Bench Domaine " & p).CodeName
      'Recherche de l'index systeme                      
      For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count
           If ActiveWorkbook.VBProject.VBComponents(i).Name = indexfeuille Then nb_index = i
      Next
      code = ""
      code = "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" & vbCrLf
      code = code & "t = bench_routine(Target.Row, Target.Column)" & vbCrLf
      code = code & "End Sub"
     With ThisWorkbook.VBProject.VBComponents(nb_index).CodeModule
             nextline = .CountOfLines + 1
                           .InsertLines nextline, code
    End With
next p

J'ai bien coché le "Faire confiance au projet visual basic " dans l'editeurs approuvés.

Cependant, le programme plante sévèrement car excel se ferme brutallement.

Je comprends pas pourquoi ...
Quelqu'un voit ?
Merci de l'aide.

[SilkyRoad]

Bonsoir

Tu peux utiliser cette adaptation

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
Dim p As Integer
Dim X As Integer
Dim Code As String
Dim Ws As Worksheet
 
Code = "Private Sub Worksheet_BeforeDoubleClick(ByVal " & _
    "Target As Range, Cancel As Boolean)" & vbCrLf
Code = Code & "t = bench_routine(Target.Row, Target.Column)" & vbCrLf
Code = Code & "End Sub"
 
For p = 1 To 5
 
    Set Ws = ThisWorkbook.Worksheets("Bench Domaine " & p)
 
    With ThisWorkbook.VBProject.VBComponents(Ws.CodeName).CodeModule
        X = .CountOfLines
        .InsertLines X + 1, Code
    End With
 
Next p

bonne soirée
michel

[Gautheron]

Bonsoir Michel,

merci de tes améliorations précieuses.

Une remarque supplémentaire pour nos amis développeurs.
J'avais mis ces quelques lignes de programmes comme un dernier paragraphe d'un processus de création de feuilles.
Le programme plantait (fermeture d'excell !!!) toujours apres la première écriture du code, et le debut de création de la seconde page... Et cela, jene sais pourquoi.
Par contre, en séparant la création des pages de l'écriture du code dans leurs modules propres, tout se passe très bien.
Si ca peut aider

[SilkyRoad]

Bonjour

Par contre, en séparant la création des pages de l'écriture du code dans leurs modules propres, tout se passe très bien.

Effectivement, le VBA n'aime pas trop la création d'objets, et de code associé, dans une même boucle.

bonne journée
michel