Discussion :

[mft_ghost]

Bonjour,

Toutes les semaines (le lundi matin) je dois effectuer un copier-coller d'une plage de cellule pour l'incrémenter d'une colonne (nouvelle semaine). Je répète cette action sur 70 pages dans mon fichier, ce qui devient fastidieux... Je suis sous Excel 2007 en anglais.

J'ai voulu créer la Macro suivante (exemple sur 2 feuilles):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sheets("Mara").Select
    Range("FB98:FD112").Select     \sélection de la plage souhaitée sur la semaine précédente S-1
    Selection.Copy
    Range("FC98").Select        \je me décale d'une colonne (semaine en cours)
    ActiveSheet.Paste
    Range("FB98:FB110").Select     \je supprime la plage résiduelle de S-1
    Selection.ClearContents
 
    Sheets("Roma (new)").Select
    Range("CD96:CF110").Select
    Selection.Copy
    Range("CE96").Select
    ActiveSheet.Paste
    Range("CD96:CD112").Select
    Selection.ClearContents

Je pensais que l'incrémentation serait automatique (chaque semaine, repartir sur la plage en cours, et la décaler d'une colonne, mais malheureuement la macro ne fait que copier-coller les plages que je lui ai indiquees, sans se decaller chaque semaine.

1/ Sauriez vous comment faire pour que la plage copiée soit incrémentée d'une colonne chaque semaine ?

2/ J'avais aussi une autre idée pour arriver au résultat : Mes colonnes sont numérotées en fonction des semaines (ex : "18/04>22/04" pour cette semaine qui est sur la cellule FB1 pour ma feuille "Mara" et sur la cellule CD1 pour ma feuille "Roma").

Est-il possible que la macro réalise un copier-coller de la plage voulue sur la colonne de la semaine en cours ? (p-e via une fonction Address/Match ou Vlookup en cherchant la référence "18/04>22/04" ?)


Merci pour votre aide et vos suggestions. Vos propositions sont plus que bien venues

[mercatog]

Essaies ceci pour le 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Mara").Range("FB98:FD112").Insert
Sheets("Roma (new)").Range("CD96:CF110").Insert

Pour le 2, il faut donner plus de précision sur la structuration de ta feuille.

[mft_ghost]

Merci pour la proposition.

Intéressant et beaucoup plus simple que ce que j avais fait effectivement.

Cette macro fait bien un "copier-coller" de ma plage, mais comme c'est un insert, ma plage se décale de 3 colonnes (elle-même en fait), au lieu de ne se décaler que d'une seule colonne.

Est il possible d'affiner cette formule avec par ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Mara (new)").Range("FB98:FD112").Insert(-2)
    Sheets("Roma (new)").Range("CD96:CF110").Insert(-2)

Pour reculer de 2 colonnes l'insertion ?

Merci encore pour le coup de main.

je vais essayer en ajoutant simplement une plage de une colonne et pas 3, juste avant la plage que je veux deplacer. Ca solutionnera p-e ce pb...

[mercatog]

Décale seulement la première colonne (les autres à droite suivront)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Mara").Range("FB98:FB112").Insert
Sheets("Roma (new)").Range("CD96:CD110").Insert

[mft_ghost]

Alors,

La macro suivante décale bien ma plage de 1 colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Mara").Range("FB98:FB112").Insert
Sheets("Roma (new)").Range("CD96:CD110").Insert

Par contre, s agissant d'une fonction insert, le formules contenues dans les cellules de la plage a déplacer ne sont pas incrémentées comme le ferait la fonction copier-coller...

Les formules de ces cellules se rapportent a la colonne de la semaine en cours (gestion de trésorerie), et doivent donc suivre cette incrémentation...

Merci pour ton aide, ca m a permis de faire évoluer ma réflexion.

A priori j'ai trouve la solution suivante qui semble marcher pour 1 des feuilles (je vais essayer de l appliquer a mes 70 feuilles maintenant) :

J'ai écrit ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("Mara").Select
Range("FA98:ii112").Select
Selection.Copy
Range("FB98").Select
ActiveSheet.Paste

Comme la sélection de plage est très grande, (jusqu'à ii112, voir plus si jamais j'en ai besoin), je ne suis plus restreint a la plage des 3 colonnes que je souhaite.

En parallèle, ma colonne FA98 est vierge, lors du copier-coller il décale a chaque fois la colonne précédente qui reste vierge.

J'essaie d'appliquer ca en grandeur nature pour valider.

[mercatog]

Certes, il est désormais judicieux d'être plus précis (un fichier test sera le bien venu).
Et vu le nombre de feuilles, combien de lignes de code tu auras à écrire!!!
Ne serait t-il pas utile de faire un code générique et l'appliquer en boucle à tes feuilles?
Ça sera plus facile pour le codage et sa maintenance, mais pour cela, la structuration de tes feuilles devra suivre une certaine logique d'organisation.

PS: Évite les Select, par exemple ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("Mara").Select
Range("FA98:ii112").Select
Selection.Copy
Range("FB98").Select
ActiveSheet.Paste

Si on traduit en français ces lignes: Sélectionne la feuille Mara, Sélectionne la plage FA98:II112, Copie la sélection, Sélectionne la cellule FB98, Colle ce qu'a été copié auparavant...

Alors que ce code est plus efficace:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Mara")
    .Range("FA98:II112").Copy .Range("FB98")
End With

On le traduit aussi: Au sein de (avec) la feuille Mara, copier la plage FA98:II112 vers (à partir de) la cellule FB98.

[mft_ghost]

Ah oui en effet c'est beaucoup plus simple et compact (et surement plus rapide a l'execution).

Merci !

Bon j avais deja fait mes 70 feuilles avec ma precedente formule, mais je vais surement remplacer par cette derniere porposee.



Pour la boucle malheureusement je ne peux pas en faire, car les 70 feuilles n ont pas tout a fait la meme structure. Je ne peux pas les modifier car il faudrait refondre tout le fichier (3 ans d'historique), et de ce fait une boucle n est malheureusement pas utilisable.

Mais c est pas grave, je vais m embeter encore une fois 30 min, et apres ce sera 45 minutes de gagnees tous les lundis !

Merki pour l amelioration de la formule