Sub Déplacement1()
'
' Déplacement1 Macro
'
'
Range("B2:C2").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Range("B2:C2,J2:U2").Select
Range("J2").Activate
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A2").Select
Sheets("Général").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B44:C44").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select ActiveSheet.Paste
Sheets("Général").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("J44:U44").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("C2").Select
ActiveSheet.Paste
Range("N2").Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A2").Select
Selection.Copy
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Berktold"
Range("A3").Select
End Sub
Merci ! Je l'ai reprodui sur le tableau de l'autre fil, comme ca ca sera plus clair pour toi
C'est ce qui est en gras qui joue pas...
Mél.
-- Mar Déc 08, 2009 11:39 pm --
Et puis je pensais bien que tu l'avais fait dans l'autre fil... Mais je n'arrive pas voir ou c'est dans le code.... Moi et les codes, ca fait 2.....
Du coup je ne comprends pas comment tu as fait....
Mais bon....