Justement,
j'ai une macro réalisé par CBernardT:
Sub macro1()
Application.ScreenUpdating = False
With Sheets('Saisie par équipe')
Nom = Left(.Range('C2'), Application.Find(' ', .Range('C2'), 1) - 1)
End With
With Sheets(Nom)
Lig1 = .Range('A10000').End(xlUp).Row
Range(.Range('H' & Lig1 + 1), .Range('H' & Lig1 + 3)).Clear
End With
With Sheets('Saisie par équipe')
i = Application.CountA(.Range('D5
8'))
Range(.Range('B5'), .Range('I' & 4 + i)).Copy
End With
Windows('Test_BDV3.xls').Activate
With Sheets(Nom)
.Paste Destination:=.Range('A65536').End(xlUp).Offset(1, 0)
Lig1 = .Range('A65536').End(xlUp).Row
Lig2 = .Range('J65536').End(xlUp).Row + 1
Range(.Range('A' & Lig2), .Range('H' & Lig1)).Validation.Delete
Range(.Range('A' & Lig2), .Range('H' & Lig1)).Value = Range(.Range('A' & Lig2), .Range('H' & Lig1)).Value
Range(.Range('A3'), .Range('H' & Lig1)).Sort Key1:=.Range('A3'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range(.Range('J' & Lig2 - 1), .Range('M' & Lig2 - 1)).AutoFill _
Destination:=Range(.Range('J' & Lig2 - 1), .Range('M' & Lig1)), Type:=xlFillDefault
End With
Sheets('Saisie par équipe').Range('C2').Select
Application.ScreenUpdating = True
End Sub
-------------------
le problème, c que elle ne copier pas correctement les valeurs de mon tableau
nottamment la colonne I ??
que faire ?