Récapitulatif code à corriger Résolu/Fermé

Question

Bonjour, 

J'ai un problème avec ce code, je voudrai qu'il me récapitule ou copie/colle dans l'onglet globale les deux première colonne entier de chaque page.
Pouvez-vous m'aider ?

Sub test()
Application.ScreenUpdating = False
Sheets("GLOBAL").Range("A2:G65536").ClearContents
cellules = Array("C9", "F9", "C12", "H10", "F66", "F68")
For n = 1 To Sheets.Count
If Sheets(n).Name <> "GLOBAL" Then
 Sheets("GLOBAL").Cells(n + 1, 1) = Sheets(n).Name
  For m = 0 To UBound(cellules)
    Sheets("GLOBAL").Cells(n + 1, m + 2) = Sheets(n).Range(cellules(m))
  Next m
End If
Next n
Application.ScreenUpdating = True
End Sub

Merci
Configuration: Windows 7 / Chrome 51.0.2704.103

Meryem · Answer

Sub CreationSynthese()
' Ecriture de la ligne de titre :
Range("A1") = "COMMERCIAUX"
Range("B1") = "Raison Sociale Client"
' Mise en forme de la ligne de titre :
Range("A1:C1").Interior.Color = 13434879 '(Jaune pâle)
Range("A1:C1").Font.Bold = True
' Copie des données :

DerniereLigne = ActiveSheet.UsedRange.Rows.Count

Sheets("Sarah").Range("A2:B" & DerniereLigne).Copy
Sheets("Feuil1").Range("A2").Select
Sheets("Feuil1").Paste

Sheets("Philippe").Range("A2:B" & DerniereLigne).Copy
Sheets("Feuil1").Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
Sheets("Feuil1").Paste

Sheets("Salwa").Range("A2:B" & DerniereLigne).Copy
Sheets("Feuil1").Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
Sheets("Feuil1").Paste

Sheets("Sandrine").Range("A2:B" & DerniereLigne).Copy
Sheets("Feuil1").Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
Sheets("Feuil1").Paste

End Sub

Récapitulatif code à corriger

1 réponse

Discussions similaires