Discussion :

[lafafmentvotre]

Bonjour

J'utilise ce code pour afficher les doublons de grosses listes Excel.

J'aimerais le modifier afin que les valeurs des cellules dans la colonne I passent à 1 lorsqu'un doublon est détecté.

Est ce possible ?

Merci par avance pour votre aide

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
Option Explicit
Sub Affich_Doublons_I()
Dim plage As Range
Dim Cel As Range
Dim L As Integer, lig As Integer, col As Integer, i As Byte
 
Application.ScreenUpdating = False
L = ActiveSheet.Range("A10000").End(xlUp).Row
 
Set plage = ActiveSheet.Range("A2:A" & L)
For Each Cel In plage
lig = Cel.Row - 1
col = 8
If Application.CountIf(ActiveSheet.Range("A2:A" & lig), Cel) > 0 Then Cel.Interior.ColorIndex = 6
Next Cel
Application.GoTo Reference:="R2C1"
Application.ScreenUpdating = True
End Sub

[casefayere]

Bonjour le forum, lafafmentvotre,

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
Option Explicit
Sub Affich_Doublons_I()
Dim plage As Range
Dim Cel As Range
Dim L As Integer, lig As Integer, col As Integer, i As Byte
 
Application.ScreenUpdating = False
L = ActiveSheet.Range("A10000").End(xlUp).Row
 
Set plage = ActiveSheet.Range("A2:A" & L)
For Each Cel In plage
lig = Cel.Row - 1
col = 8
If Application.CountIf(ActiveSheet.Range("A2:A" & lig), Cel) > 0 Then Cel.Interior.ColorIndex = 6
cel.offset(0,9) = 1 'regardes et vérifies cette ligne
Next Cel
Application.GoTo Reference:="R2C1"
Application.ScreenUpdating = True
End Sub

[lafafmentvotre]

Hello

Voilà le script que j'avais récupéré (il fonctionne) et modifié :

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
Option Explicit
Sub ColorerDoublons()
Dim plage As Range
Dim Cel As Range
Dim L As Integer, lig As Integer, i As Byte
 
Application.ScreenUpdating = False
L = Sheets("Exemple").Range("B10000").End(xlUp).Row
'Coloration des doublons
Set plage = Sheets("Exemple").Range("B11:B" & L)
For Each Cel In plage
lig = Cel.Row - 1
If Application.CountIf(Sheets("Exemple").Range("B10:B" & lig), Cel) > 0 Then Cel.Interior.ColorIndex = 6
Next Cel
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Ais-je mal modifié le code en sachant que mes valeurs commencent en A2 (la ligne 1 comportant les libellés de colonnes).

Merci pour l'aide

[laetitia]

bonjour le fil le forum les doublons sont senses etre sur la colonne a??? ta boucle par sur la colonne b!!!

[lafafmentvotre]

Hello

Le premier code est celui que j'ai modifié pour utiliser sur la colonne A.
Le second code est celui que j'ai récupéré pour utiliser la colonne B.

C'est le code A qui ne fonctionne pas.

Merci par avance pour le coup de main.

[laetitia]

re ce type de code ne repere pas les doublons tu compare seulement avec la cellule dessus je te propose un code recherche les doublons sur la colonne a passe en jaune plus 1sur la colonne i
par contre si tu veus traiter des lignes de doublons il faut adapter differament

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
 Dim c As Range, M As Object, L As Long
  Application.ScreenUpdating = False
  Set M = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2:a" & Range("a65536").End(xlUp).Row)
  L = c
  If Not M.Exists(L) Then
  M.Add L, L
  Else
  c.Interior.ColorIndex = 6: c.Offset(0, 8) = 1
  End If: Next c
 End Sub

[lafafmentvotre]

Hello merci pour l'aide mais il me met un message d'erreur :

Incompatibilité de type

[laetitia]

re bizarre j ai pas ce souci tu l as ecrit tel quel ou tu as rajoute quelque chose!!
si tu as rien rajoute change les variables pour voir

Code :

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

Dim c As Variant, M As Object, L As Variant

[lafafmentvotre]

Hello

J'ai pris ton code tel quel.

Et avec tes dernières modifications, cela ne fait plus rien du tout :
pas d'erreur mais pas de coloration


Bizarre

[laetitia]

re, tu peus zipper une partie de ta feuille pour voir sans donnees confident....

[Qwazerty]

SAlut
Pourquoi te casser la tête avec du vba? Excel reste un tableur tout de même
en imaginant que tes donnés se trouvent en colonne A

Code :

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

=SI(NB.SI(A:A;"="&A2)>1;"1";"")

Tu colles cette formule en ligne 2 sur la colonne ou tu souhaite avoir tes "1" affichés sur les chiffres a doublon.Puis tu étant la formule jusqu'en bas de ton tableau (au pire si le tableau est vraiment grand tu le fais via vba, mais le code sera bien plus simple.

[Edit]
encore plus simple avec les MFC
Tu sélectionnes toute ta colonne et tu ajoutes ça dans la Mise en Forme Conditionnelle.

Code :

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

=ET(NON(ESTVIDE(C1));NB.SI(C:C;"="&C1)>1)

Les doublons passent dans la couleur que tu auras choisi.
[/Edit]
A++
Qwaz