partie commune de listes

Bonjour,

A B C
XX YY ¢&B2 -----> XXYY
12 21 £&B3 -----> 1221

Est-ce que c'est ce que vous voulez ? le & ( et commercial )

Cordialement,
Koulak Amanpour


"alex" <nospam-a_groppi@yahoo.fr> wrote in message news:<u5VVVPEuDHA.2456@TK2MSFTNGP12.phx.gbl>...

Bonjour à tous,

Voila mon pb :
J'ai des valeurs en colonnes A et B. Je voudrais en colonne C lister
les valeurs qui se trouvent dans A ET dans B...
Comment faire ??
Merci à tous pour vos réponses

Alex

Alain,

On n'a pas eu de feedback mais on considère que notre ami Alex a trouvé son
bonheur. ;-))

Range("C1:C" & L) = _
"=if(isnumber(match(a1," & "$b$1:$b$" & L & ",0)),index(" & "$B$1:$B$" _
& L & ",match(A1," & "$B$1:$B$" & L & ",0)),"""")"

Aussi:
Range("C1:C" & L) = _
"=if(isnumber(match(a1," & "$b$1:$b$" & L & ",0)),a1,"""")"

Salutations,

Daniel M.

Bonjour,

On peut rendre ça plus générique , i.e. qu'on peut passer n'importe quelles
trois plages à ListeValeursCommunes et ça réagit correctement.

' Extrait les doublons entre 2 colonnes
' mais on les note une fois seulement
Sub ListeDoublonsEntre2Plages()
ListeValeursCommunes _
Intersect(Range("A:A"), ActiveSheet.UsedRange), _
Intersect(Range("B:B"), ActiveSheet.UsedRange), _
Range("C1")
End Sub

Sub ListeValeursCommunes(Plage1 As Range, Plage2 As Range, PlageOUT As Range)
Dim Plage2_ As String, A_ As String, R_ As String

Plage2_ = Plage2.Address
A_ = Plage1(1, 1).Address(1, 0) ' Adr ligne Absolue 1ère cell de Plage1
R_ = Plage1(1, 1).Address(0, 0) ' Adresse Relative 1ère cell de Plage1

With PlageOUT.Resize(Plage1.Rows.Count, 1) ' endroit choisi pour résultats
.Formula = "=IF((ISNUMBER(MATCH(" & R_ & "," & Plage2_ & ",0))*COUNTIF(" & _
A_ & ":" & R_ & "," & R_ & ")=1)," & R_ & ","""")"
.Value = .Value
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, header:=xlNo
End With
End Sub

Salutations,

Daniel M.

On n'a pas eu de feedback mais on considère que notre ami Alex a trouvé son
bonheur. ;-))

On va dire ça comme ça et.... s'en satisfaire ;-)
AV