Code VBA pour doublons

Bonsoir

Je cherche une macro pour détecté les doublons dans 6 colonnes différentes et entre ces colonnes.

Le fichier joint

merci

M07

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour

Merci pour le retour, super

Un soucis : Erreur d'exécution 429

sur la ligne : Set dico = CreateObject("Scripting.Dictionary") ????

D'après que je vois ( je n'ai pas pu essayer à cause de l'erreur) le doublon ne se détecte pas automatiquement. Juste ?

Moi je souhaiterais que dès qu'un même nom apparaisse, les cellules concernées se colorent automatiquement...

@plus

merci

M07

Utilises-tu un Mac ?

Cela expliquerait le bug

Bye !

Bonjour

En effet, je suis sur mac. Je viens d'essayer avec un autre PC et ça fonctionne. Super

Par contre, les cellules restent coloriées même une fois les noms en double enlevés.

D'autre part, serait il possible que la couleur du doublon se mette automatiquement sans passer par le bouton ? En effaçant le nom en double , la couleur s'enlèverait.

En tous les cas, merci et bonne journée

M07

Bonjour

Nouvelle version qui devrait marcher aussi bien sur Mac que sur PC.

Bye !

Bonjour

Déjà....merci beaucoup

Ça fonctionne en effet sur les deux machines....super

Par contre quand je supprime un doublon, le nom et la couleur de la cellule s'enlève, mais dans la cellule du premier nom la couleur reste ??

Je souhaiterais limiter les recherches de doublons jusqu'à la ligne 74 et non sur toute la colonne.

Bon début de soirée

Merci

M07

Nouvelle version.

Bye !

Bonjour

A nouveau un grand merci. Ça fonctionne merveille.

J' avais juste oublié trois lignes qui devaient rester grisées. Est ce qu'il est possible de neutraliser les lignes 21, 33, 38 facilement ?

Encore un grand merci

Bonne aprem

M07

Marius07 a écrit :

J' avais juste oublié trois lignes qui devaient rester grisées

Bye !

Bsr

Oui , en effet elles ne l'étaient pas. Je les ai grisé après mais je ne savais pas que la macro doublon allait supprimer le coloriage de ces cellules.....

Cdt

M07

Bonjour

Nouvelle version.

Bye !

Bonjour

Une nouvelle fois , un grand merci ....c'est génial

Juste une question. Lorsque je clique par exemple sur E21 puis E22, les couleurs de toutes les colonnes disparaissent. Je suis obligé de cliquer à nouveau sur des cellules pour les couleurs reviennent.

Est ce normal ?

Encore merci et très belle journée

M07

Bonjour toutes et tous en ce week-end

coucou Gmb

Feuil1 dans Worksheet mettre un apostrophe devant '' ' plage.Interior.Color = xlNone

normalement çà fonctionne pour les couleurs de tes colonnes qui disparaissent.

Private Sub Worksheet_Change(ByVal Target As Range)

    Set plage = Range("C14")
    For j = 3 To 18 Step 3
        Set plage = Union(plage, Range(Cells(14, j), Cells(74, j)))
    Next j
   '''' plage.Interior.Color = xlNone
    If Not Intersect(Target, plage) Is Nothing Then
        Call Doublons
    End If
End Sub

ci-joint

crdlt,

André

Bonjour à tous

Bonjour André

Une variante pour la correction :

Private Sub Worksheet_Change(ByVal Target As Range)

Set plage = Range("C14")

For j = 3 To 18 Step 3

If Target.Column = j + 1 Or Target.Column = j + 2 Then Exit Sub

Set plage = Union(plage, Range(Cells(14, j), Cells(74, j)))

Next j

plage.Interior.Color = xlNone

If Not Intersect(Target, plage) Is Nothing Then

Call Doublons

End If

End Sub

Bye !

Bonjour gmb, bonjour André

Merci pour ces deux retours.

J'ai préféré la solution de gmb car celle d'André faisait apparaître un petit "bug "

Je continue mon apprentissage .....

Merci encore et très belle journée.

M07

Bjr

Un problème que je n'arrive pas à solutionner.

Le doublon fonctionnant, j'ai une MFC qui" bug" à cause du glissé des valeur.

Dois je abandonné la MFC au profit d'un code VBA, c'est la question que je me pose ?

Cdt

M07

Si tu fais glisser une cellule quelconque dans une plage où les cellules ont une MFC celle ci ne marchera plus !

Bye !

Bonjour

Toujours sur mon projet ....dur dur !!!

Une solution a été trouvée pour éviter la MFC, mais le détecteur de doublon ne fonctionne plus correctement ainsi que la récupération des données lorsque plusieurs valeurs sont glissées en même temps.

Je joins le fichier au cas où ?

Merci et bonne fin de journée

M07