Discussion :

[BRUNO71]

Bonjour à vous ,

je reviens sur un sujet posé je pense des centaines de fois, mais là je recherche une piste pour :

Pour comparer la colonne A de la feuil1 à la colonne D de la feuil2 et noter (oui si on trouve le double) dans la colonne E, face à la cellule concernée de la colonne A feuil1....

Merci

[riaolle]

Bonjour,

Dans E1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTERREUR(EQUIV(A1;Feuil2!B:B;0));"KO";"OUI")

[Pierre Fauconnier]

Salut.

Que veux-tu dire par "si on trouve le double"?

Si tu souhaites mentionner en regard de la colonne A qu'une valeur se trouve dans la colonne D d'une autre feuille (il ne s'agit pas de double ou de doublon), tu peux utiliser NB.SI.ENS().

Tu as intérêt, en XL2007 et suivants, à utiliser des tables de données qui permettent de limiter plus facilement les plages de recherche.

Il faut absolument éviter des EQUIV() et autres fonctions de recherche ou de calcul sur des colonnes entières.

Voici un exemple avec NB.SI.ENS()

[Menhir]

Il y a de multiples solutions pour faire ça.

Perso, je trouve que le plus simple est d'utiliser un NB.SI().
Ne pas oublier de mettre la zone de recherche en références absolues (avec des $) si on veut pouvoir copier la formule sur toutes les lignes.

[BRUNO71]

Bonjour à tous,

Merci...
En fait, pour faire simple....
Feuil1 colonne B...16000 numéros de tel
Feuil2 colonne D...peut être 11000 numéros de tél...

Probablement qu'il y est un seul numéro qui correspond dans la feuil1...mais il faut le trouver.....

j'aimerais que dans la colonne E de la feuil1 sur la même ligne et bien (ok) il est là...

Je viens d'essayer et ça ne marche pas...avec =SI(ESTERREUR(EQUIV(A1;Feuil2!B:B;0));"KO";"OUI")

merci à vous

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Sub DoublonsEntre2ColonnesNoLignesCommentaire()
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  Set d = CreateObject("Scripting.Dictionary")
  couleurs = Array(3, 4, 6, 7, 8, 15, 17, 20, 22, 24, 26, 27, 28, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 50, 53)
  Set plage1 = f1.Range("a2:a" & f1.[a65000].End(xlUp).Row)
  Set plage2 = f2.Range("d2:d" & f2.[d65000].End(xlUp).Row)
  plage1.ClearComments
  plage2.ClearComments
  plage1.Interior.ColorIndex = xlNone
  plage2.Interior.ColorIndex = xlNone
  For Each c In plage1
    d.Item(c.Value) = d.Item(c.Value) & c.Row & "-"
  Next c
  For Each c In plage2
    If d.exists(c.Value) Then
     If c <> "" Then
       nocoul = (Application.Match(c.Value, d.keys, 0)) Mod UBound(couleurs)
       c.Interior.ColorIndex = couleurs(nocoul)
       a = Split(d.Item(c.Value), "-")
       For k = LBound(a) To UBound(a) - 1
         tmp = a(k) - plage1.Row + 1
         plage1(tmp).Interior.ColorIndex = couleurs(nocoul)
       Next k
       c.AddComment
       temp = CStr(d.Item(c.Value))
       c.Comment.Text Text:=Left(temp, Len(temp) - 1)
       c.Comment.Shape.OLEFormat.Object.Font.Size = 7
       c.Comment.Shape.Left = c.Offset(, 1).Left + 10
       c.Comment.Shape.TextFrame.AutoSize = True
       c.Comment.Visible = True
      End If
     End If
   Next c
   '--
   Set d = CreateObject("Scripting.Dictionary")
   For Each c In plage2
     d.Item(c.Value) = d.Item(c.Value) & c.Row & "-"
   Next c
   For Each c In plage1
    If d.exists(c.Value) Then
       c.AddComment
       temp = CStr(d.Item(c.Value))
       c.Comment.Text Text:=Left(temp, Len(temp) - 1)
       c.Comment.Shape.OLEFormat.Object.Font.Size = 7
       c.Comment.Shape.Left = c.Offset(, 1).Left + 10
       c.Comment.Shape.TextFrame.AutoSize = True
       c.Comment.Visible = True
     End If
   Next c
End Sub

Boisgontier

[Pierre Fauconnier]

Bruno71,

Il me semble que ma solution fait ce que tu souhaites. Tu peux même le faire en mise en forme conditionnelle ( http://fauconnier.developpez.com/tut...onditionnelle/)

Il n'est nul besoin de code vba pour cela, outre le fait que balancer du code sans aucune explication ne sert pas grand-chose, à mon avis.

[Menhir]

Tu mets dans une cellule vide de la première ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI(Feuil2!B:B;A1)>0;"NOK";"-")

Tu recopies cette cellule vers le bas autant que tu as de lignes renseignées.
Tu places un filtre sur l'ensemble.
Tu indiques que tu ne veux afficher que les lignes contenant "NOK".

Tu auras toutes tes lignes problématiques et uniquement celles là.

Ca prend certainement plus de temps à expliquer qu'à faire.

[BRUNO71]

Merci à tous,

La macro VBA ne fonctionnait pas.....après avoir creusé un peu, ça fonctionne très bien.
Je pense que mon fichier excel n'affichait pas des valeurs numérique...probablement issu d'une BDD ...

J'ai recopié cette valeur et ça marche...

Merci à vous

16000 num....c'est mieux qu' a la main...