Discussion :

[_C14_]

Bonjour,
Le programme permet l'auto écriture de "sub" dans un module en fonction des besoins. Cette étape fonctionne ainsi que les tests sur l'existence du module etc.
Cependant, suite à la génération du code qui est OK :

• et bien que l'utilisateur soit "de retour" sur la feuille de travail,
• et dans la bonne cellule de saisie,

La saisie de l'utilisateur s'écrit dans le module ce qui bien sur engendre un couac !
Voici le code utilisé (qui est une adaptation de l'un des tutos de Dev):

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
35
36
 
'*********************************************************
'TelNOM = Nom de la macro
'TelNUM = Indice specifique du CMD
'CodeACTION = Indice de la macro à déclancher
'"Sub " & TelNOM & "():Call FAIREY(" & TelNUM & ") :End Sub" = La SUB écrite automatiquement
'Nom_MODULE = Public Const du nom du module requis
'Worksheets(F_R) = La feuille de travail du classeur
'*********************************************************
Public Sub ECRIRE_DANS_MODULE(TelNom As String, TelNUM As Integer, CodeACTION As Integer)
Application.VBE.ActiveVBProject.VBComponents(Nom_MODULE).Activate
    With Application.VBE.SelectedVBComponent
        Select Case CodeACTION
        Case Is = 0
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():Call FAIREY(" & TelNUM & ") :End Sub"
        Case Is = 1
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim mont as C_MOOVE:set mont=new C_MOOVE:Call mont.M_M(" & TelNUM & ") :End Sub"
 
        Case Is = 2
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim det as C_MOOVE: set det = new C_MOOVE: Call det.M_S(" & TelNUM & ") :End Sub"
 
        Case Is = 3
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim desc as C_MOOVE:set desc = new C_MOOVE:Call desc.M_D(" & TelNUM & ") :End Sub"
 
        Case Is = 4
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim aj as C_MOOVE:set aj = new C_MOOVE:Call aj.M_A(" & TelNUM & ") :End Sub"
 
 
Case Else
 
        End Select
 
    End With
Application.ThisWorkbook.Worksheets(F_R).Cells(1, 1).Activate
 
End Sub

Une dernière précision, la feuille est verrouillée sauf bien sur les cellules de saisies. Hors lorsque l'on fait la saisie il ne se passe rien ... car la saisie continue dans le module en instance sauf si l'on clique plusieurs fois sur la cellule !
J'aimerai donc trouver le moyen de clore l’accès au module avant de "revenir" à la feuille. Je ne sais si je suis compréhensible ? Merci par avance, bien cordialement.

[jfontaine]

Bonjour,

Et en n'activant pas le module ?

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
Public Sub ECRIRE_DANS_MODULE(TelNom As String, TelNUM As Integer, CodeACTION As Integer)
 
    With Application.VBE.ActiveVBProject.VBComponents(Nom_MODULE)
        Select Case CodeACTION
        Case Is = 0
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():Call FAIREY(" & TelNUM & ") :End Sub"
        Case Is = 1
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim mont as C_MOOVE:set mont=new C_MOOVE:Call mont.M_M(" & TelNUM & ") :End Sub"
 
        Case Is = 2
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim det as C_MOOVE: set det = new C_MOOVE: Call det.M_S(" & TelNUM & ") :End Sub"
 
        Case Is = 3
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim desc as C_MOOVE:set desc = new C_MOOVE:Call desc.M_D(" & TelNUM & ") :End Sub"
 
        Case Is = 4
        Application.VBE.CodePanes(1).CodeModule.AddFromString "Private Sub " & TelNom & "():dim aj as C_MOOVE:set aj = new C_MOOVE:Call aj.M_A(" & TelNUM & ") :End Sub"
 
 
Case Else

[_C14_]

Par contre je viens de tester la suppression de Activate mais la compilation deviens alors impossible.
Le msg est :

Attendu : Identificateur ou expression entre crochets

Les autres propositions automatiques suite au point ne me semblaient pas valables mais je vais quand même les explorer, je reste preneur d'une autre idée, encore merci.

[jfontaine]

Un exemple de code qui ne pose pas ce genre de probleme

Ici c'est la cération d'un userform en auto avec son code, mais c'est très proche pour un module

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 
Dim Usf As VBComponent
Dim obj As Object
Dim i As Integer
 
 
Set Usf = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
 
With Usf
 
    .Properties("Name") = "frm_Ecritures"
    .Properties("StartUpPosition") = 1
    .Properties("Width") = 604.5
    .Properties("Height") = 362
    .Properties("Caption") = "Liste des Ecritures"
 
End With
 
 
                                '#########################
                                '### Ajoute les Objets ###
                                '#########################
 
Set obj = Usf.Designer.Controls.Add("Forms.ListBox.1")
With obj
    .BackColor = &H80000018
    .BorderStyle = 1
    .SpecialEffect = 0
    .MultiSelect = 2
    .Font.Name = "Courier New"
    .IntegralHeight = False
    .BoundColumn = 0
    .Left = 0
    .Top = 0
    .Width = 600
    .Height = 337
End With
 
 
                                '######################
                                '### Ajoute le code ###
                                '######################
 
 
With Usf.CodeModule
    i = .CountOfLines
    .InsertLines i + 1, "Private Sub UserForm_Initialize()"
    .InsertLines i + 2, "AfficheList"
    .InsertLines i + 3, "End Sub"
End With

[_C14_]

J'ai transformé le code ainsi grâce au votre :

Code :

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

1
2
3
4
5
6
 
Dim Mon_MODULE As VBComponent
Set Mon_MODULE = Application.VBE.ActiveVBProject.VBComponents(Nom_MODULE)
 
With Mon_MODULE
... etc

Les tests sont à présent OK, encore merci !