[XL-2007] Copie colle d'onglets 3 en 1 qui bloque [Résolu]

[octane]

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 :

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

[ZebreLoup]

Je vois que A1 n'est pas entre guillemets à la ligne 17. C'était ça ?
Et dans les sh.cells, je ne suis pas sûr que la "A" fonctionne. Tu peux mettre 1 à la place.(EDIT : Si, le "A" fonctionne. Je ne l'avais jamais fait tiens)

[octane]

la A fonctionne mais pas le 1.
J'ai corrigé les "" manquants mais cela ne fait toujours rien. Pas d'erreur de synthaxe mais rien n'est copié comme si la macro ne faisait rien

[ZebreLoup]

Essaie avec ça :

Code :

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
Sub Bouton1_Clic()
    Dim sh As Worksheet
    Dim sh2 As Worksheet
    Dim sh3 As Worksheet
    Dim sh4 As Worksheet
    Dim t As Variant
 
    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
    t = sh.Range("A1:BB" & LastLig)
    sh4.Range("A1:BB" & LastLig) = t
 
    LastLig2 = sh2.Cells(sh2.Rows.Count, "A").End(xlUp).Row
    t = sh2.Range("A2:BB" & LastLig2)
    sh4.Range("A" & LastLig + 1 & ":BB" & LastLig + LastLig2 - 1) = t
 
    LastLig3 = sh3.Cells(sh3.Rows.Count, "A").End(xlUp).Row
    t = sh3.Range("A2:BB" & LastLig3)
    sh4.Range("A" & LastLig + LastLig2 & ":BB" & LastLig + LastLig2 + LastLig3 - 2) = t
End Sub

[kiki29]

Salut, voir et adapter http://www.developpez.net/forums/d11...uille-feuille/

[octane]

Merci beaucoupv ZEbreloup ta solution marche
j'espere que le reste du code ira mieux pour moi

[ZebreLoup]

J'avoue que je ne sais pas exactement pourquoi le passage par un variant est indispensable ici.

Mais d'une manière générale pour tes futurs développements, n'hésite pas à prendre l'habitude de le faire dès que les plages font plus de 10 cellules et qu'il y a un peu de calcul, ça accélère vraiment énormément les traitements, que ce soit quand on récupère des valeurs ou qu'on en écrit.