Discussion :

[JeremyD]

Bonjour, a partir d'un fichier excel je créé un tableau croisé dynamique.

Ce tableau est copié dans un nouvel onglet, et je souhaite remplir tous les blancs de ce tableau grâce a une macro (pour l'intégrer a une base de donnée access).

Donc pour mon code j'ai résonné comme suit: Test de chaque case du tableau du haut vers le bas, colonne par colonne (7 colonnes pour 3306 lignes)
Si la case testée est vide, il copie celle du dessus. Malheureusement cela ne fonctionne pas du tout (erreurs diverses et variées selon le code testé)

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
Sub Bouton1_QuandClic()
 
Worksheets("Final").Activate
ActiveSheet.UsedRange.Select
 
Dim i, j, n, m As Integer
    n = 3306
    m = 7
 
    For j = 1 To m
        For i = 2 To n + 1
 
            Range("A1").Offset(i, j).Select
 
            If IsEmpty(Selection) Then
            Range("A1").Offset(i - 1, j).Select
            Selection.Copy
            Range("A1").Offset(i, j).Select
            ActiveSheet.Paste
        Next i
    Next j
 
End Sub

Avez-vous une idée ? Je précise que je suis débutant (ça se voit non? :p)
Merci d'avance

[78chris]

Bonjour

Ce type de manip n'est pas faisable manuellement donc pas plus par VBA.

Il faut copier les valeurs ailleurs en les complétant et non pas tenter de modifier le TCD.

[JeremyD]

Bonjour,

c'est bien ce que j'ai fait : j'ai copié l'intégralité du tableau dans un nouvel onglet pour pouvoir le modifier (je peux le modifier manuellement). Mais mon code ne fonctionne pas :/