Bonjour,
Je voudrais copier 3 onglets et les mettre les uns a la siuite des autres dans un autre onglet. Mon code ne marche pas erreur grossiere de synthaxe je pense vue mon niveau
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
 
Sub Bouton1_Clic()
 Dim sh As Worksheet
 Dim sh2 As Worksheet
 Dim sh3 As Worksheet
 Dim sh4 As Worksheet
 
 Dim LastLig As Long
 Dim LastLig2 As Long
 Dim LastLig3 As Long
    Set sh = Worksheets("shad")
    Set sh2 = Worksheets("phys")
    Set sh3 = Worksheets("swap")
    Set sh4 = Worksheets("Base")
 
    LastLig = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
    sh4.Range(A1) = sh.Range("A1:BB" & LastLig)
    LastLig2 = sh2.Cells(sh2.Rows.Count, "A").End(xlUp).Row
    sh4.Range("A" & LastLig + 1) = sh.Range("A2:BB" & LastLig2)
    LastLig3 = sh3.Cells(sh3.Rows.Count, "A").End(xlUp).Row
    sh4.Range("A" & LastLig2 + 1) = sh.Range("A2:BB" & LastLig3)
 
 
End Sub
Pourriez vous m'aider ?
Merci