Insertion d'une macro de feuille sur une feuille nouvellement crééeRésolu

Question

Bonjour,

sur un fichier Excell, j'ai une feuille sur laquelle je colle des données extraites d'une autre appli. En double cliquant, sur cette feuille, j'ai une macro qui se lance et qui entre autre crée une nouvelle feuille et sur laquelle les données sont mises en forme.
A partir de cette nouvelle feuille, je souhaiterais qu'en cliquant sur une cellule (de la colonne A) une nouvelle macro se lance. 
Ce que je n'arrive pas à faire, c'est justement créer cette macro dans cette nouvelle feuille.

Pourriez-vous m'apporter votre aide?

bigfish_le vrai · Accepted Answer

Salut,

le plus simple est d'avoir une feuille modele qui contient le code. Donc chaque fois que tu dois creer une nouvelle feuille au lieu de faire :

Wokrsheets.Add After:=WorkSheets(WorkSheets.count)

tu fais :

(Au prealable tu dois avoir créé une feuille nomé "Modele" qui contient le code que la nouvelle feuille devra contenir.)

Sub Creer_NewFeuille()
    Application.ScreenUpdating = False
    If Worksheets("Modele").Visible = xlVeryHidden Then FeuilleModele_XlVeryHidden_OnOFF
    Worksheets("Modele").Copy after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "NewFeuille"
    FeuilleModele_XlVeryHidden_OnOFF
    Application.ScreenUpdating = False
End Sub
Sub FeuilleModele_XlVeryHidden_OnOFF()
    Worksheets("Modele").Visible = (Worksheets("Modele").Visible + -1) * -1
End Sub

A+

tonstre · Answer

Merci, merci, merci.

Insertion d'une macro de feuille sur une feuille nouvellement créée

2 réponses

Votre réponse

Discussions similaires