Discussion :

[jpclabaux]

Salut,

Je viens de m'apercevoir d'un bug, pas très gênant dans les classeurs mais problématique pour les macros.
Quand j'insère une nouvelle feuille celle-ci prend le nom de feuil2 mais quand je regarde dans l'éditeur VBA, le nom Feuil2 est associé à Feuil1 et nom Feuil1 est associé à Feuil2. Si j'avais inséré une troisième et une quatrième feuille j'aurais eu Feuil1(Feuil4), Feuil2(Feuil3), Feuil3(Feuil2), Feuil4(Feuil1) et ainsi de suite jusqu'au moment où j'ouvre l'éditeur VBA et là, c'est magique, la numérotation reprend correctement pour les feuilles suivantes.
Ça me pose problème dans les macros car j'ai l'impression qu'Excel est perdu dans sa numérotation et quand je veux adresser une feuille en particulier
avec l'instruction

Code :

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

1
2
3
    With WS.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        .InsertLines .CountOfLines + 1, mCode
    End With

j'ai une erreur 9: l'indice n'appartient pas à la sélection, erreur que je n'ai pas lorsque les feuilles sont ordonnées correctement.

Avez-vous déjà rencontré ce problème?
Merci de votre aide,
Jean

[mercatog]

Mets ton code en entier

[jpclabaux]

Salut Mercatog,

Voici mon code en entier.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub ajoutFeuille()
 
    Dim WS As Worksheet
    Dim NomComposant As String
    Dim mCode As String
    Dim x As Integer
 
    Set WS = Sheets.Add
    NomComposant = WS.CodeName
 
    x = Sheets.Count
    WS.Move After:=Sheets(x)
 
    Set BtnRtr = WS.OLEObjects.Add("Forms.CommandButton.1")
    With BtnRtr
        .Name = "BtnRtr1"
        .Left = 200 
        .Top = 40 
        .Width = 50 
        .Height = 20
        .Object.Caption = "Retour"
    End With
 
 
    mCode = "Sub BtnRtr1_Click()" & vbCrLf
    mCode = mCode & "Cells.Clear" & vbCrLf
    mCode = mCode & "End Sub"
 
    With WS.Parent.VBProject.VBComponents(NomComposant).CodeModule
        .InsertLines .CountOfLines + 1, mCode
    End With
 
End Sub

Merci de ton aide,
Jean

[mercatog]

Bonjour,
J'ai testé ton code et je n'ai rencontrée aucun souci (sur un même classeur du moins)

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
19
20
21
22
23
24
25
26
Sub ajoutFeuille()
Dim WS As Worksheet
Dim BtnRtr As OLEObject
Dim mCode As String
 
Set WS = Sheets.Add(after:=Sheets(Sheets.Count))
With WS
    Set BtnRtr = .OLEObjects.Add("Forms.CommandButton.1")
    With BtnRtr
        .Name = "BtnRtr1"
        .Left = 200
        .Top = 40
        .Width = 50
        .Height = 20
        .Object.Caption = "Retour"
    End With
 
    mCode = "Sub BtnRtr1_Click()" & vbCrLf
    mCode = mCode & "Cells.Clear" & vbCrLf
    mCode = mCode & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(.CodeName).CodeModule
        .InsertLines .CountOfLines + 1, mCode
    End With
End With
End Sub

[jpclabaux]

Quelle version d'excel?

[mercatog]

2007