Bonjour,
Je dois quotidiennement, copier-coller la colonne J de la feuille "EUR" dans la 1ère colonne vide à droite. Ainsi, tous les jours, les valeurs sont enregistrés dans une nouvelle colonne et ainsi, je créés un historique des valeurs.
J'ai donc pensé à créer une macro. Mon problème est que je n'arrive pas à lui dire de coller les valeurs dans la 1ère colonne vide. Avec ce que j'ai écris ci-dessous, il me coller toujours les valeurs dans la colonne BB.
Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 21.07.2010 par WM
'
' Touche de raccourci du clavier: Ctrl+u
'
'Copier Colonne J de la feuille EUR
Sheets("EUR").Select
Application.Run "BLPLinkReset"
Columns("J:J").Select
Selection.Copy
'Coller dans la derière colonne vide de la feuille EUR
Range("BB1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Modifier format des cellules collées
Columns("BA:BA").Select
Application.CutCopyMode = False
Selection.Copy
Columns("BB:BB").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll ToRight:=1
End Sub
Avez-vous la solution?
merci
Stéphane
Je dois quotidiennement, copier-coller la colonne J de la feuille "EUR" dans la 1ère colonne vide à droite. Ainsi, tous les jours, les valeurs sont enregistrés dans une nouvelle colonne et ainsi, je créés un historique des valeurs.
J'ai donc pensé à créer une macro. Mon problème est que je n'arrive pas à lui dire de coller les valeurs dans la 1ère colonne vide. Avec ce que j'ai écris ci-dessous, il me coller toujours les valeurs dans la colonne BB.
Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 21.07.2010 par WM
'
' Touche de raccourci du clavier: Ctrl+u
'
'Copier Colonne J de la feuille EUR
Sheets("EUR").Select
Application.Run "BLPLinkReset"
Columns("J:J").Select
Selection.Copy
'Coller dans la derière colonne vide de la feuille EUR
Range("BB1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Modifier format des cellules collées
Columns("BA:BA").Select
Application.CutCopyMode = False
Selection.Copy
Columns("BB:BB").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll ToRight:=1
End Sub
Avez-vous la solution?
merci
Stéphane