Copier coller de differentes feuilles vers une feuille

[Kiwy26]

Bonjour,

Je viens de créer un classeur " base de donnée" comprenant 7 feuilles, j'aimerai que lorsque je remplis une des 7 feuilles, qu'automatiquement dans une huitieme feuilles une copie se fasse de toutes les feuilles.
Je suis completement bloquée, si quelqu'un pouvait m'aider je lui en serais vraiment reconnaisante.
Merci d'avance.

 

[phlaurent55]

Re : Copier coller de differentes feuilles vers une feuille

Bonsoir Kiwy,

sans plus de précisions .................difficile de voir et comprendre ce que tu veux exactement
si tu pouvais joindre un fichier , ce serait encore mieux

 

[Alucard]

Re : Copier coller de differentes feuilles vers une feuille

Salut Kiwy26, phlaurent55,

Voila je pense que cette petite macro pourras répondre a tes critères
par contre pour le fait de transférer tes données automatique à chaque modifications je pense que ça va être galère dans son utilisation
ça voudrais dire qu'a chaque modification de cellule la macro s'activera
tu es mieux de mettre un bouton
mais si tu souhaite vraiment l'automatisation, il te faut mettre ce code dans une macro "change".

 

[ROGER2327]

Re : Copier coller de differentes feuilles vers une feuille

Bonsoir

Private Sub Worksheet_Activate()
Dim i As Long
   Me.Cells.Clear
   For i = 1 To 7
      With Sheets(i)
         .Range(.[A1], .[A1].SpecialCells(xlCellTypeLastCell)).Copy Destination:=Me.Cells(Me.Rows.Count, 1).End(xlUp).Offset(1, 0)
      End With
   Next i
End Sub

placé dans le module de la feuille "Feuil8" fait la même chose que la procédure d'Alucard lors de l'activation de cette feuille.​

ROGER2327