Bonjour à tous,
Pouvez-vous m'aider dans la rédaction de ma macro ?
Dim Mois As String
Mois = MonthName(Sheets("Stats_jour").Cells(1, 1))
Sheets("Stats_jour").Select
Range("B3:O31").Select
Selection.Copy
Sheets(Mois).Select
Range("B147:B65536").Find("").Select
With Sheets(Mois)
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial xlPasteValues
End With
Exit Sub
Je souhaite pouvoir copier mes sélections les unes en dessous des autres, en recherchant à chaque fois la première cellule vide de la colonne B.
Avec ce que j'ai fait, à chaque fois il me recopie ma sélection au même endroit.
Merci d'avance pour votre aide.
Pouvez-vous m'aider dans la rédaction de ma macro ?
Dim Mois As String
Mois = MonthName(Sheets("Stats_jour").Cells(1, 1))
Sheets("Stats_jour").Select
Range("B3:O31").Select
Selection.Copy
Sheets(Mois).Select
Range("B147:B65536").Find("").Select
With Sheets(Mois)
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial xlPasteValues
End With
Exit Sub
Je souhaite pouvoir copier mes sélections les unes en dessous des autres, en recherchant à chaque fois la première cellule vide de la colonne B.
Avec ce que j'ai fait, à chaque fois il me recopie ma sélection au même endroit.
Merci d'avance pour votre aide.