Pb avec copie

[fredtu]

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.

 

[mutzik]

Re : Pb avec copie

Bonjour Fredtu, le forum,

à mon humble avis, tu devrais passer par une boucle et copier ligne par ligne dans la sheet(mois)

 

[Humansoft]

Re : Pb avec copie

Bonjour le forum, Bonjour Fredtu

Ne serais-ce pas :
With Selection
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial xlPasteValues
End With

Cordialement,

 

[pierrejean]

Re : Pb avec copie

bonjour fredtu

Atester

Sheets("Stats_jour").Range("B3:O31").Copy
Sheets(Mois).Range("B65536").End(xlup).offest(1,0).select
With Sheets(Mois)
.......

 

[Catrice]

Re : Pb avec copie

Bonjour,

Je propose ce code :

Sub test()
Application.ScreenUpdating = False

Mois = MonthName(Sheets("Stats_jour").Cells(1, 1))
Sheets("Stats_jour").Range("B3:O31").Copy
With Sheets(Mois).Range("B65536").End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Voir l'exemple dans le fichier joint

 

[fredtu]

Re : Pb avec copie

Merci à tous pour vos réponses.

Pierrejean, ta proposition ne marche pas.

Je retiens la tienne Catrice, c'est parfait.

Encore merci.