Discussion :

[skorpio]

Bonjour à tous...

j'ai un gros petit soucis

en fait j'ai un UserForm qui est constitué d'un TextBox et d'un CommandButton, jusqu'ici facil...

J'ai un code dans l'userform qui génére des macros, et c'est la que ça se complique.

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
Private Sub CommandButton1_Click()
Dim W As Workbook
Dim vbM As VBComponent
 
 
Set W = Workbooks("wanao.xls") 'prend le classeur courant
 
'crée un nouveau module dans le classeur
Set vbM = W.VBProject.VBComponents.Add(vbext_ct_StdModule)
 
If TextBox1.Value = 1 Then
     'ajoute la fonction qui crée la colonne dans le classeur actif avec 1 col
     vbM.CodeModule.InsertLines 1, "Sub colonne"
     vbM.CodeModule.InsertLines 2, "Range(""B5"").Select"
     vbM.CodeModule.InsertLines 3, "Selection.Borders(xlDiagonalDown).LineStyle = xlNone"
     vbM.CodeModule.InsertLines 4, "Selection.Borders(xlDiagonalUp).LineStyle = xlNone"
     vbM.CodeModule.InsertLines 5, "With Selection.Borders(xlEdgeLeft)"
     vbM.CodeModule.InsertLines 6, ".LineStyle = xlContinuous"
     vbM.CodeModule.InsertLines 7, ".Weight = xlThin"
     vbM.CodeModule.InsertLines 8, ".ColorIndex = xlAutomatic"
     vbM.CodeModule.InsertLines 9, "End With"
     vbM.CodeModule.InsertLines 10, "With Selection.Borders(xlEdgeTop)"
     vbM.CodeModule.InsertLines 11, ".LineStyle = xlContinuous"
     vbM.CodeModule.InsertLines 12, ".Weight = xlThin"
     vbM.CodeModule.InsertLines 13, ".ColorIndex = xlAutomatic"
     vbM.CodeModule.InsertLines 14, "End With"
     vbM.CodeModule.InsertLines 15, "Selection.Borders(xlEdgeBottom).LineStyle = xlNone"
     vbM.CodeModule.InsertLines 16, "With Selection.Borders(xlEdgeRight)"
     vbM.CodeModule.InsertLines 17, ".LineStyle = xlContinuous"
     vbM.CodeModule.InsertLines 18, ".Weight = xlThin"
     vbM.CodeModule.InsertLines 19, ".ColorIndex = xlAutomatic"
     vbM.CodeModule.InsertLines 20, "End With"
     vbM.CodeModule.InsertLines 21, "End sub"
     Application.VBE.MainWindow.Visible = False
End If
End Sub

En fait le code que vous voyez là, génère un Macros(un Module) dans mon classeur et un fois que je le démarre ça fonctionne, ici la macro change la propriété de la cellule "B5" , mais justement c'est la le problème, c'est que j'aimerai moi-même dire quel colonne saisir (ici c'est 1) grace à mon textBox...

Je sais pas si j'ai été clair,
en j'aimerai lorsque je saisi par exemple 6 dans mon TextBox et que je clic sur CommandButton, et bien que ça me génère un macros qui lorsque je la lance change les propriétés des cellules B5,C5,D5,E5,F5,G5

Si vous avez des questions?

[jfontaine]

Est ce que ce code fais ce que tu souhaites

Code :

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

