Macro copier coller

[helpme]

Bonjour à tous,
Je suis toujours aussi nulle en VBA et je crois que mon cas n'est pas près de s'arranger mais bon je m'accroche et là je souhaite automatiser la fonction copier coller par une macro afin de faciliter la mise à jour des données de mon fichier.
Mon souhait est que la dernière colonne semaine remplie dans mon fichier soit copier puis coller dans la colonne semaine suivante.

Fichier joint pour avoir une idée plus claire.
La dernière colonne remplie est la colonne 7 je souhaite la copier dans la colonne 8 qui une semaine après deviendra ma dernière colonne remplie et que je souhaiterais copier coller dans la semaine 9 et ainsi de suite.

Merci d'avance.

 

[Excel-lent]

Re : Macro copier coller

Bonjour Helpme, le fil,

Je suis toujours aussi nulle en VBA et je crois que mon cas n'est pas près de s'arranger

Si, pour cela il te suffit de commencer par le Béaba, utiliser l'enregistreur de macro 😉

Il t'aurait ainsi mis sur la piste. Ci-joint une solution.

Testé sur ton fichier, elle fontionne

Sub Proposition()
' Macro enregistrée le 22/02/2011 par Excel-elnt
    Columns([IV2].End(xlToLeft).Column).Select
    Selection.Copy
    Columns([IV2].End(xlToLeft).Column + 1).Select
    ActiveSheet.Paste
End Sub

Par contre, en K1 il serait mieux d'écrire

=J1+1

Plutôt que 8.

Le résultat sera le même et ta macro fonctionnera encore mieux

Bonne après midi

 

[Softmama]

Re : Macro copier coller

Bonjour à vous, une autre solution ici qui tient compte des entêtes et ne les écrase pas:

Sub copimoica()
L = ActiveSheet.[IV2].End(xlToLeft).Column + 1
Intersect(Cells(1, L).EntireColumn, ActiveSheet.UsedRange).FormulaR1C1 = "=IF(RC1="""",IF(RC[-1]="""","""",RC[-1]),RC[-1]+1)"
Columns(L) = Columns(L).Value
End Sub

 

[helpme]

Re : Macro copier coller

Merci à vous Excel-lent et Softmama. Vos réponses m'ont bien aidées. J'ai finalement retenu la solution de Excel-lent qui fonctionnait mieux avec mon fichier complet.

Pour info oui je sais utiliser la fonction enregistrement de macro mais dans ce cas précis cela ne m'avais pas super aidé donc je m'étais décidée à demander de l'aide sur le forum.

Merci encore.