Copie cellules
Bonjour,
je n'ai pas trouvé mon bonnheur sur le net,
je recherche une marco ultra simple pour copier des cellules (par exemple de L16 à N29) de la feuille 'semaine13' sur les cellules de L16 à N29 des feuilles de semaine14 à semaines42
ça semble simple et pourtant je n'y arrives pas, les cellules copiées sont vides, je souhaites conserver le contenu et aussi la mise en page des cellules (couleur du texte, couleur de la cellule, fusion s'il y a) dans le but aussi de réutiliser plus tard cette macro.
voici mon code :
Sub copie_feuilles()
Dim i As Integer
For i = 14 To 43
Worksheets("semaine" & i).Range("L16:N29") = Worksheets("Semaine13").Range("L16:N29")
Next i
End Sub
de plus pouvez vous commenter votre code que je comprenne mon erreur ?
merci de votre aide
Laurent
Bonjour;
je te mes cette macro à adapter selon les noms de feuilles et plages ou copier, tu met un bouton sur la feuille qui contient tes données et au quel tu affecte cette macro et tu affecte.
Sub copier()
Range("Plage à copier").Copy _
Sheets("Feuil2").Range("Plage destination")
End Sub
Cordialement, Hosni.
merci beaucoup pour vos 2 réponses,
cela fonctionne très bien,
l'une en étant sur la feuille concernée,
l'autre utilisant une variable
merci pour tout, je progresse grace à vous !