Suite de données de différentes feuilles sur une seule
Bonjour,
Je voudrais rassembler les données de plusieurs feuilles dans une seule et rendre cette opération automatique. Le nombre de données peut être différent d'une feuille à l'autre et il faut que ces données se suivent sans espace dans la derniere page.
Je met à votre disposition cet exemple pour illustrer ma demande.
Merci d'avance pour votre aide
Salut Kario
Dans le module de ta feuille FACTURE (ALT+F11 pour accéder à VBE)
Vite fait donc adaptation à prévoir (A voir si cela pourrait te convenir)
Private Sub Worksheet_Activate()
Dim WS_Count As Byte
Dim I As Byte
Dim Ligne As Long
WS_Count = ActiveWorkbook.Worksheets.Count
Sheets("FACTURE").Cells.Delete
For I = 1 To WS_Count
If ActiveWorkbook.Worksheets(I).Name <> "FACTURE" Then
Ligne = Worksheets("FACTURE").Range("A65536").End(xlUp).Row + 1
Worksheets(I).Range("A1").CurrentRegion.Copy Sheets("FACTURE").Cells(Ligne, 1)
End If
Next I
End SubMytå
Merci beaucoup Myta,
mais comment faire pour que la 1ere ligne de chaque tableau (article, quantité, prix, montant)ne se répète pas?
Re Kario et le Forum
Je croyais que tu allais mettre les mains dans le cambouis.
Mais bon, la version modifiée
Private Sub Worksheet_Activate()
Dim WS_Count As Byte
Dim I As Byte
Dim Ligne As Long
Dim Flag As Boolean
WS_Count = ActiveWorkbook.Worksheets.Count
Sheets("FACTURE").Cells.Delete
For I = 1 To WS_Count
If ActiveWorkbook.Worksheets(I).Name <> "FACTURE" Then
With Worksheets(I)
Ligne = Worksheets("FACTURE").Range("A65536").End(xlUp).Row
If Flag = False Then
.Range("A1").CurrentRegion.Copy Sheets("FACTURE").Cells(Ligne, 1)
Flag = True
Else
.Range("A2:D" & .Range("A65536").End(xlUp).Row).Copy Sheets("FACTURE").Cells(Ligne + 1, 1)
End If
End With
End If
Next I
End SubMytå
Merci pour ton aide!!!
En fait je débute totalement donc je savais pas du tout comment faire.
Re :
Bonsoir!
J'ai quelques problemes pour appliquer ta formule Myta. D'abord je n'arrive pas à ce que la formule s'applique à cette facture ;et je voudrais aussi garder la tva et le montant ttc en bas de page. Quelqu'un pourrait m'aider svp?
Merci d'avance