Ajouter un code au module d'une feuille

Bonsoir,

Lors de la création d'une feuille par macro, je souhaiterais que le module de celle-ci intègre un code. Pour ce faire, j'ai procédé de la façon suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim code As String   code = "Private Sub Worksheet_Change(ByVal target As Range)" & vbCrLf & _ "If target = ActiveSheet.Cells(10, 7) Then" & vbCrLf & _ "ActiveSheet.Cells(10, 7).Select" & vbCrLf & _ "Selection.Font.Color = -16752384" & vbCrLf & _ "End If" & vbCrLf & _ "End Sub"   ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule.AddFromString code

---

Malheureusement, à l'exécution de la macro, ça ne passe pas au niveau de la dernière ligne... Comment faut-il s'y prendre ?

Merci d'avance.

Bonjour,
Sans vouloir donner mon avis sur un dossier que je ne connais pas.
Sais-tu qu'il y a une procédure évènementielle Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) dans l'objet ThisWorkbook qui permet d'intercepter le nom de la feuille (sh) où a eu lieu le changement et qu'il serait peut-être plus simple de chercher une solution de ce côté là.
Par exemple prévoir une feuille paramètre où tu placerais dans une plage le nom des feuilles où l'événement doit être intercepté et que tu remplirais au fur et à mesure de la création de feuille.

Bonjour corona,

Merci de me rappeler l'existence de cet évènement, je ne m'en souvenais plus. :ccool:

Seulement, un léger problème se pose. A la création de la feuille en question, l'évènement se déclence à chaque modification de cellule (ce qui est normal au vu de cet évènement). Or, je souhaiterais que cela se fasse uniquement pour des changements effectués après création de la feuille, et non en cours de création.

Cela est-il faisable ?

Edit : en fait, il faudrait que je puisse exprimer en VBA "si telle procédure est terminée (sous entendu la génération de la feuille) alors.." Mais je ne vois pas comment...

Merci.

Bonjour,

Citation:

---

Edit : en fait, il faudrait que je puisse exprimer en VBA "si telle procédure est terminée (sous entendu la génération de la feuille) alors.." Mais je ne vois pas comment...

---

Tu peux utiliser la méthode du "Flag".

au début de la création de ta feuille tu alimentes une cellule non utilisée d'une certaine donnée (par exemple 1).
Tu testeras si cette donnée est présente au début de l’évènement "Workbook_SheetChange" et si donnée présente alors on sort de l’évènement.
Ne pas oublier de remettre à blanc la cellule à la fin de la création

Bonjour,

vois du côte de la propriété EnbleEvents de l'objet Application qui est destinée à ce genre de problème.

vois l'aide VBA à

Citation:

---

Référence du développeur Excel

1. Application.EnableEvents, propriété
   
2. Utilisation d'événements avec des objets Excel

---

cordialement,

Didier

Merci à vous deux pour vos idées ! :ccool:

La méthode du "Flag" est bien pensée, je devrais pouvoir m'en sortir ainsi. :ccool:

Concernant la propriété EnableEvents, je ne vois pas trop comment l'utiliser. Est-ce uné méthode pour résoudre mon premer problème, à savoir le fait de pouvoir insérer du code dans le module d'une feuille lors de sa création ?

Bonjour,

Citation:

---

Envoyé par m@tix

Concernant la propriété EnableEvents, je ne vois pas trop comment l'utiliser. Est-ce uné méthode pour résoudre mon premer problème, à savoir le fait de pouvoir insérer du code dans le module d'une feuille lors de sa création ?

---

Vu la complexité du projet auquel tu t'attaques, assembler des bouts de code qu'on te fournit, si ça fonctionne, créera une bombe à retardement, te pencher un peu plus sur le fond des choses pour en comprendre le sens te sera des plus bénéfiques ;)

Idem, s’attaquer à manipuler le code VBA d'un classeur au moyen d'autres procédures VBA demande aussi de maîtriser un minimum les bases classiques.

Si tu as lu l'aide VBA indiquée, il y a en clair :

Citation:

---

Utilisez la propriété EnableEvents pour activer ou désactiver des événements. Par exemple, le fait d'utiliser la méthode Save pour enregistrer un classeur déclenche l'événement BeforeSave. Vous pouvez l'éviter en affectant la valeur False à la propriété EnableEvents avant d'appeler la méthode Save.

---

Tu peux aussi te référer aux tutos de DVP comme ici :

http://silkyroad.developpez.com/VBA/...tsClasseur/#LI

Citation:

---

Utilisez la propriété EnableEvents pour désactiver provisoirement les évènements. Si vous devez par exemple écrire dans une cellule à partir d'une procédure évènementielle qui est déclenchée par la modification des cellules, vous allez provoquer une boucle récursive infinie. La propriété Application.EnableEvents = False permet de règler ce problème.

---

cordialement,

Didier

Bonsoir,

Après quelques recherches, j'ai finalement pu me débrouiller avec cette propriété EnableEvents.

Merci beaucoup ! :ccool: