Chasse
XLDnaute Occasionnel
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
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
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
Code:
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 Subci-joint fichier qui ne comprend que 3 feuilles 2 date et 1 récap