A
AlbatroZ
Bonjour a tous
voici une petite question,
Je copie un ligne d'une feuille excel pour faire un collage special (
transoser) dans une autre feuille excel. Je veux selctionner la
derniere lignes qui est ecrtite pour la coller toujours au meme endroit
mais j;ai une erreur dans ma Macro.
Y a t 'il qqun pour m'aider
l'erreur se situe ici : Range("C & lignes : I & lignes").Select
Sub Macro4()
'
' Macro4 Macro
' Macro recorded 15/05/2006 by A1004989
'
' Keyboard Shortcut: Ctrl+j
Dim lignes As Integer
lignes = Worksheets("VC Data").Cells(Rows.Count, "A").End(xlUp).Row
'
Windows("MMP Pricing Spreadsheet.xls").Activate
Range("C & lignes : I & lignes").Select
Selection.Copy
Windows("MMP index rough draft- Revised Billing.xls").Activate
Range("B7:B13").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=True
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
voici une petite question,
Je copie un ligne d'une feuille excel pour faire un collage special (
transoser) dans une autre feuille excel. Je veux selctionner la
derniere lignes qui est ecrtite pour la coller toujours au meme endroit
mais j;ai une erreur dans ma Macro.
Y a t 'il qqun pour m'aider
l'erreur se situe ici : Range("C & lignes : I & lignes").Select
Sub Macro4()
'
' Macro4 Macro
' Macro recorded 15/05/2006 by A1004989
'
' Keyboard Shortcut: Ctrl+j
Dim lignes As Integer
lignes = Worksheets("VC Data").Cells(Rows.Count, "A").End(xlUp).Row
'
Windows("MMP Pricing Spreadsheet.xls").Activate
Range("C & lignes : I & lignes").Select
Selection.Copy
Windows("MMP index rough draft- Revised Billing.xls").Activate
Range("B7:B13").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=True
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub