Besoin d'une Macro pour recopier des cellules

aliasbleu · 28 Mars 2011

Bonjour,

Alors j'ai un fichier avec des références en colonne A qu'on retrouve plusieurs fois car en colonne B la valeur est différente.

Je souhaiterai uniquement extraire dans une autre feuille uniquement la référence en colonne A mais SANS doublon.

J'espère que vous pourrez m'aider.

Par avance merci

Efgé · 28 Mars 2011

Re : Besoin d'une Macro pour recopier des cellules

Bonjour aliasbleu,
Une proposition par macro (dans le code du bouton)
Comme tu parles de référence en colonne A et que la colonne A contient des quantités, j'ai récupérer les données en colonne C (3). A toi d'adapter.

VB:

Private Sub CommandButton1_Click()
Dim Dico As Object, i&, Col&
Set Dico = CreateObject("Scripting.Dictionary")
Col = 3 'Changer le 3 par le numéro de la colonne ou sont les données
With Sheets("Feuil1")
    For i = 2 To .Cells(Rows.Count, Col).End(xlUp).Row
        Dico(.Cells(i, Col).Value) = .Cells(i, Col).Value
    Next i
End With
Columns(1).ClearContents
Cells(2, 1).Resize(Dico.Count, 1) = Application.Transpose(Dico.Keys)
End Sub

Cordialement

Besoin d'une Macro pour recopier des cellules

aliasbleu

Guest

Pièces jointes

Efgé

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Besoin d'une Macro pour recopier des cellules

aliasbleu

Guest

Pièces jointes

Efgé

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency