Bonjour à tous,
le sujet à été traité à maintes reprises mais malgré mes recherches et mon code je n'arrive toujours pas à arriver au but recherché.
Je souhaiterais créer une macro qui pour chaque cellule d'une plage donnée, copie une cellule puis colle la valeur dans une autre cellule.
Dans un second temps la macro doit copier une autre cellule et allez copier la valeur dans une autre cellule.
La subtilité réside dans le fait que la deuxième valeur copiée doit se faire à la ligne suivante et ainsi de suite.
Ma macro copie bien chaque valeur de la plage et la colle bien au bon endroit mais le deuxième copier coller va toujours coller la valeur dans la même cellule sans incrémenter.
Pourriez vous compléter ma macro pour qu'elle fonctionne dans ce sens?
Merci d'avance!
Newpol
Dim cell As Range
For Each cell In Range("J30:J145")
cell.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L25").Select
Application.CutCopyMode = False
Selection.Copy
Cells(ActiveSheet.Cells(28, 12).End(xlDown).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End Sub
le sujet à été traité à maintes reprises mais malgré mes recherches et mon code je n'arrive toujours pas à arriver au but recherché.
Je souhaiterais créer une macro qui pour chaque cellule d'une plage donnée, copie une cellule puis colle la valeur dans une autre cellule.
Dans un second temps la macro doit copier une autre cellule et allez copier la valeur dans une autre cellule.
La subtilité réside dans le fait que la deuxième valeur copiée doit se faire à la ligne suivante et ainsi de suite.
Ma macro copie bien chaque valeur de la plage et la colle bien au bon endroit mais le deuxième copier coller va toujours coller la valeur dans la même cellule sans incrémenter.
Pourriez vous compléter ma macro pour qu'elle fonctionne dans ce sens?
Merci d'avance!
Newpol
Dim cell As Range
For Each cell In Range("J30:J145")
cell.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L25").Select
Application.CutCopyMode = False
Selection.Copy
Cells(ActiveSheet.Cells(28, 12).End(xlDown).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End Sub