Macro : copier-coller conditionnel

Bonjour,

J'aimerai crée une macro mais je n'y connais pas grand chose dans ce domaine et dans le cadre professionnel il m'arrive de devoir utiliser la programmation pour simplifier les taches.

Je vous expose ma demande :

Toutes les semaines je récupère un tableau que je colle dans la feuille « Base rejets ».

J’aimerai coller une plage de cellule en fonction de la semaine dans les différentes feuilles du classeur.

Dans la feuille base rejets, la semaine est indiquée en cellule C3


Dans la feuille base rejets : cellule B9 à B18
A25179 – 1correspondra à la feuille Arnage TTF245
A25179 – 2correspondra à la feuille Arnage TTF247
A25179 – 3correspondra à la feuille Arnage TTF248
A38469 – 1correspondra à la feuille Laval TTF075
A38469 – 2correspondra à la feuille Laval TTF076
A24447 – 1 correspondra à la feuille Cholet TTF233
A42309 - 1 correspondra à la feuille St sylvain TTF185
A42309 - 2 correspondra à la feuille St sylvain TTF186
A42309 - 3 correspondra à la feuille St sylvain TTF187
A42309 - 4 correspondra à la feuille St sylvain TTF421




Exemple :

J’aimerais coller la plage de cellules : D9 :AG9 ; AJ9 :AY9 (correspondant à A25179-1) de la feuille base rejets dans la plage de cellule : C : AT de la feuille Arnage TTF245 pour la semaine concernée (exemple semaine 25 et cela a chaque changement de semaine)

Ceci pour les 10 cas présent.

Par souci de capacité pour l'envoi du fichier, j'ai supprimé la plupart des feuilles.

Je vous remercie d'avance pour votre aide.

Teddy

Bonjour,
bienvenue sur DVP :salut:
pourrais-tu stp nous donne un peu plus de details, parce que les differentes colonnes que tu nous fournies m'embrouille plus qu'elles ne me permettent de comprendre ce que tu cherches a faire... :koi:

as-tu essaye le macro recorder pour generer du code selon les manipulations que tu souhaites realiser ?

Bonsoir,

J'ai refais le classeur avec moins de données.

En faite ce que je veux si je ne prend qu'une ligne, c'est copier la ligne sélectionnée (couleur de police rouge dans la feuille "base rejets") dans la feuille ARNAGE TTF245.

Copier cette ligne suivant la semaine correspondante, dans mon cas S25. Mais il faut que la semaine suivante, cette ligne (qui va changée car j'importe un nouveau tableau chaque semaine) soit copié en S26.

Voir la nouvelle PJ

Concernant l'enregistrement macro

Code:

---

1 2 3 4 5 6 7 8

Sub Macro2()   Range("D9:AG9,AJ9:AY9").Select Selection.Copy Sheets("ARNAGE TTF245").Select Range("B28").Select ActiveSheet.Paste End Sub

---

Ok,

bon maintenant que tu as une idee du code genere, tu dois pouvoir facilement le repliquer en prenant soin de faire varier tes colonnes et noms de feuilles :ccool:

justement je demande de l'aide car ce code la ca va mais après c'est pour faire du copier coller en fonction de la semaine que je sais pas faire

Bonjour

Peut-être quelque chose du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CopierLigneSemaine() Dim CelCible As Range Dim Semaine As String   Semaine = Right(Worksheets("base rejets").Range("c3"), 3) Set CelCible = Worksheets("arnage ttf245").Range("b:b").Find(what:=Semaine, LookIn:=xlValues, lookat:=xlWhole) If Not CelCible Is Nothing Then Worksheets("base rejets").Range("D9:AG9,AJ9:AY9").Copy CelCible(1, 2) End If End Sub

---

merci pour le code.
J'ai exécute ta macro mais rien n'est copié

Pourrais tu m'expliquer en même temps les codes que tu met car j'y connais pas grand chose et sa ne me parle pas.

Je te remercie par avance

On extrait la semaine qui est définie par les trois derniers caractères de C3 de la feuille ad hoc.

On définit ensuite un objet Range (plage ou cellule, ici une cellule) comme étant le résultat d'une recherche de la semaine dans la colonne B de la feuille cible.

On copie ensuite les données de ta plage source, en ligne 9 de la feuille source, et on colle dans la cellule C sur la même ligne que la semaine trouvée.

Ce code fonctionne chez moi. Tu dois l'exécuter en pas à pas (F8 lorsque tu as cliqué dans la procédure) pour voir ce qui se passe et comprendre ce qui pourrait ne pas marcher sur ton fichier.

merci pour ta reponse,

je ne comprend pas ce bout de code : .Range("b:b") pourquoi B

Pour rechercher la semaine qui, dans la feuille cible, se trouve en colonne B

la feuille cible c'est arnage ttf245, la semaine se trouve dans la colonne A

Alors, mets A:A

Mais dans le fichier que tu as donné, c'est en colonne B :koi:

en mettant A:A sa fonctionne, merci beaucoup.

Ça m'aide beaucoup, je ne comprend pas tous les paramètres du code, dommage

Cite ce que tu ne comprends pas, on détaillera

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CopierLigneSemaine() Dim CelCible As Range Dim Semaine As String Semaine = Right(Worksheets("base rejets").Range("c3"), 3) Set CelCible = Worksheets("arnage ttf245").Range("b:b").Find(what:=Semaine, LookIn:=xlValues, lookat:=xlWhole) If Not CelCible Is Nothing Then Worksheets("base rejets").Range("D9:AG9,AJ9:AY9").Copy CelCible(1, 2) End If End Sub

---

en rouge ce que je ne maitrise pas vraiment

j'ai une dizaine d'onglet a faire comme sa ex arnagettf245 arnage ttf247 arnage ttf248


je dois faire comme sa, ou on peut simplifier ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub CopierLigneSemaine() Dim CelCible As Range Dim Semaine As String   Semaine = Right(Worksheets("base rejets").Range("c3"), 3) Set CelCible = Worksheets("arnage ttf245").Range("b:b").Find(what:=Semaine, LookIn:=xlValues, lookat:=xlWhole) If Not CelCible Is Nothing Then Worksheets("base rejets").Range("D9:AG9,AJ9:AY9").Copy CelCible(1, 2) End If     Set CelCible = Worksheets("arnage ttf247").Range("b:b").Find(what:=Semaine, LookIn:=xlValues, lookat:=xlWhole) If Not CelCible Is Nothing Then Worksheets("base rejets").Range("D10:AG10,AJ10:AY10").Copy CelCible(1, 2) End If   Set CelCible = Worksheets("arnage ttf248").Range("b:b").Find(what:=Semaine, LookIn:=xlValues, lookat:=xlWhole) If Not CelCible Is Nothing Then Worksheets("base rejets").Range("D11:AG11,AJ11:AY11").Copy CelCible(1, 2) End If End Sub

---

etc... 10 fois comme sa

Ya t-il un moyen de simplifier ?

DIM...

Ces lignes servent à déclarer les variables. il est toujours préférable de déclarer que tu vas travailler avec des variables. Normalement, tu devrais avoir, en toute première ligne de chaque module, la mention Option Explicit pour t'obliger à déclarer les variables. C'est incontournable pour éviter, ou à tout le moins détecter rapidement, certaines erreurs de saisie de code (voir ce tuto de Maxence Hubiche)

LookIn, LookAt : Paramètres qui permettent d'affiner la recherche.

LookIn correspond à la case à cocher "Rechercher dans" de la boite de dialogue de recherche d'Excel, LookAt correspond, dans cette même boite, à la case à cocher "Totalité du contenu de la cellule"

CelCible(1, 2) Juste derrière le COPY, permet de préciser la cellule de destination. Les valeurs entre parenthèses permettent de renvoyer une cellule par rapport à la cellule CelCible. (1,1) signifierait Ligne1 et Colonne 1 par rapport à CelCible (= CelCible). Comme CelCible est en An et que tu veux aller sur la même ligne n (ligne 1 par rapport à CelCible) et en B (2ième colonne par rapport à CelCible), tu utilises (1,2)

merci pour ton eclairage, c'est sympa de me consacrer un peu de temps

Il existe des solutions "tout en VBA" avec array ou tableau. Le problème d'une telle solution, c'est que c'est dans le code que tu saisis les noms des feuilles de destination et les numéros des lignes qui doivent être copiées. Si ajout d'une feuille, changement de nom ou changement de ligne, tu dois retourner dans le code et c'est vite galère.

Personnellement, j'aime bien mettre d'abord le décor en place en Excel, pour alléger le VBA et le rendre moins dépendant de la structure de ton classeur.

Donc, procédons par étapes:
1) Dans une feuille Excel vide, tu crées un tableau avec les noms des feuilles de destination et, en regard de chaque nom, le numéro de la ligne qui doit être copiée pour cette feuille. Tu sélectionnes la plage des noms (sans les numéros de ligne!) et tu la nommes FeuillesCibles.

Tu pourras ainsi boucler en VBA de la façon suivante, en remplaçant à l'intérieur de la boucle les valeurs "en dur" par les valeurs des cellules sur lesquelles tu boucles (noms des feuilles) et en récupérant dans LigneRecopie le numéro de ligne renseigné à droite du nom de la feuille:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub CopierLigneSemaine() Dim CelCible As Range Dim Semaine As String Dim celTableau As Range Dim LigneRecopie As Long   Semaine = Right(Worksheets("base rejets").Range("c3"), 3) For Each celTableau In [feuillescibles].Cells LigneRecopie = celTableau(1, 2).Value Set CelCible = Worksheets(celTableau.Value).Range("b:b").Find(what:=Semaine, LookIn:=xlValues, lookat:=xlWhole) If Not CelCible Is Nothing Then Worksheets("base rejets").Range("D" & LigneRecopie & ":AG" & LigneRecopie & ",AJ" & LigneRecopie & ":AY" & LigneRecopie).Copy CelCible(1, 2) End If Next celTableau End Sub

---

Ainsi, tu (t')offres la possibilité d'ajouter ou de modifier les feuilles sans devoir toucher à ton code.

Bien entendu, tu pourras, selon les versions d'Excel, utiliser des plages dynamiques:
- Avant XL2003 : en nommant la plage FeuillesCibles avec DECALER()
- XL2003 : en créant une liste sur la colonne A, puis en la sélectionnant et en la nommant (elle devient alors dynamique car elle s'appuie sur une liste)
- XL2007/2010 : En créant un tableau puis en le nommant.

Sans plage dynamique, tu pourras aussi faire grandir la liste des noms de feuilles de destination, mais en insérant une ligne à l'intérieur de la plage.

Bonsoir,


Merci pour ta réponse. ca marche nickel c'est super, ca m'arrange bien.



Merci pour ton expertise