Macro pour un copier-coller ligne active Résolu

Question

Bonjour,
Je cherche tout simplement une macro pour faire un copier-coller (juste la valeur) d'une cellule vers une autre en fonction de la ligne active.
Par ex : le curseur est en A18. Je veux faire copier-coller spécial valeur de la cellule K18 vers la cellule J18.
Merci de votre aide.

bayedav · Answer

Bonjour,
Il faut ituliser cette commande

Sub Macro1()

    Range("K18").Select
    Selection.Copy
    Range("J18").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("J18").Select

End Sub

bayedav · Answer

Re-bonjour,
On pourra maintenant mettre cette appli dans une boucle qui saute ligne par ligne. Est-ce que ça va de la ligne 18 à la 19 par exemple?

Pika · Answer

Merci bayedav.
Juste une petite précision, je souhaite que la macro s'effectue en fonction d'où est le curseur. Il doit y avoir une commande du type "ActiveCell" mais je n'ai pas bien compris comment la faire fonctionner.

michel_m · Answer

Bonjour

Sub copier_KversJ()
Dim lig as long
lig = Selection.Row
Cells(lig, 10) = Cells(lig, 11)
End Sub

Macro pour un copier-coller ligne active

4 réponses

Discussions similaires

Newsletters