Macro collage special

Bonjour à tous

Je souhaiterais effectuer une macro sur la même feuille qui me permette de copier des valeurs des cellules C2 à HK2 sur les cellules C4 à HK4, sachant que chaque jour les valeurs(C2 à HK2 changent), le lendemain je collerais les données en C5 HK5 etc.. afin que je puisse conserver ces données. Je débute dans le domaine des macros. Pouvez vous m'aider.. Thierry

Bonsoir,

Exécute ce code essaie de comprendre la façon dont il fonctionne :

Sub CollageValeur()
   Dim Lig As Long, DernLig As Long, sColDeb As String, sColFin As String, rCelluleActive As Range
   ' Inititalisation
   Set rCelluleActive = ActiveCell
   Lig = 2
   sColDeb = "C"
   sColFin = "HK"
   DernLig = Range("C" & Rows.Count).End(xlUp).Row + 1
   ' Copie
   Application.ScreenUpdating = False
   Range(sColDeb & Lig & ":" & sColFin & Lig).Copy
   Range(sColDeb & DernLig & ":" & sColFin & DernLig).PasteSpecial xlPasteValues
   Application.CutCopyMode = False
   rCelluleActive.Select
   Application.ScreenUpdating = True
End Sub

A chaque fois que tu lanceras la macro, cela créera une ligne supplémentaire.

A+

Benead

Bonsoir THIERRYSAY, Benead, le forum,

Une autre méthode avec un bouton de commande (fichier joint). Pour éviter de copier 2 fois les cellules C2 à HK2, il serait souhaitable d’ajouter un code pour vérifier les dates.

Cordialement,

André

22classeur1.xlsm (19.38 Ko)
Rechercher des sujets similaires à "macro collage special"