vbM.CodeModule.InsertLines 2, "Range(""B" & textbox.text & """).Select"

[skorpio]

pour être plus clair j'ai mis une pièce jointe...

en fait je veux moi même gérer ma macro...

si je saisi 4 colonnes,
et bien ensuite je donne le titre des 4 colonnes,
et pour finir je génére la macros...

[skorpio]

Non ça ne marche pas

en fait faut oublier mon code à partir de

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
If TextBox1.Value = 1 Then
     'ajoute la fonction qui crée la colonne dans le classeur actif avec 1 col
     vbM.CodeModule.InsertLines 1, "Sub colonne"
     vbM.CodeModule.InsertLines 2, "Range(""B" & TextBox.Text & """).Select"
     vbM.CodeModule.InsertLines 3, "Selection.Borders(xlDiagonalDown).LineStyle = xlNone"
     vbM.CodeModule.InsertLines 4, "Selection.Borders(xlDiagonalUp).LineStyle = xlNone"
     vbM.CodeModule.InsertLines 5, "With Selection.Borders(xlEdgeLeft)"
     vbM.CodeModule.InsertLines 6, ".LineStyle = xlContinuous"
     vbM.CodeModule.InsertLines 7, ".Weight = xlThin"
     vbM.CodeModule.InsertLines 8, ".ColorIndex = xlAutomatic"
     vbM.CodeModule.InsertLines 9, "End With"
     vbM.CodeModule.InsertLines 10, "With Selection.Borders(xlEdgeTop)"
     vbM.CodeModule.InsertLines 11, ".LineStyle = xlContinuous"
     vbM.CodeModule.InsertLines 12, ".Weight = xlThin"
     vbM.CodeModule.InsertLines 13, ".ColorIndex = xlAutomatic"
     vbM.CodeModule.InsertLines 14, "End With"
     vbM.CodeModule.InsertLines 15, "Selection.Borders(xlEdgeBottom).LineStyle = xlNone"
     vbM.CodeModule.InsertLines 16, "With Selection.Borders(xlEdgeRight)"
     vbM.CodeModule.InsertLines 17, ".LineStyle = xlContinuous"
     vbM.CodeModule.InsertLines 18, ".Weight = xlThin"
     vbM.CodeModule.InsertLines 19, ".ColorIndex = xlAutomatic"
     vbM.CodeModule.InsertLines 20, "End With"
     vbM.CodeModule.InsertLines 21, "End sub"
     Application.VBE.MainWindow.Visible = False
End If

car en fait c'est pas bien...

je pense qu'avec le lien que j'ai mis auparavant c'est assez clair, pour vous éclairer,
oubliez les propriétés de la cellule ci-dessus...

[cavo789]

Ce qui suit n'est pas une réponse à ta question mais une proposition d'amélioration : au lieu de coder ta macro avec des InsertLines je te suggère de passer par un fichier TXT que tu importeras avec la méthode AddFromFile.

Ci-dessous un exemple (incomplet)

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
Dim AccessApp As Access.Application
Dim MyModule As Object

Set AccessApp = GetObject(sDBName)
         
   With AccessApp
   
      ' Create a new Module.
   
      .RunCommand acCmdNewObjectModule

      ' Set MyModule to be the new Module Object.

      Set MyModule = .Modules.Item(.Modules.Count - 1)
      
      Call MyModule.DeleteLines(1, MyModule.CountOfLines)
   
      MyModule.AddFromFile (cModuleFileName)
   
      ' Save, close, and rename the new Module as "Created Code."
   
      .DoCmd.Save acModule, MyModule
      .DoCmd.Close acModule, MyModule, acSaveYes

[AlexFred]

Bonjour,
Juste pour compréhension du code suivant:
Dim vbM As VBComponent
Pourquoi me renvoyer :
'type défini par l'utilisateur non défini !!!!

Merci

[tirex28]

Bonjour,

@alexFred

Dans VBE, Outils>Références

Il faut cocher la référence à Microsoft Visual Basic for Applications Extensibility x.y

@skorpio:

As tu envisagé une approche plus classique avec une macro allant chercher ses parametres à l'aide de la fonction inputbox ?

Cordialement,

Tirex28/

[zazaraignée]

Le contrôle RefEdit te serait très utile dans ton cas. Tu verras c'est magique.

[skorpio]

c'est assez complexe, je ne sais pas utiliser le RefEdit dans ce cas