Discussion :

[doctor_vai]

Bonjour,

J'ai écris un petit code et qui ne marche pas pour une raison inconnue

Le code ci dessous, va parcourir 4 feuilles, copie les pivot tables dans chacune d'entre elles et les colles un après un dans une nouvelle feuille. Voici d'abord le code :

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
Dim i As Integer
Dim j As Integer
 
j = 7
 
Sheets.Add
Application.DisplayAlerts = False
 
    For i = 1 To 4
 
        With Worksheets("Sheet" & j).PivotTables("PivotTable" & i).TableRange2.Copy
        End With
 
        With ThisWorkbook.Worksheets("Sheet11")
        .Activate
        .Range("E" & ActiveSheet.UsedRange.Rows.Count + 4).PasteSpecial Paste:=xlValues
        .UsedRange.Columns.AutoFit
        End With
 
        Sheets("Sheet" & j).Delete
 
        j = j + 1
 
    Next i
 
Application.DisplayAlerts = True

Le code donc procéde à la copie et colle les tableaux un après un, seul petit bémol : il colle le deuxième tableau à partir de la dernière ligne du tableau précédent qu'importe le nombre que j'utilise ici :

Code :

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

 .Range("E" & ActiveSheet.UsedRange.Rows.Count + 4).PasteSpecial

Des suggestions, des idées ?

Merciiiiiii

[SfJ5Rpw8]

bonjour,

il ne faut pas utiliser ActiveSheet ... si tu parle du nombre de ligne dans la feuille destinataire, celle-ci est définit par le with

Code :

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

 .Range("E" & .UsedRange.Rows.Count + 4).PasteSpecial Paste:=xlValues

[doctor_vai]

Merci pour la réponse

Même résultat, il commence par la ligne 4 mais continue à coller les autres tableaux sur la dernière ligne du celui précédent

[SfJ5Rpw8]

Et combien il font de ligne tes tableaux ?

vois aussi si ton numéro de ligne évolue comme tu le souhaite ..:

Code :

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

1
2
3
4
 
 
Debug.print "Tableau :" &  i & " Collé ligne : " &  .UsedRange.Rows.Count
stop ' voir résultat fenêtre exécution CTRL+G

[doctor_vai]

Pour les tableaux, c'est variable (le pourquoi de vouloir coller dans la dernière ligne). Maintenant avec le debug print, il m'affiche pour Activesheet.usedrange : 43 qui est le nombre des lignes depuis le premier tableau crée et c'est normal, on parle ici de Usedrange.

Ce qui fait dire que le code va coller dans la dernière ligne active et ignore le + 4 que je lui donne, peut etre cette propriété ne doit pas etre inclus dans une boucle ?

[Philippe Tulliez]

Bonjour,

Tout dépends où tu as effectué cette addition de 4
Ce code ci-dessous écrit correctement à la ligne souhaitée

Code :

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

1
2
3
 With Feuil3
  .Cells(.UsedRange.Rows.Count + 4, 2) = "Hello"
 End With