Comparer 2 tableaux

[patate38]

Bonjour à tous,
Je voudrais comparer des chiffres et calculer ceux qui sont identiques. Voir fichier.
Merci de votre aide
Regarde la pièce jointe Comparer 2 tableaux.xls

 

[job75]

Re : Comparer 2 tableaux

Bonjour patate38, CISCO,

CISCO tu continues à t'accrocher à cette histoire de 2 chiffres alors que je t'ai dit que notre ami s'était mal exprimé.

Il voulait simplement dire qu'on étudiait les doublons à partir de 2 nombres par ligne, ce qui est clair sur le tableau des résultats.

Maintenant voici une importante amélioration de mon code VBA dans ce fichier (4) :

Function NbIdent(vecteur As Range, r As Range, pos)
Dim a(), i, compte, c
pos = pos 'matrice
ReDim a(1 To UBound(pos, 2))
For i = 1 To UBound(pos, 2)
  pos(1, i) = Val(pos(1, i))
  If pos(1, i) = 0 Then a(i) = ""
Next
On Error Resume Next
For Each r In r.Rows
  compte = 0
  For Each c In vecteur
    compte = compte + Application.CountIf(r, c)
  Next
  i = Application.Match(compte, pos, 0)
  a(i) = a(i) + 1
Next
NbIdent = a 'vecteur ligne
End Function

La fonction renvoie maintenant une matrice (vecteur ligne).

On l'utilise dans la feuille en sélectionnant AD3:AJ3 et en entrant dans cette plage cette formule :

=NbIdent($A3:$Z3;$C$22:$J$25;AD$1:AJ$1)

que l'on valide matriciellement par Ctrl+Maj+Entrée.

Le calcul est 4 fois plus rapide pour les 5 lignes 3 5 7 9 11 des formules :

- fichier (3) => 35 millièmes de seconde

- fichier (4) => 9 millièmes de seconde sur Win XP - Excel 2003.

Ce sera utile sur de grands tableaux.

A+

 

[CISCO]

Re : Comparer 2 tableaux

Bonjour

Bonjour patate38, CISCO,

CISCO tu continues à t'accrocher à cette histoire de 2 chiffres alors que je t'ai dit que notre ami s'était mal exprimé.

Il voulait simplement dire qu'on étudiait les doublons à partir de 2 nombres par ligne, ce qui est clair sur le tableau des résultats.

A+

Si c'est ça, ce n'est vraiment pas la même musique, et un SOMMEPROD(1*(NB.SI($C24:$J24;$A$22:$Z$22)>0))-1 suffisait...

@ plus

 

[job75]

Re : Comparer 2 tableaux

Re,

Si c'est ça, ce n'est vraiment pas la même musique, et un SOMMEPROD(1*(NB.SI($C24:$J24;$A$22:$Z$22)>0))-1 suffisait...

Pour moi le problème est de remplir le tableau AD3:AJ11 (mon dernier fichier), on ne peut pas le faire avec SOMMEPROD.

A+

 

[patate38]

Re : Comparer 2 tableaux

Bonsoir à tous,
Beaucoup de proposition depuis hier. Je vais étudier tout ça, je vous en remercie.
Pas toujours facile d'expliquer ce qu'on veut.
Bien à vous
@+

 

[job75]

Re : Comparer 2 tableaux

Re,

Pas toujours facile d'expliquer ce qu'on veut.

D'accord mais quand on vous montre ce qui ne va pas vous pourriez préciser non ?

Depuis le début CISCO cogite sur votre histoire de 2 "chiffres"

Bonne fin de soirée et A+