Copier coller selection multiple

Bonjour,

Mon but est de faire un copier coller sur une sélection multiple.
Je sais le faire d'une feuille à l'autre mais pas d'une ligne à l'autre.

Merci pour votre aide

Voici ma macro qui ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() Application.EnableEvents = False Range("B425:E425,J425:K425,N425,P425:W425").Select For Each cel In Selection cel.Copy Range(Cells(cel.Address.Row + 1, cel.Address.Column)).Select ActiveSheet.Paste Next cel Application.EnableEvents = True End Sub

---

Voici la macro qui fonctionne d'une feuille à l'autre mais sur la même ligne et pas celle d'en dessous

Code:

---

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

Sub Macro1() Application.EnableEvents = False Range("B425:E425,J425:K425,N425,P425:W425").Select For Each cel In Selection cel.Copy Sheets("Feuil1").Select Range(cel.Address).Select ActiveSheet.Paste Next cel Application.EnableEvents = True End Sub

---

Bonjour,
Ce n'est pas très clair pour moi. Que voulez-vous faire exactement ?
Où voulez-vous copier la plage "B425:E425,J425:K425,N425,P425:W425" ? A la suite l'un de l'autre sur la même ligne soit de B425 à P425 ?

A la ligne 5 de votre second code publié, que représente l'objet Selection une plage de cellules contiguë ou pas ?

Salut, en voyant ce que tu essaies de faire avec ta macro, j'en déduis que tu veux sélectionner des cellules non contigües et les recopier sur la ligne juste en dessous. Voici une macro qui le fait:

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1()   Dim plage As Range   Set plage = Union(Range("B425:E425"), Range("J425:K425"), Range("N425"), Range("P425:W425")) plage.Offset(1).Value = plage.Value   End Sub

---

Pour info, je vois que tu as tendance à utiliser .select, la plupart du temps c'est inutile, tu peux affecter des valeurs sans devoir sélectionner.

Bonjour Philippe,

Je veux que les données de la plage : Range("B425:E425,J425:K425,N425,P425:W425")
s'écrive dans la plage : Range("B426:E426,J426:K426,N426,P426:W426")
Au même emplacement de colonne mais dans la ligne en dessous.

Cordialement

Bonjour,
Et bien Franc avait compris le problème et a répondu.

Bonjour Franc,

Votre solution fonctionne, presque.

Pour la plage B426:E426 j'ai bien les même données que celle de B425:E425
Pour la plage J426:K426 Il écrit les données de B425
Pour la plage N426 Il écrit aussi les données de B425
Pour la plage de P426:W426 il écrit les données de B425 dans chaque cellules

Je vais essayé de comprendre pourquoi dans les autres plages il écrit que la première donnée.

Merci

Oups, j'ai écrit à la va vite sans tester, voici le code corrigé et testé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1()   Dim plage As Range Dim cel As Range   Set plage = Union(Range("B425:E425"), Range("J425:K425"), Range("N425"), Range("P425:W425")) For Each cel In plage.Areas cel.Offset(1).Value = cel.Value Next cel   End Sub

---

Merci Franc cela fonctionne parfaitement:D:D:D:D