Recherche de paires de cellules doublées

Re : Recherche de paires de cellules doublées

Bonsoir,
le contenu de ton fichier ne semble pas correspondre à tes explications (aucune ligne identique dans ton exemple).
Sinon, pour faire apparaître les doublons en couleur, utilise une mise en forme conditionnelle.
La copie de ces doublons dans un autre onglet peut se faire par formules ou VBA : quelle solution préfères-tu ?
A+

Re : Recherche de paires de cellules doublées

Bojour,

Voir PJ

JB

Re : Recherche de paires de cellules doublées

BOISGONTIER à dit:

Bojour,

Voir PJ

JB

Cliquez pour agrandir...

Alors la, ca depasse de loin mes espérances !
Merci pour ton aide Boisgontier !

Re : Recherche de paires de cellules doublées

david84 à dit:

Bonsoir,
le contenu de ton fichier ne semble pas correspondre à tes explications (aucune ligne identique dans ton exemple).
Sinon, pour faire apparaître les doublons en couleur, utilise une mise en forme conditionnelle.
La copie de ces doublons dans un autre onglet peut se faire par formules ou VBA : quelle solution préfères-tu ?
A+

Cliquez pour agrandir...

Merci pour ton aide David84.
A partir du fichier de Boigontier, peut-on selectionner et copier dans un onglet les lignes contenant un commentaire en colonne E ?

Re : Recherche de paires de cellules doublées

Bonjour,


Voir PJ

JB

Re : Recherche de paires de cellules doublées

Bonjour,
Je me permets de joindre le fichier sur lequel je travaille car la macro fournie ne marche pas avec.
La macro bug à la ligne :
c.Resize(, 2).Interior.ColorIndex = Application.Match(c.Value & c.Offset(, 1), d.keys, 0) + 2 Mod 55
avec comme message d'erreur 'l'indice n'appartient pas à la sélection'.
Comme pour l'autre fichier, la recherche de doublons se fait sur les colonnes B et C.

Ta macro fonctionne parfaitement avec le petit fichier de test, et je ne vois pas pourquoi elle ne marcherait pas avec mon fichier 'de production' en PJ.

Merci encore pour ton aide !
Wyrgle

Re : Recherche de paires de cellules doublées

Bonjour,


Voir PJ

JB

Re : Recherche de paires de cellules doublées

Bonjour à Tous,
encore une jolie démonstration JB Bravo
a+
papou🙂

Re : Recherche de paires de cellules doublées

Bonjour Boisgontier,
Je tiens à t'exprimer tous mes remerciements, c'est tout simplement impressionnant.
Je ne comprends rien à ton code, mais je vais essayer de le décortiquer ligne par ligne.
Wyrgle

Re : Recherche de paires de cellules doublées

Bonsoir le fils et le forum,

je découvre vos module VBA (Tableau et dictionaire) qui sont vraiment très performant, et j'apprend a travailler avec les dictionaires en se moment mais il y a des choses que je ne comprend pas ou ne sais pas car pas la solution.

Set d = CreateObject("Scripting.Dictionary") (soit d le dictionaire crée)

Ont remplis le dictionnaire de deux facons :

Dans votre exemple vous utilisé ===>> .Item pour le remplir ( je vois aussi le signe = )
- d.Item(c.Value & c.Offset(, 1)) = d.Item(c.Value & c.Offset(, 1)) + 1

Pour ma part Ignorant J'aurais utilisé ===>> .Add pour le remplir ( avec la virgule pour séparer )
- d.Add c.Value & c.Offset(, 1) , c.Value & c.Offset(, 1)

Qu'elle est la différence s'il vous plais ? dans qu'elle cas utilisé l'un ou l'autre ?

Aussi se que j'ai compris c'est qu'il faut vidé le contenu du dictionnaire comme :
- d.Removeall === >>> placé juste sous Set d = CreateObject("Scripting.Dictionary") pour ce que j'ai vu est constaté

set d = Nothing == >> Placé à lafin de la procdure je ne connais dond pas la différence avec .Removeall

Je passe beaucoup de temps et j'apprend assez vite, si vous pouvez m'éclairer sur ce point je serais content.

Peut être qu' il y a un cours sur internet (je cherche les paramétres nommées ou les arguments) j'ai besoin d'apprendre et d'approfondir cela aussi.

Merci par avance

laurent

Re : Recherche de paires de cellules doublées

Bonjour le fils, Le forum.
Pour remonter mon Message.. UP UP UP
merci pour ceux qui aurais une répouse pour le poste #11

laurent