créer une feuille et du code inclu

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2009

• #2

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"

 

Vote positif 0 Vote négatif

G

grodep

XLDnaute Occasionnel

• 30 Octobre 2009

• #3

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 :

Code:

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2009

• #4

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"...

 

Vote positif 0 Vote négatif

G

grodep

XLDnaute Occasionnel

• 30 Octobre 2009

• #5

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2009

• #6

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.

 

Vote positif 0 Vote négatif

G

grodep

XLDnaute Occasionnel

• 30 Octobre 2009

• #7

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 🙂

 

Vote positif 0 Vote négatif

G

grodep

XLDnaute Occasionnel

• 30 Octobre 2009

• #8

Re : créer une feuille et du code inclu

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

 

Vote positif 0 Vote négatif

G

grodep

XLDnaute Occasionnel

• 2 Novembre 2009

• #9

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

Code:

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.

 

Dernière édition: 2 Novembre 2009

Vote positif 0 Vote négatif