Discussion :

[iliesss]

Bonjour
Voici ma plage suivante



je souhaite obtenir une autre plage sans doublons par rapport a la fusion col1 & col2 & col3 & col4 & col6 la colonne 5 ne seras pas inclus.

voici résultat Souhaité



J'ai utiliser le code Suivant mais j'ai coincé dans la transposition du dictionnaire vers Excel ou bien comment convertir un dictionnaire dans une plage

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
Sub SpLignesIdentiques()
Application.ScreenUpdating = False
Set Sh = Sheets("BD")
a = Sh.Range("A2:F21").Value
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a)
    temp = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 6)
    mondico(temp) = mondico(temp) + 1
Next i
 
'Transposer mondico vers excel
 
 
 
End Sub

[ARTURO83]

Bonjour,

Renommez d'abord la "Feuil2" en "Restit", puis essayez ceci

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
30
31
32
33
34
35
36
37
Sub SpLignesIdentiques()
    'Déclaration des variables
    Dim Sh_1 As Worksheet, Sh_2 As Worksheet
    Dim DerLig_Sh1 As Long, DerLig_Sh2 As Long, i As Long
    Dim a As Variant
    Dim MonDico As Object
 
    Application.ScreenUpdating = False
    Set Sh_1 = Sheets("BD")
    Set Sh_2 = Sheets("Restit")
    Sh_2.Cells.ClearContents 'effacement des résultats précédents
 
    'récupération des données
    DerLig_Sh1 = Sh_1.Range("A2").CurrentRegion.Rows.Count + 1
    a = Sh_1.Range("A2:F" & DerLig_Sh1).Value
    Set MonDico = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a) - 1
        temp = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 6)
        MonDico(temp) = MonDico(temp) + 1
    Next i
 
    'Transposition dans MonDico
    If MonDico.Count > 0 Then Sh_2.Range("A1").Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
 
    'conversion en colonnes
    Sh_2.Select
    DerLig_f2 = Range("A1").CurrentRegion.Rows.Count
    Range("A1:A" & DerLig_f2).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1)), TrailingMinusNumbers:=True
 
    'Libération de la mémoire
    Set Sh_1 = Nothing
    Set Sh_2 = Nothing
End Sub

Pièce jointe 610567


Cdlt

[jurassic pork]

hello,

je souhaite obtenir une autre plage sans doublons par rapport a la fusion col1 & col2 & col3 & col4 & col6 la colonne 5 ne seras pas inclus.

et pourquoi pas masquer la colonne 5 provisoirement, faire un filtre avancé pour masquer les doublons et faire la copie que des cellules visibles comme ceci par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Sub CopieVisible()
    Set Sh = Sheets("BD")
    Sh.Range("E:E").EntireColumn.Hidden = True
    Sh.Range("A2:F21").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    'Copie de la plage des cellules visibles dans la feuille FEUIL2 à partir de la cellule A1
    Sh.Range("A2:F21").SpecialCells(xlCellTypeVisible).Copy Sheets("FEUIL2").Range("A1")
    Sh.Range("E:E").EntireColumn.Hidden = False
    Sh.Range("A2:F21").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
End Sub

Ami calmant, J.P

[iliesss]

Bonjour
Merci beaucoup Mr ARTURO et Mr Jurassic pour vs réponses

Grace a vous j'ai appris des nouvelles techniques

merci