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é)
Avez-vous une idée ? Je précise que je suis débutant (ça se voit non? :p)
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
Merci d'avance
Partager