re bonjour à tous
Aprés un bon creusage de tête voila la suite qui marche pas trop mal
Private Sub CmdRepasM_Click()
Worksheets("Liste").Select
Range("a8:a600,c8:c600,f8:f600,ah8:au600,aw8:aw600").Select
Range("a8").Activate
Selection.Copy
Sheets("tempRp").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Selection
.VerticalAlignment = xlCenter
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
Selection.Copy
Range("d9:k26").Select
Range("k26").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("a1").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Range("A8:R26").Select
Selection.Clear
Unload Userform7
End Sub
Merci a tous