doublons

[eutrophisation]

Bonjour

L'appetit vient en mangeant...On m'a proposé ce programme au niveau du forum qui identifie les doublons sur plusieurs lignes qui m'a donné entierement satisfaction. J'aurais aimé modifié et ajouter des options.
1. Au lieu que ce soit le format qui se colore ce serait la police.
2. Est il possible de regrouper les doublons soit dans la meme feuille et dans une autre feuille.
LE NOMBRE DE LIGNE EST DE 1000 ET CELUI DES COLONNES 200
Enfin avec un fichier dont les feuilles sont protegées.
Je tiens surtout à vous remercier à ce que vous faites.
Salutations sportives
Ci joint fichier

 

[Staple1600]

Re : doublons

Bonjour

Pour le 1, tu aurais pu trouver en utilisant l'enregistreur de macros

Sub Macro1()
Selection.Font.Color = 255
End Sub

Donc dans ton code, remplacer

Plage1.Interior.ColorIndex = Couleur
Plage2.Interior.ColorIndex = Couleur

par

Plage1.Font.ColorIndex = Couleur
Plage2.Font.ColorIndex = Couleur

PS: quelques changements dans les déclarations

Dim i&, j&, ColMin&, ColMax&, Couleur&, Plage1 As Range, Plage2 As Range

 

[eutrophisation]

Re : doublons

Merci
Est il possible de regrouper les doublons une fois identifiés par la couleur de la police.

 

[Staple1600]

Re : doublons

Re


Avec Excel 2010, on peut filtrer par couleur (sans macros)

Avec Excel 2003, je pense qu'il faut le faire par macro.


EDITION: bonjour pierrejean

 

[pierrejean]

Re : doublons

Bonjour eutrophisation

Salut Staple

Un debut pour le 1 , un tantinet plus rapide (et plus complet)
Pour le 2 je sollicite un delai

 

[pierrejean]

Re : doublons

Re

Le meme avec report des doublons en Feuil2
(plus modif : plus de couleur blanc/sur fond blanc :lignes 9 et 16)

 

[eutrophisation]

Re : doublons

Super un grand merci

 

[eutrophisation]

Re : doublons

Je remercie infiniment votre générosité quant à l’écoute de mes préoccupations. Je voudrais apporter quelques modifications dans ce que vous m’avez proposé comme programme pour identifier et regrouper les doublons. J’ai omis de vous dire que les deux premières colonnes A et B de la feuille 1 ne sont pas concernées par les doublons et que dans celles-ci sont saisis les dates de prélèvement et les codes des stations qui eux peuvent être identiques et c’est dans les autres colonnes qui sont saisies les autres données à partir de la colonne C jusqu’à la 200 eme colonne et qui concernés par la couleur . Dans la feuille 2 sont regroupés les doublons ainsi que les informations des 2 premières colonnes de la feuille 1 à partir de la ligne 5 et qui accompagnent les doublons identifiés appropriés aux informations c’est à dire date de prélèvement et les codes de stations sur la feuille. Ceci me permettra de connaître par quel code et la date de prélèvement sont concernés les doublons.
Encore merci pour tout ce que vous faites pour nous.
Ci joint fichier

 

[pierrejean]

Re : doublons

Re

La meilleure façon de nous remercier de ce que nous faisons est de vous efforcer de nous eclairer sur toutes les données de votre probleme et de nous donner des 'Jeux d'essai ' les plus proches possibles de la réalité
Notre imagination ne sera jamais suffisante pour voir l'invisible , comprendre les non-dits et interpreter les notions nebuleuses
Vois si cette version correspond a ton souhait

 

[eutrophisation]

Re : doublons

Sur cet exemple vous remarqueriez la colonne des codes et la colonne de la date et des colonnes reservée aux parametres de la colonne C à CX. La plage concernée par la problematique des lignes ou les mêmes valeurs sont saisies plusieurs fois est C5:CX 1004.
Je souhaiterais avoir une macro qui identifiera les lignes constituées de meme valeur comme c'est le cas de la ligne 6 et la ligne 8(jaune) et les lignes 5, 9 et 10 (vert clair).
Pour chaque groupe de valeur identique une couleur.
En meme temps la possibilité de regrouper les lignes colorées dans la feuille 2.La ligne 7 n'est pas concernée du fait qu'elle est seule.
Voir exemple feuille 2
Ceci me permettra d'identifier rapidement les doublons et sans le risque d'omettre les lignes en double ou des valeurs qui se sont inscrites dans d'autre stations.

 

[pierrejean]

Re : doublons

Re

OK
J'avais traité les doublons (et pas au dela triplons ....)
Voila une version qui devrait etre meilleure

 

[eutrophisation]

Re : doublons

Bonsoir

Avant tout merci je vois que je peux aller au dela du triplon...Mes essais ont été tres concluants.

 

[eutrophisation]

Re : doublons

Bonsoir

Vous m'avez forcé à vous exposer le probleme suivant. Je tiens à préciser que la macro offerte par PierreJean est efficace. Le tableau est issu du rapport du tableau croisé copié et coller dans son fichier sur lequel en un click j'identifie et regroupe les lignes dont les valeurs sont identiques dans une autre feuille du meme fichier.
Je souhaiterais que l'identification se fasse dans le tableau croisé et regrouper les sosies dans une autre feuille. Est il possible SINON JE ME CONTERAIS D'UTILISER LE FICHIER QUI M'A ETE PROPOSE.
merci d'avance.

 

[genus17]

Reconnaitre un doublon dans la saisie

Bonsoir,
Je me permets de faire appel à vous, car j’ai un petit problème avec une macro que je veux modifier pour mon boulot,

J’ai donc une macro pour reconnaitre un doublon dans la saisie sur les colonnes.
Je voudrais la modifier pour lui faire reconnaitre un doublon dans la saisie ligne par ligne.
Mon tableau de saisie commence à partir de D6
Exemple : si j’ai le chiffre 11 en D6, et que je tape en R6, une box m’indique que j’ai un doublon et me demande si je veux le conserver si oui, il le garde et non il le
Bien sûr, si j’ai un même chiffre 11 est sur une autre ligne, je ne veux pas de message box.
Pouvez-vous me venir en aide sur cette macro ?

Merci pour votre aide et pour votre réponses.

Voilà la macro:
Dim Temoin As Boolean
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D6:R100"), Target) Is Nothing And Target.Count = 1 Then 'zone de contrôle
Temoin = True
For Each c In Range("D6:R100") 'zone anti-doublons
If Target.Column And c.Value <> Empty Then
If c.Value = Target.Value And c.Row <> Target.Row And c.Value <> Empty Then
reponse = MsgBox("Doublon avec : " & c.Address & Chr$(10) & _
"Voulez-vous le garder ?", vbYesNo + vbInformation, "Détection doublon")
If reponse = vbNo Then
Target.Value = Empty
Temoin = False
Exit Sub
End If
Exit Sub
End If
End If
Next c
Temoin = False
End If
End Sub

 

[R@chid]

Re : doublons

Bonsoir et Bienvenu sur XLD,
Un essai sans Macro ==> Validation des Données
Voir Pj
Amicalement