chiffres en commun

[ryadus]

Bonjour;

J'ai deux colonnes, contenant chacune plein de chiffres, par exemple:

A B
1789 782
3567 783
1837 1789
2022 10189
3395 2339
7261 3553
7541 3567
10134 5992
10189 10400
10509 10425

Et je veux verifier si entre les deux colonnes il y a des chiffres en commun et lesquels ???

Est ce que c'est possible?

Merci

 

[flo2002]

Bonjour,
si je comprend bien tu cherches à extraire des doublons?
Je pense que l'on doit pouvoir faire ca par macro.
Tu voudrais extraire les données sur une nouvelle colonne?
Je ne suis pas un pro en Vba mais on m'en a tellement expliquer sur des cas similaire que je vais tenter de t'aider.

 

[Jocelyn]

Bonjour le Forum,
Bonjour ryadus,

pour de données en colonne A de A1 à A10 et en colonne B de B1 a B10

en C1 sersair la formule =SI(NB.SI($A$1:$A$10;B1)=0;'';B1)

et l'étirée vers le bas

Jocelyn

oup's bonjour flo2002

edit 2

si tu veux les valeurs en double en colonne C sans trou a partir de C1 et a étirer vers le bas

=SI(ESTERREUR(INDEX($A$1:$A$10;PETITE.VALEUR(SI(NB.SI($B$1:$B$10;$A$1:$A$10)>0;LIGNE($A$1:$A$10));LIGNES($E$1:E1))));'';INDEX($A$1:$A$10;PETITE.VALEUR(SI(NB.SI($B$1:$B$10;$A$1:$A$10)>0;LIGNE($A$1:$A$10));LIGNES($E$1:E1))))

formule Matricielle a valider en appuyant simultanément sur les touche ctrl,majuscule,entrée

Message édité par: jocelyn, à: 26/06/2006 16:34

Message édité par: jocelyn, à: 26/06/2006 16:43

 

[porcinet82]

Salut Ryadus, Flo, Jocelyn,

Une petite proposition par macro qui te compare les colonnes A et B. Elle permet de colorer en rouge les cellules de la colonne B si la valeur est présente dans la colonne A.

Sub test()
Dim i%, k%

For i = 1 To Range('A65536').End(xlUp).Row
    For k = 1 To Range('B65536').End(xlUp).Row
        If Cells(i, 1).Value = Cells(k, 2).Value Then
            Cells(k, 2).Font.Color = vbRed
        End If
    Next k
Next i
End Sub

@+

 

[flo2002]

comme promis, une macro un peu bancale mais qui à l'air de faire son boulot (chez moi elle était assez lente comme meme).
On suppose que C et D sont vide!
Option Explicit
Sub essai()
Dim n As Integer
Dim lign As Integer
Dim col As Collection
Set col = New Collection
For n = 1 To Range('A65536').End(xlUp).Row
On Error Resume Next
col.Add Range('A' & n), CStr(Range('A' & n))
On Error GoTo 0
Next n
lign = 1
For n = 1 To col.Count
Range('C' & lign) = col(n)
lign = lign + 1
Next n


For n = 1 To Range('B65536').End(xlUp).Row
On Error Resume Next
col.Add Range('B' & n), CStr(Range('B' & n))
On Error GoTo 0
Next n
lign = 1
For n = 1 To col.Count
Range('C' & lign) = col(n)
lign = lign + 1
Next n


For n = 1 To Range('C65536').End(xlUp).Row
On Error Resume Next
col.Add Range('C' & n), CStr(Range('C' & n))
On Error GoTo 0
Next n
lign = 1
For n = 1 To col.Count
Range('D' & lign) = col(n)
lign = lign + 1
Next n

End Sub

à mon humble avis on ne peut que la simplifier

PS: je me suis basé sur un fichier télécharger il y a quelque temps déjà!

 

[flo2002]

Dsl Porcinet j'avais pas rafraichit!

ton code est beaucoup plus beau que le mien!

 

[ryadus]

sa à l'air vachement compliqué, je vais testé et voir si sa marche comme je veux.

Merci beaucoup, vous êtes excellent

 

[andré]

Salut,

Si je lis la question : je veux verifier

Une simple petite MFC (mise en forme conditionnelle sous le menu Format) ne serait-elle pas suffisante ?

S'il faut un mot d'explication supplémentaire, n'hésîtes pas.

Â+

 

[ryadus]

Je voulais dire que je voulais tester, et là en testant sa bloque car j'ia d'enorme colonne, j'ai essayé avec un petit exemple sa marche, mais avec de plus grande colonnes je pense qu'il faut attendre pas mal

Merci encore