créer une feuille et du code inclu

[grodep]

Bonjour à tous, voici ma question :
je constate qu'il est possible de créer des macros dans des modules mais aussi d'écrire du code "directement" dans une feuille(j'espere que c'est assez clair jusque là).
Est-il possible, lorsqu'on crée une feuille a l'aide d'une macro de faire en sorte que cette feuille "contienne" un code?
voici un exemple de ce que j'appelle une feuille qui contient du code(classeur créé par boisgontier)

merci a tous

 

[tototiti2008]

Re : créer une feuille et du code inclu

Bonjour grodep,

Oui, c'est possible.

des exemples là :

Visual Basic Editor - Club des décideurs et professionnels en Informatique

ou dans l'utilitaire que je propose en bas de ma signature "Organiser ses codes VBA"

 

[grodep]

Re : créer une feuille et du code inclu

oulalala c'est du lourd ce site 🙂

bon si j'ai bien compris, ce que je souhaite faire s'appelle "créer une macro dynamiquement" et l'exemple ci-dessous s'y rapporte :

Sub creationMacro()
Dim X As Integer

With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
    
    'Chr(38) permet d'insérer le symbole & dans la procédure.
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

bon, j'vais voir ce que j'arrive a faire avec ça 😛

merci en tout cas pour les pistes de recherche

 

[tototiti2008]

Re : créer une feuille et du code inclu

Re,

Mais pour que ça fonctionne, il faudra que dans la sécurité des macros, tu coches "Faire confiance au projet Visual basic"...

 

[grodep]

Re : créer une feuille et du code inclu

humm quand j'essaie, j'ai ce message en retour
erreur 1004
l'acces au projet visual basic par programme n'est pas fiable

c'est normal ?

version excel 2007

 

[tototiti2008]

Re : créer une feuille et du code inclu

Re,

je n'ai pas 2007, je ne sais pas où tu dis de faire confiance au projet visual basic sur cette version... mais c'est exactement le type d'erreur qu'il fait si tu n'as pas coché l'option.

 

[grodep]

Re : créer une feuille et du code inclu

oui désolé j'ai écrit mon deuxieme message en meme temps que tu me prévenais.. je vais rechercher 🙂

 

[grodep]

Re : créer une feuille et du code inclu

trouvé et ça marche, génial merci pour la solution et le suivi du fil 🙂

 

[grodep]

Re : créer une feuille et du code inclu

arghhh, j'essaie d'écrire ça correctement dans mon code, j'ai donc remplacé feuil1 par prévi

With ThisWorkbook
vry = Array("prévi", "vols", "sols", "recap")
    For i = 1 To 4
        .Sheets.Add after:=.Sheets(.Sheets.Count)
        .Sheets(.Sheets.Count).Name = vry(i)
    Next i
End With

'insertion module liste dynamique dans feuille prévi
With ActiveWorkbook.VBProject.VBComponents("prévi").CodeModule

lorsque je lance ma macro , le programme bloque sur cette ligne : erreur '9' : l'indice n'appartient pas à la sélection.
l'aide d'excel ne m'apporte aucun éclaircissement, je ne vois pas le rapport entre le message d'erreur, son explication et le code que j'introduis...

quelqu'un voit d'où peut venir le problème?

Edit: alors visiblement le problème vient de ce que je ne peux pas nommer VBComponents par son nom, il faut que ce soit du type "Feuil1". Du coup mon problème est autre : comment puis je savoir quel sera le numéro de ma feuille lors de sa création? En effet, si j'initialise plusieurs fois cette macro, le numéro des feuilles s'incrémente au fur et à mesure... Je suis sur qu'il y a un moyen simple et efficace de passer cet écueil mais je ne le connais pas..

merci d'avance.