Titre du sujet : Re: Récupérations arrivées et rapports : ajout de colonnes par JeanMarie le 10/03/2012 11:41:16
Bonjour Degood68, Didier, le forum
Je suis pas d'accord avec ce que tu as dit sur ton post, et je partage la réponse de Didier.
Pour rajouter tes deux colonnes, tu dois modifier la macro CopierCourse comme ceci :
Sub CopierCourse()
Dim Cel As Range
Dim FirstAddress As String
Dim Ligne As Long
Ligne = 10
Application.ScreenUpdating = False
With Sheets("ReqDerby")
With .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
Set Cel = .Find("COURSE N°", LookIn:=xlValues)
If Not Cel Is Nothing Then
FirstAddress = Cel.Address
Do
Range("B10:W33").Copy Destination:=Cells(Ligne, "B")
Range("L12:U13").Copy Cells(Ligne + 2, "L")
Cel.CurrentRegion.Copy
Cells(Ligne, "B").PasteSpecial Paste:=xlPasteValues
Ligne = Ligne + 25
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> FirstAddress
End If
End With
End With
Application.CutCopyMode = False
Call Musique
Application.ScreenUpdating = True
Range("A1").Activate
Set Cel = Nothing
End Sub
Ensuite pour ton tri sur quelle colonne veux-tu trier, et quelles sont les formules qui donneront ces valeurs ?
@+Jean-Marie
|