Discussion :

[m@tix]

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 :

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

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.

[Philippe Tulliez]

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.

[m@tix]

Bonjour corona,

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

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.

[jfontaine]

Bonjour,

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

[Didier Gonard]

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 à

Référence du développeur Excel

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

cordialement,

Didier

[m@tix]

Merci à vous deux pour vos idées !

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

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 ?