Bonjour à tous, voilà mon souci.
il y a des choses que je n'ai pas encore saisie concernant les boucles et ce que j'aimerais faire c'est copié le tableaux de chaque feuille dans une seule feuille j'ai fait un code qui fonctionne tres bien, mais je me demandais si en faiisant une boucle avec for each par exemple ce serai mieux. je demande qu'a apprendre; merci d'avance de votre aide
voici mon 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
27
28
29
30 Sub Compilerdonnées() ' ' Compiler les tableaux ' de chaque mois sur une feuille ' Dim Bd As Worksheet Set Bd = Worksheets("Bd") 'enlève le clignotement de l'écran Application.ScreenUpdating = False Sheets("SEPT").[SEPT].Copy Bd.[B4] Sheets("OCT").[OCT].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("NOV").[NOV].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("DEC").[DEC].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("JANV").[JANV].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("FEV").[FEV].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("MARS").[MARS].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("AVRIL").[AVRIL].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("MAI").[MAI].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("JUIN").[JUIN].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("JUILLET").[JUILLET].Copy Bd.[B4].End(xlDown).Offset(1, 0) Sheets("AOUT").[AOUT].Copy Bd.[B4].End(xlDown).Offset(1, 0) [B4].Select Application.ScreenUpdating = True End Sub
Partager