Macro copie - débutant

[tofty]

Bonjour à tous,

Je me présente Christophe 24ans, je débute dans le VBA et j'aurais une question concernant ma 1ère macro.

Je m'excuse d'avance si la solution a déjà été donnée mais je préfère poser ma question avant de parcourir le forum et les tutoriels complémentaires 🙂

Mon but est de copier une centaine de lignes d'une colonne d'une feuille vers une autre feuille du même fichier par transpose, avec ajout de la date du jour dans la 1ère colonne et ensuite effacer ces cellules pour pouvoir entrer à nouveau des paramètres. Pour cela pas de problème 🙂

Là où ca se complique, c'est lorsque je souhaite pouvoir copier à nouveau cette colonne dans la seconde feuille sans écraser les données déjà présentes, tout en ajoutant la date du jour dans la 1ère colonne.

Si quelqu'un pouvait m'éclairer sur le sujet 🙂


Voici le code actuel :

Sub test1()

    ' Copier le contenu des cellules D2->D192 de "Input" dans "Data" par transpose à partir de B4
    Sheets("Input").Select
    Range("D2:D192").Select
    Selection.Copy
    Sheets("Data").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
 
    ' Ajouter la date du jour dans la cellule A4 dand "Data"
    Sheets("Data").Select
    Range("A4").Select
    ActiveCell.FormulaR1C1 = Date
    
    ' Effacer le contenu des cellules B3->B16 dans "R-shunt"
    Sheets("R-shunt").Select
    Range("B3:B16").Select
    Selection.ClearContents
    
    ' Effacer le contenu des cellules B3->B31 dans "Knee curve"
    Sheets("Knee curve").Select
    Range("B3:B31").Select
    Selection.ClearContents
    
    ' Effacer le contenu des cellules B3->B43 dans "Radial track"
    Sheets("Radial track").Select
    Range("B3:B43").Select
    Selection.ClearContents
    
    ' Effacer le contenu des cellules D2 et D87->D192 dans "Input"
    Sheets("Input").Select
    Application.CutCopyMode = False
    Range("D2").Select
    Selection.ClearContents
    Range("D87:D192").Select
    Selection.ClearContents
    
End Sub

Merci d'avance

 

[tofty]

Re : Macro copie - débutant

Bonjour à tous,

Avec tout ca, j'ai de quoi potasser quelques jours 😉