Ma macro copié/collé ne retourne pas ce que je veux

Bonjour à toutes et à tous,

Ma macro Copier/Coller ne retourne pas ce que je désire.

Est-ce que quelqu'un pourrait me venir en aide ?!

Bonjour Marion,

N'est-ce-pas le même problème que dans ce post ???

https://forum.excel-pratique.com/posting.php?mode=quote&f=2&p=363010

Non pas cette fois ci

Re...

OK ... mais si tu ne joins pas ton fichier avec la macro ... comment t'aider ...???

Ma boule de cristal est en panne ...

Ah oui c'est vrai.... excuse-moi je pensais l'avoir mis. Mon fichier est trop gros voilà pourquoi ça ne marche pas. Je vais copié la macro !

Sub CopierColler()

Dim i As Long

Dim j As Long

Dim x As Long

Application.ScreenUpdating = False

x = Range("C65536").End(xlUp).Row

For j = 4 To 12 Step 2

For i = 2 To x

Sheets("Feuil1").Cells(i, j).Copy

'Activer le classeur de destination

Sheets("Feuil2").Activate

'Coller les cellules

Sheets("Feuil2").Paste Destination:=Range(Cells(2, 3), Cells(x, 7))

'quitter le mode de copie (équivalent à la touche "Echap"

Application.CutCopyMode = False

Next i

Next j

End Sub

Re,

A priori tu travailles avec deux fichiers ... donc il faut absolument les définir ... !!!

Sub CopierColler()
Dim i As Long
Dim j As Long
Dim x As Long
Dim w1 As Workbook
Dim w2 As Workbook

Application.ScreenUpdating = False
'''''''''''''''''''''''''''''''''''''''''''''''
' Il faut définir les 2 Fichiers w1 et w2 .....
'''''''''''''''''''''''''''''''''''''''''''''''
x = w1.Sheets("Feuil1").Range("C65536").End(xlUp).Row
    For j = 4 To 12 Step 2
        For i = 2 To x
         w1.Sheets("Feuil1").Cells(i, j).Copy Destination:=w2.Sheets("Feuil2").Range("G" & i)
        Next i
    Next j
End Sub

Je travailles sur deux feuilles différentes mais pas deux fichiers !

Ma macro devrait plus ressemblait à quelque chose comme ça !

Sub CopierColler()

Dim i As Long

Dim j As Long

Dim k As Long

Dim l As Long

Dim x As Long

Application.ScreenUpdating = False

x = Range("C65536").End(xlUp).Row

For j = 4 To 12 Step 2

For i = 2 To x

For l = 3 To 7

For k = 2 To x

Sheets("Feuil1").Cells(i, j).Copy

'Activer le classeur de destination

Sheets("Feuil2").Activate

'Coller les cellules

Sheets("Feuil2").Paste Destination:=Cells(l, k)

'quitter le mode de copie (équivalent à la touche "Echap"

Application.CutCopyMode = False

Next i

Next j

Next k

Next l

End Sub

Re,

Pourquoi dans ton code y a- t-il : 'Activer le classeur de destination ...???

Pour joindre de gros fichiers : http://www.cjoint.com/

Je me suis trompé... je voulais activer la feuille !

Merci pour ce lien : https://www.cjoint.com/c/EEppD4u9fHA

Re,

Merci pour le fichier ...

J'ai l'impression que tu n'as pas du tout besoin de macro ...

Est-ce-que par hasard le code suivant te donnerait les résultats que tu voulais ....???

Sub CopierColler()
Dim i As Long
Dim j As Long
Dim x As Long
Application.ScreenUpdating = False
x = Range("C65536").End(xlUp).Row
  For j = 4 To 12 Step 2
    For i = 2 To x
      If IsNumeric(Cells(i, j)) And Not IsEmpty(Cells(i, j)) Then
        Sheets("Feuil1").Cells(i, j).Copy Destination:=Sheets("Feuil2").Cells(i, (j / 2) + 1)
      End If
    Next i
  Next j
End Sub

Merci James

Bonjour,

Merci pour tes remerciements ...

Re,

Au fait ... moi aussi ... j'oublie ... et Jean-Eric le re-dit souvent ...

Je vais le faire ! Merci encore