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