T
tofty
Guest
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 :
Merci d'avance
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 :
Code:
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 SubMerci d'avance