Discussion :

[Pittouti]

BOnjour,

ci-dessous le code et je ne sais pas pourquoi la boucle ne se termine pas.

NB: quand j'ai enlevé Activesheet.Pase la boucle fonctionne parfaitement.

Le pessage d'erreur: Excel ne peut pas terminer cette tâche avec les ressources disponibles

merci de votre aide.

salutations

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
34
35
36
37
38
39
40
41
42
43
44
Sheets("GL").Select
    Range("A2").Select
    Sheets.Add.Name = "TCD"
    Sheets("GL").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "GL!R1C1:R3969C8", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="TCD!R1C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion15
    Sheets("TCD").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "N° DE COMPTE")
        .Orientation = xlRowField
        .Position = 1
    End With
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$19").AutoFilter Field:=1, Criteria1:="=(vide)", _
        Operator:=xlOr, Criteria2:="=Total général"
    Range("A2:A190000").Select
    Selection.ClearContents
    ActiveSheet.Range("$A$1:$A$19").AutoFilter Field:=1
    Dim Ligne, xx As Integer
    Ligne = 2
    While Ligne <> 0
    Sheets("TCD").Select
    Cells(Ligne, 1).Select
    Selection.Copy
    Sheets("GL").Select
    Range("A1").Select
    ActiveSheet.Range("$A$1:$H$3969").AutoFilter Field:=1, Criteria1:= _
        Sheets("TCD").Cells(Ligne, 1).Value
        Sheets("GL").Select
    Cells.Select
    Selection.Copy
    Sheets.Add.Name = Sheets("TCD").Cells(Ligne, 1).Value
    ActiveSheet.Paste
    Ligne = Ligne + 1
    Wend
    MsgBox ("operation terminée")

[unparia]

Bonjour
A jouer ainsi au yoyo à coups de select, activesheet, etc ... et à te promener comme tu le fais de feuille en feuille, vba ne sait plus où donner de la tête.
Tout donne à penser que ta boucle s'applique à une autre feuille que celle concernée.
Apprends à ne pas travailler ainsi, mais directement sur les objets
Encore heureux, d'ailleurs, que cela s'arrête car ceci :

Code :

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

1
2
3
4
5
6
Ligne = 2
    While Ligne <> 0
        ......
        ......
      Ligne = Ligne + 1
   Wend

devrait être la cause d'une magnifique boucle sans fin.
Je ne veux pas corriger un tel "code"

[Menhir]

Essaye de mettre ton ActiveSheet.Paste avant le Sheets.Add.Name

[Pittouti]

Bonjour,

je me suis rendu compte d'une petite erreur sur la boucle et je l'ai corrigé mais le code ne fonctionne toujours pas !

je vais expliqué un ce que je voudrai :

1. J'ai un tableau avec plusieurs Lignes, la première colonne est N° de compte ( ce Numéro se répète plusieur Fois)
2. à chaque fois je fais un tableau Croisé dynamique pour savoir le nombre de compte
3. à ce moment là je commence ma boucle qui consiste à faire :

revenir sur le tableau initial.
exécuter un filtre sur le numéro de compte
copier le résultat
créer une nouvelle feuille avec ce Numéro de compte
et coller le résultat.

c'est tou ce que je veux réaliser.

NB: si j'enlève la commande Activesheet.Paste, le code fonctionne parfaitement ==> il me fait le filtre et me crée les nouvelles feuilles mais sans le résultat

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
34
35
36
37
38
39
40
41
42
43
44
Sheets("GL").Select
    Range("A2").Select
    Sheets.Add.Name = "TCD"
    Sheets("GL").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "GL!R1C1:R3969C8", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="TCD!R1C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion15
    Sheets("TCD").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "N° DE COMPTE")
        .Orientation = xlRowField
        .Position = 1
    End With
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$19").AutoFilter Field:=1, Criteria1:="=(vide)", _
        Operator:=xlOr, Criteria2:="=Total général"
    Range("A2:A190000").Select
    Selection.ClearContents
    ActiveSheet.Range("$A$1:$A$19").AutoFilter Field:=1
    Dim Ligne, xx As Integer
    Ligne = 2
    While Sheets("TCD").Cells(Ligne, 1).Value <> ""
    Sheets("TCD").Select
    Cells(Ligne, 1).Select
    Selection.Copy
    Sheets("GL").Select
    Range("A1").Select
    ActiveSheet.Range("$A$1:$H$3969").AutoFilter Field:=1, Criteria1:= _
        Sheets("TCD").Cells(Ligne, 1).Value
        Sheets("GL").Select
    Cells.Select
    Selection.Copy
    Sheets.Add.Name = Sheets("TCD").Cells(Ligne, 1).Value
    ActiveSheet.Paste
    Ligne = Ligne + 1
    Wend
    MsgBox ("operation terminée")

[jpvba]

Bonjour Pittouti et les autres membre du groupe


Ce que je déduis en voyant ton code c'est que tu as utilisé l'enregistreur de macro.

L'enregistreur de macro ne simplifie pas le code. Il peut mettre en 3 étape ce qui peut être fais en un.


Donc une fois que ton code sera simplifié, je vais etre en mesure de t'aidé. Également tu vas gagné du temps d'exécution. JE crois que c'est un peu ce que unparia (que je salut) veux dire par un "tel" code


Également "pointe sur une feuille au début" qui est totalement inutile donc éviter de pointer sur une feuille aller sur un autre pour aller par la suite sur la premiere.