Discussion :

[jpvba]

Bonjour cher ami du forum,


Je voudrais transformer un code permettant de trouver les doublons dans des strings de la même colonne en ajoutant si dans un autre colonne le numéro correspondant a un format est identique. Cette coloration est également différente d'un doublons a l'autre afin de faciliter le repérage visuel.


JE vais transfomer une "usine a gaz" en exploitation d'hélium


LE code que j'ai est celui établis pas dysortho (que je salut )

Je voudrais également éviter que la coloration sois noir (je crois d'enlever le 1 dans l'Array fais l'affaire)

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
Function doublons_couleur_groupe_plage(lettre_colonne_voulue As String)
Dim couleurs() As Variant
Dim mondico As Object
Dim c As Variant
Dim nocoul As Variant
 
 
   couleurs = Array(1, 3, 4, 6, 7, 8, 14, 15, 17, 20, 22, 24, 26, 27, 28, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 50, 53)
   Set mondico = CreateObject("Scripting.Dictionary")
   For Each c In Range(lettre_colonne_voulue & 2, lettre_colonne_voulue & LastLignUsedInColumn(lettre_colonne_voulue))
     If c <> "" Then mondico.item(c.value) = mondico.item(c.value) + 1
   Next c
   For Each c In Range(lettre_colonne_voulue & 2, lettre_colonne_voulue & LastLignUsedInColumn(lettre_colonne_voulue))
    If c <> "" Then
      nocoul = (Application.Match(c.value, mondico.keys, 0)) Mod UBound(couleurs)
      If mondico.item(c.value) > 1 Then c.Interior.ColorIndex = couleurs(nocoul)
    End If
   Next c
 End Function

Pouvez vous donc m'aider a atteindre mon but (je ne suis pas encore rendu au niveau de crééer des objet dictionnaire)


merci milles fois !!!

[jpvba]

Voici donc où que je suis rendu (encore bloqué mais bon ... )

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
20
21
22
23
24
25
26
27
28
29
Function test_doublons_couleur_groupe_plage(lettre_colonne_voulue As String)
Dim couleurs() As Variant
Dim mondico As Object
Dim c As Variant
Dim nocoul As Variant
 
 
   couleurs = Array(3, 4, 6, 7, 8, 9, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 26, 27, 28, 31, 33, 34, 35, 36, 37, 38, 39, 40, _
   41, 42, 43, 44, 45, 46, 47, 48, 50, 53, 54, 54)
 
   Range(lettre_colonne_voulue & 2, lettre_colonne_voulue & LastLignUsedInColumn(lettre_colonne_voulue)).Interior.ColorIndex = xlNone
 
   Range([no_format_travail].Column & 2, [no_format_travail].Column & LastLignUsedInColumn([no_format_travail])).Interior.ColorIndex = xlNone
 
 
   Set mondico = CreateObject("Scripting.Dictionary")
 
   For Each c In Range(lettre_colonne_voulue & 2, lettre_colonne_voulue & LastLignUsedInColumn(lettre_colonne_voulue))
     If c <> "" Then mondico.item(c.value) = mondico.item(c.value) + 1
   Next c
 
   For Each c In Range(lettre_colonne_voulue & 2, lettre_colonne_voulue & LastLignUsedInColumn(lettre_colonne_voulue))
    If c <> "" Then
      nocoul = (Application.Match(c.value, mondico.keys, 0)) Mod UBound(couleurs)
      If mondico.item(c.value) > 1 Then c.Interior.ColorIndex = couleurs(nocoul)
    End If
   Next c
 
 End Function

Ce que je ne sais pas c'Est la partie manipulation du dico i.e. étant donné que c'Est une concaténation de 2 colonnes. JE ne sais pas si je peux donner 2 range et il va regarder dans les deux cellules de la meme ligne du range ou simplement additioner les deux plages i.e. regarder seulement une colonne a la fois



merci pour votre aide !!!

[RyuAutodidacte]

Bonjour jp,

Pas bcp de temps là,
Mais ce ne serait pas plus simple de faire une MFC sur tes paramètres et colonnes voulues.
De plus il me semble avoir vu 2 posts (a vérifier) permettant de repèrer les couleurs dans une cellule faites par MFC … a voir

Édit : je ne trouve pas tes explications simple

[jpvba]

Bonjour Ryu,


J'espère que tu vas bien, cher ami !!!



Je suis d'avis que mes explications sont pas nécessairement les plus limpides, je vais donc ajouté un visuel afin de mieux expliqué mon idée.


DOnc voici un exemple de demande fictive de produit



Dans cette exemple suivant nous avons différent chapeau ayant plusieurs formats. Je veux être en mesure d'identifier facilement les vrai doublons i.e. les produits ayant la descriptions ainsi que le format identique. Je voudrais que seulement que les lignes contenants chapeau skelette sois un doublons et non chapeau skelette et chapeau melon car ils on la meme descriptions mais un format différent.


Pourquoi ne pas utilisé la MFC c'est bien simple, tout mes tests que j'ai fait ne permettais pas de concaténer les valeurs. J'aurais donc eu dans mon exemple des doublons pour les descriptions identiques ainsi que les format identique et non les deux. Autre fait concernant la MFC, c'Est que je copie les donnés d'un document initiale que je travail dans un document. Lorsque l'on copie d'un document source n'ayant pas la même mise en forme conditionnel, celle-ci est écrasé par l'originale, donc je devrais faire une MFC après la copie des donné donc nécessairement une manipulation a chaque fois ce qui est une perte de temps du fait que des jours je crée une 10 de demandes ... j'aurais une réelle efficacité d'éliminer la rédaction de la MFC. Dernier point, c'Est que la MFC génère les doublons sur une seul et unique couleur. Malheureusement j'arrive a avoir des doublons sur des données hyper similaire et la couleur me permet de regrouper plus facilement, visuellement les doublons.


Je vais également fouiller sur le forum si je trouverais un post parlant de cette situation ... mais quoi qu'il en soit, je voudrais éviter la MFC pour es raisons expliquer ci-haut.



un gros merci a vous tous pour votre coup de pouce !!!!

[jpvba]

Bonjour monsieur Toulon ()


Ce que vous montrer, c'Est le code que j'ai présentement mais il faut également qu'il regarde un autre plage pour la coloration mais effectivement c'est quelquechose du genre que j'ai à modifier pour mon besoin

[patricktoulon]

re

Ce que vous montrer, c'Est le code que j'ai présentement

regarde de plus pres avec tes lunettes de preférence

[patricktoulon]

bonjour
coloration unique pour chaque doublon
si c'est ce genre de chose que tu veux


alors

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
20
21
22
23
24
25
26
Sub test()
    doublons_couleur_groupe_plage "A"
End Sub
'
'
Function doublons_couleur_groupe_plage(lettre_colonne_voulue As String)
    Dim couleurs() As Variant, dico As Object, c As Range, elem As Variant, x&, chaine$
    couleurs = Array(3, 4, 6, 7, 8, 14, 15, 17, 20, 22, 24, 26, 27, 28, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 50, 53)
    Set dico = CreateObject("Scripting.Dictionary")
    For Each c In Range(lettre_colonne_voulue & 2, lettre_colonne_voulue & LastLignUsedInColumn(lettre_colonne_voulue))
        If c <> "" Then dico.Item(c.Value) = dico.Item(c.Value) & " " & c.Address
    Next c
    For Each elem In dico
        chaine = Replace(Application.Trim(dico(elem)), " ", ",")
        If UBound(Split(chaine, ",")) > 0 Then
            x = x + 1: couleur = couleurs(x)
            Range(chaine).Interior.ColorIndex = couleur
        End If
        Debug.Print elem & " : " & chaine & "   :   " & UBound(Split(chaine, ","))+1
    Next
End Function
'
'
Function LastLignUsedInColumn(l)
    LastLignUsedInColumn = Cells(Rows.Count, l).End(xlUp).Row
End Function

cela dit entre nous 56 couleurs pour d'eventuels doublons ,tu va vite etre limité sur une plage importante