Discussion :

[Shoupine]

Bonjour,

J'ai une macro qui fonctionnait très bien jusqu'à ce que je veuille déplacer une feuille après l'avoir ajoutée.
Maintenant, même en mode Débogage (F8) excel ne me met même pas d'erreur mais simplement ferme complètement mon classeur, et une fois sur deux redémarre Excel.

A quoi cela peut il être du? D'autant plus que j'ai mis en notes toutes mes modifs de déplacement pour revenir au code qui fonctionnait et le problème persiste avec ce fichier, il se ferme systématiquement au moment d'ajouter une feuille.
Si je réutilise une version encore plus ancienne, mon Sheets.Add fonctionne très bien.

Voici mon code pour ajouter une feuille. J'ai également laissé mes lignes de code en notes pour déplacer ma feuille.

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
 
        Dim Wb As Workbook
        Dim NomClasseur As String
        Dim NomFeuille As String
        Dim PositionFeuille As Integer
        Dim m As Integer
        NomClasseur = ActiveWorkbook.Name
        Set Wb = Workbooks(NomClasseur)
        'For m = 1 To Worksheets.Count()
         '   If Sheets(m).Name = FormNiveauAdd.PositionNiveau.Value Then
         '      PositionFeuille = m
         '        Exit For
         'End If
        'Next
        Sheets.Add(after:=Worksheets(Worksheets.Count())).Name = NiveauNomValue.Value
       ' Sheets(Worksheets.Count()).Move after:=Sheets(PositionFeuille)
        'PositionFeuille = ActiveSheet.Index
        NomFeuille = CStr(Wb.Sheets(Worksheets.Count()).CodeName)
        ActiveWindow.DisplayGridlines = False
        Worksheets("PROJET").Select

[mercatog]

Bonjour

Tu ajoute ta feuille à l'endroit précisi

Exemple

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
Sub Test()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim Nomfeuille As String
Dim PositionFeuille As Integer
Dim m As Integer
 
 
Set Wb = ActiveWorkbook
If Not FeuilleExiste(Wb, NiveauNomvalue) Then
    With Wb
        For m = 1 To Worksheets.Count()
            If Sheets(m).Name = "Toto" Then    'FormNiveauAdd.PositionNiveau.Value Then
                PositionFeuille = m
                Exit For
            End If
        Next m
        If PositionFeuille = 0 Then PositionFeuille = .Sheets.Count
        Set Ws = .Worksheets.Add(After:=.Sheets(PositionFeuille))
        Ws.Name = NiveauNomvalue
    End With
Else
    MsgBox "Feuille " & NiveauNomvalue & " existe déjà"
End If
Set Wb = Nothing
End Sub
 
Private Function FeuilleExiste(ByVal Wbk As Workbook, ByVal Nomfeuille As String) As Boolean
 
On Error Resume Next
FeuilleExiste = Wbk.Sheets(Nomfeuille).Index
End Function

[Shoupine]

Bonjour,

Merci pour ta réponse,

J'ai remplacé mon morceau de code par le tiens mais il n'y a rien à faire le problème persiste
J'ai toujours Excel qui se crash, quand je fais mode débogage, il crash au moment de la ligne suivante...

Code :

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

1
2
 
Set Ws = .Worksheets.Add(After:=.Sheets(PositionFeuille))

[Shoupine]

Up!

Le problème persiste, même après avoir copié le code qui me fait crasher Excel sur un nouveau classeur vierge.
Avec différents tests il s'avère que le code se fait sans problème pour créer 2 feuilles, mais pour créer la 3e, Excel crash comme s'il y avait une limite up du nombre de feuille...
Parce que par contre j'en supprime une, j'ai aucun soucis pour en recréer une, je ne sais pas si c'est très clair mais c'est en tout cas très contraignant.

[Trystan441]

Bonjour,

Je ne sais pas si cela pourra t'aider mais j'utilise cette ligne de code pour ajouter une feuille avec laquelle je n'ai jamais eu de problème.

Code :

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

Sheets.Add after:=Worksheets(Worksheets.Count)

Bonne journée,