Discussion :

[Tanga]

Salut le forum

Je vous remercie d'avoir accepté mon inscription.
Je souhaite beaucoup apprendre à travers ce forum car suis noviste en vba.
Voici ce qui m'a conduit vers vous:
J'ai un fichier comportant plusieurs feuilles (50).
Je dois copiers la zone en cours de chaque feuille et les coller sur la feuille "CENTRALISATION".
Comment automatiser cela sachant que la plage va de A2:AE?
NB:les feuilles à ne copier sont "CENTRALISATION" et "01000".
Cordiales salutations aux bonnes volontés

[Igloobel]

Bonjour,
J'ai pas trop compris ta plage

...Comment automatiser cela sachant que la plage va de A2:AE?

et ta plage est-elle la même sur toute tes feuilles (y compris "CENTRALISATION")

A+

[Marc-L]

Bonjour, bonjour !

Comment automatiser cela sachant que la plage va de A2:AE?

Et cela donne quoi avec l'Enregistreur de macros ?! (voir le tutoriel)
Sinon dans le forum Contribuez il y a déjà un code pour ce sujet …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Tanga]

Bonjour Marc-L et Igloobel

Merci pour vos interventions.
Le nombre de colonne des feuilles à copier est identique (A:AE).
Par contre la plage des feuilles à copier varie selon chaque feuille.
La zone à copier est A2 jusqu'à la dernière cellule non vide de AE.
Espérant m'avoir fait comprendre.

[Marc-L]

Moi aussi j'avais espéré me faire comprendre : il y a déjà tout ce qu'il faut dans le forum Contribuez ‼

[Tanga]

Oui je vous ai compris.
Je suis entrain de parcourir ces 2 lien http://www.developpez.net/forums/d12...tre-2003-2010/

http://www.developpez.net/forums/d13...glet-synthese/
Mais comment les adapter à mon cas (manque d'expérience).
Merci de me guider

[aziz1015]

Bonjour,

Comment tu veux récupérer les données dans la feuille Centralisation ? à chaque fois tu colles en dessous ? Tu voudrais coller sur les mêmes colonnes dans ton fichier Centralisation ?

Cordialent

[Tanga]

Bonjour aziz1015

Merci pour votre observation.

omment tu veux récupérer les données dans la feuille Centralisation ? à chaque fois tu colles en dessous ? Tu voudrais coller sur les mêmes colonnes dans ton fichier Centralisation ?

Oui je souhaite que le collage se fasse toujours sur la colonne A (en dessous de la dernière cellule vide de la colonne A).
Oui le collage devra se faire sur les meme colonnes.
merci

[aziz1015]

Re,

Comme l'a signalé Marc-L, tu as tout ce qu'il faut dans Contribuez, plus précisément ce code qui fonctionne très bien :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub CopierLesDonneesDansSynthese()
 
Dim ShSynthese As Worksheet
Dim Sh As Worksheet
Dim ShEnCours As Worksheet
 
Dim AireACopier As Range
 
Dim LigneDeTitreSynthese As Long
Dim DerniereLigneSynthese As Long
Dim PremiereColonneSynthese As Long
Dim LigneDebutSynthese As Long
 
 
 
    Application.ScreenUpdating = False
 
    Set ShSynthese = Sheets("CENTRALISATION")
    LigneDeTitreSynthese = 10
    PremiereColonneSynthese = 1
 
    ' Effacement de la feuille synthèse
    ShSynthese.Range(ShSynthese.Cells(LigneDeTitreSynthese + 1, 1), ShSynthese.Cells(ShSynthese.Rows.Count, ShSynthese.Columns.Count)).ClearContents
    DerniereLigneSynthese = ShSynthese.Cells(ShSynthese.Rows.Count, PremiereColonneSynthese).End(xlUp).Row
 
    For Each Sh In Worksheets
 
        If Sh.Name <> "Synthèse" Then
           Set ShEnCours = Sheets(Sh.Name)
            Set AireACopier = ShEnCours.Range("A2:AE10000")
 
           With ShSynthese
                LigneDebutSynthese = DerniereLigneSynthese
                AireACopier.Copy
                .Cells(DerniereLigneSynthese + 1, PremiereColonneSynthese).Select
                ShSynthese.Paste
                DerniereLigneSynthese = ShSynthese.Cells(ShSynthese.Rows.Count, PremiereColonneSynthese).End(xlUp).Row
           End With
 
           Set AireACopier = Nothing
           Set ShEnCours = Nothing
 
       End If
 
    Next Sh
 
    ShSynthese.Cells(LigneDeTitreSynthese, 1).Activate
    Set ShSynthese = Nothing
    Application.ScreenUpdating = True
 
 
End Sub

Cordialement

[Tanga]

Salut Aziz1015

Merci pour ce code.
Je commençais à l'expérimenter et n'arrivais pas car certains éléments indésirable apparaissaient dans la feuille "CENTRALISATION".
J'ai essayé de revoir cette partie du code en ajoutant toutes les feuilles à ne pas copier et ca marché.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sh.Name <> "CENTRALISATION" And Sh.Name <> "Synthèse" And Sh.Name <> "01000" And Sh.Name <> "Evolution" Then

Merci pour votre assistance.
Je vais essayer de bien comprendre le code de bout en bout.
Si vous avez des idées pouvant m'aider à comprendre facilement les choses n'hésitez pas.