Copier les données de pl.feuil et coller les sur 1 autre

[Chasse]

Bonjour le forum.

J’aimerais récupère les données des plages ( B4 :I11) et ( B14 :I24 ) de la 1ere feuille à l’avant dernière (environ 20 ) et les coller sur la dernière feuille ( récap août) à partir de la cell. B3
Il me faudrait aussi récupère la date cellule (I1) de chaque feuille et la collé (colonne A) sur chaque ligne correspondante.

Chaque jour les feuilles sont rajoutées et nommées par macro

Public Sub AjouterJour()


Dim D As Date
    'Copie de l'avant dernier onglet
    Sheets(Worksheets.Count - 1).Copy After:=Sheets(Worksheets.Count - 1)
    With ActiveSheet
        D = .Range("I1").Value + 1
     
        If Weekday(D, vbMonday) = 6 Then D = D + 2
        .Range("I1").Value = D

        
        'Nom de la Feuille
        .Name = Format(D, "DDDD d mmm YYYY")
    End With
    
End Sub

D’avance merci de votre aide, qui j’en suis certain va me permettre d’avancer dans l’élaboration de mont projet

ci-joint fichier qui ne comprend que 3 feuilles 2 date et 1 récap

 

[pierrejean]

Re : Copier les données de pl.feuil et coller les sur 1 autre

bonjour Chasse

Vois si ceci te convient

 

[Chasse]

Re : Copier les données de pl.feuil et coller les sur 1 autre

Bonjour pierrejean
Comme dab rien à redire c’est pile poil la macro recherchée

Je v’ais l’adapter sur les fichiers originaux.

Juste un petit complément, il m’arrive d’avoir des lignes vide est-il possible de rajouter une commande pour les supprimer.

Encore merci pour la rapidité.

 

[pierrejean]

Re : Copier les données de pl.feuil et coller les sur 1 autre

Re

Voila avec suppression des lignes vides