Discussion :

[Progeric]

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 :

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

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 :

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

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

[Philippe Tulliez]

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 ?

[Franc]

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 :

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

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.

[Progeric]

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

[Philippe Tulliez]

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

[Progeric]

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

[Franc]

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

Code :

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

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

[Progeric]

Merci Franc cela fonctionne parfaitement