Discussion :

[MarcelG]

Salut les amis,

Je copie une feuille de travail de mon classeur en créant un nouveau classeur.
Dans le code affecté à cette feuille, se trouvent des procédures évènementielles (Clic sur bouton de commande, évènement Activate...).

J'avais conservé ce code retourné par l'un de mes premiers interlocuteurs, OusKelnor ,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Application.EnableEvents = False
 
Dim i As Byte
 
Worksheets("Report").Copy
 
With ActiveWorkbook
    With .VBProject.VBComponents("Report").CodeModule
        For i = .CountOfLines To 1 Step -1
            .DeleteLines i
            DoEvents
        Next
    End With
 
With .Worksheets("Report").UsedRange
.Value = .Value
End With
End With

Erreur d'exécution 9 L'indice n'appartient pas à la sélection.

Je ne comprends pas.

La syntaxe du code aurait-elle changé sur les versions récentes d'Excel?

Merci par avance pour vos lumières.

[RyuAutodidacte]

Bonjour,

Bien vérifier que ça soit le CodeName qui soit utilisé dans la procédure et nom le nom de la feuille (pour le récupérer):

Code :

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

1
2
3
4
5
6
7
Sub Exemple()
Dim MonCodenameEst As String
 
    MonCodenameEst = ActiveSheet.CodeName
    'ou => MonCodenameEst = Sheets("Nom de la feuille").CodeName
 
End Sub

[MarcelG]

Re Salut,

Code :

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

La syntaxe du code aurait-elle changé sur les versions récentes d'Excel?

La réponse est positive.
Il faut écrire

Code :

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

.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule

Mais pourquoi

Code :

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

ActiveSheet.Codename

plutôt que le nom de la feuille.

Veux savoir! Na!

[MarcelG]

Hé salut Ryu!

Nos post se sont télescopés.
Merci pour ta réponse.

Comme je l'ai demandé.
Sachant que c'est une feuille qui est copiée, pourquoi ne pas utiliser son nom comme en 2009?
Version 2016 d'Excel?

[RyuAutodidacte]

Re,

A vrai dire je ne sais pas, j’ai vu cela il n’y a pas longtemps qd j’ai répondu à un post.
Quoiqu’il en soit le codename restera maître du pointage pour une feuille son nom étant changé rarement.
Ce qui peut être pratique lors d’un changement de nom d’une feuille dont on ne veut pas changer le code se trouvant par exemple dans un module grâce à l’utilisation du codename en place au lieu du nom de la feuille …

Édit : Mais je trouve cela plus logique car comme cela on accède directement à ce que l’on veut que ça soit une feuille ou un module

[MarcelG]

D'accord.

Merci Ryu

Bonne soirée et au plaisir de te retrouver.

[RyuAutodidacte]

PS :
J’ai écrit une procédure pour écrire du code dans une feuille ou un module.
J’ai qq petites idées d’amélioration en tête … …
https://www.developpez.net/forums/d1.../#post10781778

[MarcelG]

Vu. Cela peut-être utile.

Au plaisir.