Bug insertion feuille

Version imprimable

22/06/2011, 21h18
jpclabaux

Bug insertion feuille
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:

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
22/06/2011, 21h27
mercatog

Mets ton code en entier

Salut Mercatog,

Voici mon code en entier.

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
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

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

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
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

23/06/2011, 16h42
jpclabaux

Quelle version d'excel?
23/06/2011, 16h48
mercatog

2007
23/06/2011, 18h26
jpclabaux

Ok, ça doit être un bug de la version 2002.
Merci de ton aide.