Selection.PasteSpecial sans doublon

[Hoareau]

Bonjour

Selection.PasteSpecial

existe t il un moyen de copier sans doublons


sans copier dans une autre feuille et récupérer par la suite


merci

 

[kjin]

Re : Selection.PasteSpecial sans doublon

Bonsoir,
Copier sans doublon...euh oui mais encore ! 🙄
A+
kjin

 

[Hoareau]

Re : Selection.PasteSpecial sans doublon

Après la selection de c qui est une liste de noms dont je voudrais enlever les doublons avant de recopier dans l'autre feuille




Sub Recup_Liste()


Sheets("Transfert").Select

Set c = Range("B6", Range("B6").End(xlDown))


c.Select

With Selection
.Interior.Color = 40
.Copy

End With


Sheets("Modif Noms (2)").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[david84]

Re : Selection.PasteSpecial sans doublon

Bonjour,
si tu as excel 2007 : onglet données puis supprimer les doublon
Versions antérieures : voir le filtre élaboré
Si tu veux une formule, il faut que tu nous dises le type de valeurs qu'il y a dans ta colonne
Si tu veux une macro, tu peux tjrs l'enregistrer et lui affecter un bouton.
Cordialement

 

[Hoareau]

Re : Selection.PasteSpecial sans doublon

Doublon d'excel copie sur place, je ne veux pas toucher à ma colonne d'origine

Vais essayer de l'incorporer


Sub PlageSansDoublons()
Dim maplage As Range, Depart As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set maplage = ActiveSheet.Range(Cells(1, 11), Cells(1, 11).End(xlDown))
maplage.AdvancedFilter xlFilterCopy, , maplage.Offset(, 1).Resize(1,
1), True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[kjin]

Re : Selection.PasteSpecial sans doublon

Re,

Sub Recup_Liste()
Dim d As Object, T As Variant, i As Long
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Transfert")
    T = Range("B6", Range("B6").End(xlDown)).Value
End With
For i = LBound(T) To UBound(T)
    If Not d.exists(T(i, 1)) Then d.Add T(i, 1), T(i, 1)
Next
T = d.items
With Sheets("Modif Noms (2)")
    .Range(.Cells(2, 2), .Cells(UBound(T) + 2, 2)) = Application.Transpose(T)
End With

End Sub

A+
kjin

 

[Hoareau]

Re : Selection.PasteSpecial sans doublon

Impeccable

Au départ, je pensais à une option à mettre avec Selection.PasteSpecial

Je croyais la syntaxe plus simple, je m'appercois qu'il faut avoir une connaissance globale du langage pour faire ce qui semple parfois simple.

Ce qui semble compliqué à réaliser, c'est fait avec deux mots.

merci

 

[Guest]

Re : Selection.PasteSpecial sans doublon

Bonjour tout le monde,

A partir de l'exemple donné plus haut (post #5):

Sub Extraction()
With ActiveSheet
    .Range(.Cells(1, 11), .Cells(1, 11).End(xlDown)).AdvancedFilter _
        Action:=xlFilterCopy, _
        copyToRange:=.Cells(1, 12), _
        Unique:=True
End With
End Sub

A toi de changer les plages source et destination, quelle peuvent être sur des feuilles différentes.

copyToRange:= Sheets("FeuilleDestination").range("A1)"

A+

 

[Hoareau]

Re : Selection.PasteSpecial sans doublon

merci
je vais essayer