Selection multiple à copier

Bonjour,

Je sais qu'il y a déjà de nombreuses discussions sur mon sujet, mais je n'arrive pas a trouver la solution que je recherche.

Voila j'ai un classeur qui contient 52 onglet chacun correspondant à une semaine (onglet1 = Semaine 1, ...).
Mon soucis est que je souhaite sélectionner sur une plage de données ("C4:M36"), qui correspond au Lundi, les cellules non vides puis les copier et les coller sur toutes les feuilles suivantes au même emplacement.

J'ai réussi à trouver comment sélectionner les cellules non vides, j'ai réussi à trouver comment copier au même emplacement mais quand j'associe les 2 ça ne marche pas car il me dit qu'il ne peut pas copier une sélection multiple.

Voila mon code :

Code:

---

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

'sélectionner toutes les cellules non vides sur plage C4 à M36 Dim Cell As Range, Plage As Range, Adresse As Range ActiveSheet.Select Set Plage = Range("C4:M36") Set Adresse = Application.Union(Range("C4"), Range("M36")) For Each Cell In Plage If Cell <> "" Then Set Adresse = Application.Union(Adresse, Cell) End If Next Adresse.Select   'copier la sélection et la coller sur les autres feuilles Selection.Copy For i = ActiveSheet.Index To Sheets.Count Sheets("Semaine " & i).Select Range("C4, P4, AC4").Select ActiveSheet.Paste Next   End Sub

---

Quelqu'un saurait-il me dire ce qu'il faut rajouter dans mon code pour que ça marche SVP ?

Merci

Code:

---

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

'sélectionner toutes les cellules non vides sur plage C4 à M36 Dim Cell As Range, Plage As Range, Adresse As Range ActiveSheet.Select Set Plage = Range("C4:M36") Set Adresse = Application.Union(Range("C4"), Range("M36")) For Each Cell In Plage If Cell <> "" Then Set Adresse = Application.Union(Adresse, Cell) End If Next Adresse.Select   'copier la sélection et la coller sur les autres feuilles Selection.Copy For i = ActiveSheet.Index To Sheets.Count Sheets("Semaine " & i).Select Range("C4, P4, AC4").Select ActiveSheet.Paste Next   End Sub

---

Pour ne pas t'embeter , pourquoi ne pasle copier entier? tu ne veux pas effacer les données des differentes pages ?
Ma solution serait un dictionnaire, avec comme clef la position range (seulement les ranges avec une valeur) et comme valeur valeur du range.
Je sais pas si ca t'aide, je peux te le coder c'est pas tres compliqué, mais a moins que quelqu'un ai une solution plus adaptée, car utiliser un dico juste pour ca ca semble un peu démesuré, mais je trouve pas trop une autre solution.

Bonjour,

Je ne comprends pas trop ce que tu veux faire, tu veux copier les cellules non vides dans une autre feuille mais exactement au même endroit donc, il y aura forcément des "trous" dans ta plage dus aux cellules vides de la plage source !

Hervé.

Non pas obligatoirement Hervé.

En fait, je fais un planning pour une clinique. Les patients viennent 3 fois par semaine (lundi/mercredi/vendredi ou mardi/jeudi/samedi). Et ce pendant toute l'année. Mais il se peut que le patient parte en vacance par exemple pour 2 semaines. Donc mon objectif est de le supprimer pour les 2 semaines où il part mais pas le reste des semaines.

En fait j'ai 2 macros. Une pour recopier lundi/ mercredi/vendredi et l'autre pour les 3 autres jours. des qu'on fait une modif le lundi on appuie sur ctrl + l pour que ça modifie sur toutes les semaines suivantes. Mais si je supprime mon patient pour les deux semaines où il part avec ma solution, dès que je vais appuyer sur ctrl + l il va être supprimer partout. C'est pourquoi je pensais ne copier que les cellules non vides.

Je ne sais pas si j'ai été claire dans mon explication.

Poste un classeur exemple avec la feuille source où ont doit récupérer les valeurs et une ou deux feuilles ayant le résultat voulu. Remplace les données confidentielles par des données bidons.

Hervé.

Voila je souhaite copier tout ce qui est fluoté en faune dans la page 1 dans ce qui est fluoté en jaune dans la page 2.
Pièce jointe 181155

Bonjour,

Pourquoi ne pas distinguer les cellules à copier par une propriété comme la couleur jaune que tu as ajouté ?

Le code serait du style :

Code:

---

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

Sub Copie() Dim plage As Range Dim cellule As Range Dim ligne As Long Dim colonne As Long   Set plage = Worksheets("Feuil1").Range(Cells(4, 3), Cells(36, 5)) For Each cellule In plage If (cellule.Interior.Color = 65535) Then ligne = cellule.Row colonne = cellule.Column Worksheets("Feuil2").Cells(ligne, colonne).Value = cellule.Value End If Next cellule End Sub

---

J'espère que cela peut t'apporter une solution :D

Ludo

Parce qu'en vrai il y a pas de fluo ! Je l'ai mis juste pour expliquer ! Et qu'il y a 52 feuille je copie celle sur laquelle je suis sur toutes les suivantes.

Le copier coller d'une plage de cellules non contigues n'est pas possible, il me semble.
Donc ma réponse précédente adaptée à ta recherche de cellule non vide devient :

Code:

---

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

Dim Cell As Range, Plage As Range, Adresse As Range Dim ligne As Integer, colonne As Integer   Set Plage = Sheets("Semaine 1").Range("C4:M36") Set Adresse = Application.Union(Sheets("Semaine 1").Range("C4"), Sheets("Semaine 1").Range("M36")) For Each Cell In Plage If Cell <> "" Then Set Adresse = Application.Union(Adresse, Cell) End If Next Cell   For i = ActiveSheet.Index + 1 To Sheets.Count For Each Cell In Adresse ligne = Cell.Row colonne = Cell.Column Sheets("Semaine " & i).Cells(ligne, colonne).Value = Cell.Value Next Cell Next

---

Cooooool !!!!!!!!
ça marche!!! Merci beaucoup :D
Après le truc c'est que je veux le copier au même endroit mais aussi dans la partie ("k4:r36") et ("t4:aa36"). Est-ce que tu crois que c'est possible ?

Bon finalement je me suis arrangé, au lieu de copier juste le lundi (C4:M36) je copie tout le lundi, mercredi, vendredi (C4:AA36). Ça fera un peu plus à écrire mais sans ça je vois pas comment faire puisque tu dis que les copies de sélections multiples ne marchent pas.

Merci encore!!! :D