Discussion :

[Matrixmax]

Bonjour Experts;

J'ai besoin de votre aide, je suis vraiment bloqué la dessus !

J'essaye d'établir une MACRO qui permer de rassebler l'enssemble des tableau l'un pré de l'autre ayant été stocké dans la plage ("D324:AI336") de chacun des feuils à partir de la deuxiéme feuil et jusqu'à l'avant derniére feuil de mon classeur

J'ai établi ce code pour le pointage sur les feuil concerné mais j'ai pa pu copier chaque plage et le coller l'un pré de l'autre dans la derniére feuil ayant été créer par le méme code ci dessus.

Merci de me fournir un réponse le plus tot possible ... je suis bloqué la dessus depuis Xtemps .. !!

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
 
 
Private Sub Lastelig()
 
Dim i, j As Variant
ThisWorkbook.Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
 
For i = 2 To i = Sheets.Count - 1
 
With Sheets(i)
 
'copier la plage de chaque feuil et la coller l'une prés de l'autre 
'on utilisant une varriable
'à partir de la plage ("A1") de la feuil crée  coller de
 
End With
Next i
End Sub

Merci d'avance

[gFZT82]

Bonsoir,

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
Sub Test()
Dim i, j As Variant
Dim ColAjout As Integer
    'On ajoute une feuille au classeur
    ThisWorkbook.Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
    'On initialise le numéro de colonne pour l'ajout
    ColAjout = 1
    'Pour chaque feuille à partir de la 2eme et jusqu'à l'avant dernière
    For i = 2 To Sheets.Count - 1
        With Sheets(i)
            'On copie la plage "D324:AI336" de chaque feuille
            'On colle cette plage dans la dernière feuille, après la dernière colonne renseignée.
            .Range("D324:AI336").Copy ActiveSheet.Cells(1, ColAjout)
            'On définit le numéro de colonne pour le prochain ajout
            ColAjout = ActiveSheet.Cells(1, 1).End(xlToRight).Column + 1
        End With
    Next i
End Sub

Cordialement.

[Matrixmax]

Bonjour ...

Le code fonctionne parfaiement .

JE te remrci infiniment chef pour l'aide que tu m'as apporter .. Si je peut te rendre un service un jour !!!

Merci encore et encore et encore une fois Chef !!