Le forum,
je viens de m'appercevoir que les colonnes que j'importe ne sont pas complete,
j'ai un tableau de 24 colonnes et 50000 lignes
lorsque je copie les colonnes F et G, je n'ai que 2034 lignes de copiées auriez vous une idée ?
voici mon code:
Sub Copy_Data()
Dim WsDest As Worksheet, WsSource As Worksheet
Dim rng As Range, derl As Long
Set rng = Range("F2", Range("F60000").End(xlUp)) '.Select
derl = rng.Rows.Count + 1
Set WsSource = Sheets("Data 1") 'Feuil source
Set WsDest = Sheets("Synthèse 1") 'Feuil destination
WsDest.Range("A2:Z" & derl).Clear 'Suppression valeur du tableau
Selection.Interior.Pattern = xlNone
WsSource.Range("F2:G" & derl).Copy Destination:=WsDest.Range("B2") 'Copier/ coller colonne F et G sans entete
Application.CutCopyMode = False ' supression cadre de copie
WsDest.Range("$B:$C").RemoveDuplicates Columns:=1, Header:=xlYes 'Suppression des doublons colonne B
With WsDest.Sort
.SortFields.Clear
.SortFields.Add _
Key:=Range("B2:B" & derl), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
.SetRange Columns("B:C")
.Header = xlYes
.Apply
End With
End Sub
Merci de votre reponse
Cordialement