la Boucle ne SE termine pas et s'arrête à Activeshhet.Paste

Version imprimable

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:

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

04/11/2018, 20h00
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:

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"
05/11/2018, 09h01
Menhir

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

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 :

J'ai un tableau avec plusieurs Lignes, la première colonne est N° de compte ( ce Numéro se répète plusieur Fois)
à chaque fois je fais un tableau Croisé dynamique pour savoir le nombre de compte
à 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:

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

06/11/2018, 17h13
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.