XL 2019 recopie dans calendrier

pascal21

XLDnaute Barbatruc
bonsoir à tous
j'ai un premier tableau où je fais des relevés d'heures les jours où je travaille
mais j'aimerais une recap sur un calendrier sur une autre feuille
je suis compètement rouillé sur les macros et je ne sais plus faire cela qui à priori est relativement simple
pouvez vous m'aider svp?
 

Pièces jointes

  • calendrier.xlsx
    11.1 KB · Affichages: 27

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Pascal,
Un essai en PJ avec :
Code:
Sub Transfert()
Dim L%, IndexW%, DerLig%
Application.ScreenUpdating = False
Sheets("Feuil2").Range("B:C").ClearContents
DerLig = Application.Max(Range("F65500").End(xlUp).Row, Range("G65500").End(xlUp).Row)
For L = 1 To DerLig
    If Application.CountIf(Sheets("Feuil2").Range("A:A"), Cells(L, "C")) > 0 Then
        IndexW = Application.Match(Cells(L, "C"), Sheets("Feuil2").Range("A:A"), 0)
        Sheets("Feuil2").Cells(IndexW, "B") = Cells(L, "F")
        Sheets("Feuil2").Cells(IndexW, "C") = Cells(L, "G")
    End If
Next L
End Sub
 

Pièces jointes

  • calendrier (2).xlsm
    18.2 KB · Affichages: 10

Discussions similaires

Réponses
21
Affichages
426

Statistiques des forums

Discussions
312 347
Messages
2 087 502
Membres
103 564
dernier inscrit
Paul 1