extraction donnees commune

[paskikic]

bonjour,

J expose mon probleme ,je cherche à extraire les chiffre commun a deux liste voir exemple ci joint sachant que la liste varie de 5 a 28 n°.
( si le code est en VBA ca m arrancgerais car je pourrais l intergrer a mon code existant )


merci a vous les Xl Nautes 😎

 

[BOISGONTIER]

Re : extraction donnees commune

Bonjour,

-sélectionner W4:Y4
=communs(B4:H4;J4:O4;Q4:U4)
-Valider avec maj+ctrl+entrée

http://boisgontierjacques.free.fr/fichiers/Cellules/FonctionCommuns3.xls

Avantages d'une fonction UDF:
-Utilisable comme une fonction standard par une personne qui ne connaitpas VBA
-Pas besoin de modifier le code si on déplace les données
-Réutilisable

Function Communs(tab1, tab2, tab3)
 Set d1 = CreateObject("Scripting.Dictionary")
  For Each c In tab1
    If Not d1.Exists(c.Value) Then d1(c.Value) = ""
  Next c
  Set d2 = CreateObject("Scripting.Dictionary")
  For Each c In tab2
    If c.Value <> "" And d1.Exists(c.Value) Then
      If Not d2.Exists(c.Value) Then d2(c.Value) = ""
    End If
  Next c
  Set d3 = CreateObject("Scripting.Dictionary")
  For Each c In tab3
    If c <> "" And d2.Exists(c.Value) Then
      If Not d3.Exists(c.Value) Then d3(c.Value) = ""
    End If
  Next c
  n = Application.Caller.Columns.Count
  If n < d3.Count Then
    Communs = "Selection insuffisante"
  Else
    Dim temp(): ReDim temp(1 To n)
    i = 0
    For Each c In d3.keys
      i = i + 1: temp(i) = c
    Next
    Communs = temp
  End If
End Function

JB

 

[pierrejean]

Re : extraction donnees commune

Bonjour à tous

Une autre version

 

[paskikic]

Re : extraction donnees commune

bonjour,

Un grand merci a toi pierrejean
j ai jete un oeil a ton code et la ........ je vais chercher a le comprendre mais la priorite c est que tu as parfaitement repondu a mes attentes encore merci a toi

On peut toujour compter sur un Xlnautes... par les temps qui court MERCI A VOUS TOUS😎

 

[paskikic]

Re : extraction donnees commune

rebonsoir pierrejean

j ai un petit souci quand je met un chriffre superieur a 9 il ne memet que les unites

ex : marc 1 2 9 14 ------- 6 14 9 resultat 14 9 il me met 4 9

et moi je bloque car ton reste un peu extra terressetre

merci de ton aide

 

[pierrejean]

Re : extraction donnees commune

Re

Avec toutes mes excuses !!

 

[paskikic]

Re : extraction donnees commune

re bonjour,
ya pas d excuses a avoir cest moi qui te remercie, amplement de passer un peu de temps pour me sortir des tracas..

encore merci et vive excel-download ---- et les XLnautes