Recherche doublon qui ne marche pas sur des chiffres

Bonjour

j'ai un code qui marche bien avec des colonnes ayant au moins des lettres dans les cellules mais quand c'est seulement des chiffres le code sur le doublon ne marche pas .

voici le fichier joint

 Sub aff_Doublons_2col_con()
 'etape1
  Set d1 = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  Set plageA = Range("b2", [b65000].End(xlUp))
  'Sheets("volt").
  Set plageI = Range("j2", [j65000].End(xlUp))
  [g:h].Interior.ColorIndex = xlNone
  [g:h].EntireColumn.ClearContents
  For Each c In plageA
    If c <> "" Then d1(c.Value) = ""
  Next c
  For Each c In plageI
    If d1.exists(c.Value) Then c.Interior.ColorIndex = 3
    If c <> "" Then
    d2(c.Value) = ""
    End If
    If Not d1.exists(c.Value) Then
      j = j + 1
      If Len(c.Text) > 0 Then Cells(j, c.Column - 3).Value = c.Value
      'remplir colonne j
    End If
  Next c
  For Each c In plageA
    If d2.exists(c.Value) Then c.Interior.ColorIndex = 4
  Next c
  Range("h3", [k65000].End(xlUp)).Sort Key1:=Range("h2"), Order1:=xlAscending
 End Sub

franchement là je suis a court d'idée.

merci pour votre aide

Bonsoir Alex3232 le forum

ton, fichier en retour

Si tu veux comparer des choux et des carottes ce n'est pas pareil

a+

Papou

trop fort papou.je crois par contre que tu as changer que

If Len(c) > 0

je croyait que len compte le nombre caractere d'une chaine.je ne comprends rien

Bonjour Alex3232 le forum

bah maintenant tu peux aller sur ma réponse et cliquer sur résolu!!!

de plus tu pourras aussi faire la même chose sur XLD puisque tu as fais la même demande là-bas, tu as d'ailleurs eu la même réponse !!!! (correction=0)

a+

Papou

je suis désolé d'avoir poster 2 fois .je suis un petit nouveau.je ne ferais plus la prochaine fois .

1-j'aimerais quand meme une explication de ce que tu as fait car ca a l'air de marcher sur mon fichier test envoyé sur le forum

et quand je fais sur mon vrai fichier ca ne marche pas .

en plus j'aime bien comprendre et ne pas copier betement le code

Re Bonjour Alex3232 le forum

quand je t'ai dit ne pas comparer des choux et des carottes, tu avais dans ton fichier la colonne A de mémoire qui était au format texte et l'autre colonne qui était au format numérique

si tu veux comparer, ou tu converti ton texte en nombre, ou tes nombres en texte mais que les deux colonnes utilisent le même format

a+

Papou

oui ca marche.merci.par contre je ne vois pas ou il faut cliquer résolu

Re alex3232 le forum

.par contre je ne vois pas ou il faut cliquer résolu

tu vois que tu as trouvé

a+

Papou

désolé quand je teste sur vrai fichier ca ne marche qu'a moitié

exemple colonne j ligne 11 =>4817 est doublon mais ca met pas en rouge

de plus j'aimerais directement parametrer le format dans mon code vba ce serait peu être plus simple

il me semble qu'il faut rajouter ca:

.NumberFormat = "@"

Bonjour,

sans aller en profondeur, ceci peut être ...

Sub aff_Doublons_2col_con()
'etape1
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Set plageA = Range("b2", [b65000].End(xlUp))
'Sheets("volt").
Set plagei = Range("j2", [j65000].End(xlUp))
plagei.Interior.ColorIndex = xlNone
[g:h].Interior.ColorIndex = xlNone
[g:h].EntireColumn.ClearContents
For Each c In plageA
   If CStr(c) <> "" Then d1(c.Value) = ""
Next c
For Each c In plagei
   If d1.exists(CStr(c)) Then c.Interior.ColorIndex = 3
   If CStr(c) <> "" Then
      d2(c.Value) = ""
   End If
   If Not d1.exists(c.Value) Then
      j = j + 1
      If Len(CStr(c)) > 0 Then Cells(j, c.Column - 3).Value = c.Value
'remplir colonne j
   End If
Next c
For Each c In plageA
   If d2.exists(c.Value) Then c.Interior.ColorIndex = 4
Next c
Range("h3", [k65000].End(xlUp)).Sort Key1:=Range("h2"), Order1:=xlAscending
End Sub

merci ca a l'air de marcher meme si j'aimerais plutot utiliser la synthaxe avec

 .NumberFormat = "@"

qui lui ne semble pas pas marcher