trier une liste par rapport à une autre liste

[rudddy]

Salut à tous,

je cherche une idée pour gérer des listes d'abonnés et de désabonnés

J'ai mis dans la colonne A la liste de mes abonnés et après l'envoi de ma newsletter, je mets dans la colonne B ceux qui se sont désinscrits

Pour l'envoi du mois suivant, je voudrais faire le tri et en gros : existe-t-il un moyen de faire :

A - B

???

merci à vous

 

[Jocelyn]

Re : trier une liste par rapport à une autre liste

Bonjour le Forum
Bonjour rudddy,

Un petit essai par formule

Jocelyn

 

[rudddy]

Re : trier une liste par rapport à une autre liste

Bonjour le Forum
Bonjour rudddy,

Un petit essai par formule

Jocelyn

merci bcp mais j'ai pas très bien compris comment mettre en place la formule.

faut-il que je tape cela :

=INDEX(Cola;MIN(SI((abo<>"")*(NB.SI($D$2:D2;abo)=0)*(NB.SI(nonabo;abo)=0);LIGNE(abo))))&""

dans chaque ligne ???

 

[Hervé]

Re : trier une liste par rapport à une autre liste

bonjour ruddy, salut jocelyn

un essai en vba :

Dim c As Range, plage As Range
Dim b As Boolean

Columns("c").Clear

For Each c In Range("a1:a" & Range("a65536").End(xlUp).Row)
    If Columns("b").Find(c) Is Nothing Then
        If Not b Then Set plage = c: b = Not b Else Set plage = Union(plage, c)
    End If
Next c

plage.Copy Range("c1")

salut

 

[rudddy]

Re : trier une liste par rapport à une autre liste

bonjour ruddy, salut jocelyn

un essai en vba :

Dim c As Range, plage As Range
Dim b As Boolean

Columns("c").Clear

For Each c In Range("a1:a" & Range("a65536").End(xlUp).Row)
    If Columns("b").Find(c) Is Nothing Then
        If Not b Then Set plage = c: b = Not b Else Set plage = Union(plage, c)
    End If
Next c

plage.Copy Range("c1")

salut

merci de ta réponse !

mais comment intégrer cela avec office 2007 ???

merci

 

[rudddy]

Re : trier une liste par rapport à une autre liste

bonjour ruddy, salut jocelyn

un essai en vba :

Dim c As Range, plage As Range
Dim b As Boolean

Columns("c").Clear

For Each c In Range("a1:a" & Range("a65536").End(xlUp).Row)
    If Columns("b").Find(c) Is Nothing Then
        If Not b Then Set plage = c: b = Not b Else Set plage = Union(plage, c)
    End If
Next c

plage.Copy Range("c1")

salut

super ca marche merci bcp