Bonjour à tous du forum,
je nes sais pas comment on peut supprimer les doublons de la colonne (C3:C500) et copier les données sans doublons dans la même colonne Range("C3").
de supprimer les doublons, cela fonctionne si c'est copié dans une autre colonne p.ex. Range("I3").
Comment modifier le code suivant, pour copier sans les doublons dans la même colonne ?
Sub doublons()
Range("C3:C500").Select
Range("C3:C500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C3"), Unique:=True
somme_montants
End Sub
Sub somme_montants()
Range("C3:C32").Select
Selection.Consolidate Sources:=Array( _
"'C:data_recherche.xls'!A", _
"'C:data_recherche.xls'!B", _
"'C:data_recherche.xls'!C_", _
"'C:data_recherche.xls'!D", _
"'C:data_recherche.xls'!E"), Function:=xlSum _
, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
je nes sais pas comment on peut supprimer les doublons de la colonne (C3:C500) et copier les données sans doublons dans la même colonne Range("C3").
de supprimer les doublons, cela fonctionne si c'est copié dans une autre colonne p.ex. Range("I3").
Comment modifier le code suivant, pour copier sans les doublons dans la même colonne ?
Sub doublons()
Range("C3:C500").Select
Range("C3:C500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C3"), Unique:=True
somme_montants
End Sub
Sub somme_montants()
Range("C3:C32").Select
Selection.Consolidate Sources:=Array( _
"'C:data_recherche.xls'!A", _
"'C:data_recherche.xls'!B", _
"'C:data_recherche.xls'!C_", _
"'C:data_recherche.xls'!D", _
"'C:data_recherche.xls'!E"), Function:=xlSum _
, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
Dernière édition: