numéros en commun

[coulou]

Bjr ,je voudrais savoir s'il existe une formule permettant de mettre en commun des numéros qui sont sur deux lignes
en une seule ligne je mets un petit fichier merci d'avance pour votre collaboration.

 

[gilbert_RGI]

Re : numéros en commun

bonjour

comme ceci peut-être

 

[Benstach]

Re : numéros en commun

Bonjour,

Essaie avec l'objet dictionnaire.

Voici un exemple ça doit marcher

Sub EnCommun()
Dim c As Range

    'chargements des numéro de NOS1 dans le dictionnaire
    Set liste = CreateObject("scripting.dictionary")
    For Each c In Range("C6:I6")
        If Not liste.exists(c.Value) Then liste(c.Value) = c.Value
    Next c
    
    a = 0
    For Each c In Range("C7:I7") 'Verifie les valeur du NOS2
        If liste.exists(c.Value) Then 'Existe ou non dans le NOS1
            Range("C9").Offset(0, a) = c.Value 'Ecrit dans la ligne 9 si il est commun
            a = a + 1
        End If
    Next c
End Sub

 

[Modeste geedee]

Re : numéros en commun

Bonsour®
ou encore comme çà

 

[job75]

Re : numéros en commun

Bonjour à tous,

Formule matricielle en C8 :

=SIERREUR(INDEX(6:6;PETITE.VALEUR(SI(NB.SI($C7:$I7;$A6:$I6);COLONNE($A:$I));COLONNES($C:C)));"")

A valider par Ctrl+Maj+Entrée et tirer vers la droite.

Fichier joint.

A+

 

[BOISGONTIER]

Re : numéros en commun

Bonjour,

=communs(C6:I6;C7:I7)

JB

 

[coulou]

Re : numéros en commun

Merci à vous super génial .

 

[gosselien]

Re : numéros en commun

après les autres, mais pour les compter seulement...

=SOMMEPROD(NB.SI(C6:I6;C7:I7))