[XL-2010] Problème sur "ThisWorkbook.VBProject.VBComponents"

Problème sur "ThisWorkbook.VBProject.VBComponents"

Bonsoir,

J'ai créé un fichier qui génère plusieurs feuilles, et dans ces feuilles que je veux copier une procédure en particulier.

Donc pour cela j'ai mis dans ThisWorkbook la procédure suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim code As String
Dim NextLine As String
Dim NewSheet As Worksheet
Set NewSheet = Sheets(ActiveSheet.Name)
 
        'Imputation de la procédure dans une variable
        code = "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
        code = code & "'Déclarations des variables" & vbCrLf
        code = code & "Dim strValeur As String" & vbCrLf
        code = code & "Dim varColor As Variant" & vbCrLf
        code = code & "" & vbCrLf
        code = code & "'Récupération de la valeur" & vbCrLf
        code = code & "strValeur = Cells(Target.Row, Target.Column).Value" & vbCrLf
        code = code & "" & vbCrLf
        code = code & "'Si la valeur n'est pas null" & vbCrLf
        code = code & "If strValeur <> """" and blnCreation = False Then" & vbCrLf
        code = code & "" & vbCrLf
        code = code & "     'Centrage de la valeur" & vbCrLf
        code = code & "     With Selection" & vbCrLf
        code = code & "         .HorizontalAlignment = xlCenter" & vbCrLf
        code = code & "         .VerticalAlignment = xlCenter" & vbCrLf
        code = code & "         .WrapText = False" & vbCrLf
        code = code & "         .Orientation = 0" & vbCrLf
        code = code & "         .AddIndent = False" & vbCrLf
        code = code & "         .IndentLevel = 0" & vbCrLf
        code = code & "         .ShrinkToFit = False" & vbCrLf
        code = code & "End Sub"
 
        With ThisWorkbook.VBProject.VBComponents(NewSheet.CodeName).CodeModule
            NextLine = .CountOfLines + 1
            .InsertLines NextLine, code
        End With
End Sub

Mon problème est que mon application plante sur la ligne :

Code:

1
2
 
ThisWorkbook.VBProject.VBComponents(NewSheet.CodeName).CodeModule

Auriez-vous une idée pour résoudre cela ?

D'avance merci
Nefertari

Bonjour Nefertari,

Est-ce que vous avez un message particulier lors du plantage ?

Ce sujet est traité ici :

http://dj.joss.free.fr/ecrisub.htm

Bonjour

oui j'ai un message d'erreur qui est :

Erreur d’exécution '9' :

l'indice n'appartient pas à la sélection

nefertari

Bonjour,

Ça ne devrait pas générer d'erreur. Vérifie que, dans les Options, "Centre de gestion de la confidentialité", "Paramètres du centre de gestion de la confidentialité", "Paramètres des macros", la case "Accès approuvé au modèle d'objet du projet VA" est bien cochée.

Bonjour,

J'ai résolu mon problème, je ne passe plus par l'événement "Workbook_NewSheet"

J'ai créé une feuille vide dans laquelle j'ai mis mon code sur l'événement Change. Cette feuille est caché à l'utilisateur final.

Mais lorsque j'en ai besoin je fais une copie de ma feuille vierge et après avec une autre procédure je présente mon planning.

Merci.