Supprimer les doublons de la combinaison

[chermiti]

bonjour les amis,

je possède une application qui affiche la combinaison de chiffres pour un montant donné, mais lorsqu'elle affiche le résultat des combinaisons, ce résultat peut ce répéter plusieurs fois , y'a t'il une application macro ou une formule qui permet d'afficher uniquement les résultats non répétés

merci d'avance

 

[laetitia90]

Re : Supprimer les doublons de la combinaison

bonjour chermiti🙂

a partir de excel 2007 tu peus le faire directement donnees puis suppression doublons
autrement une macro qui le fait adapter de l'enregistreur

Range("$B$2:$F$" & Cells(Rows.Count, 2).End(3).Row).RemoveDuplicates _
      Columns:=Array(1, 2, 3, 4, 5)

 

[chermiti]

Re : Supprimer les doublons de la combinaison

ça pas marché, prière d'attacher l'exemple🙂

 

[laetitia90]

Re : Supprimer les doublons de la combinaison

re, tu selectionnes les colonnes de a a i
tu clic sur donnees puis supprimer les doublons tu coches que tu as des entêtes tu deselectionnes les colonnes A G H I

puis ok c'est tout !!

 

[chermiti]

Re : Supprimer les doublons de la combinaison

ça marché uniquement pour les combinaisons qui se répète dans l'ordre par exemple cette combinaison coloré ne s'est pas annulé

 

[laetitia90]

Re : Supprimer les doublons de la combinaison

re, pas bien evident comme je comprends ????

essai avec cette macro assez brute

Sub es()
 Dim m As Object, i As Long, z As Variant
 Application.ScreenUpdating = 0
 Range("b2:f" & Cells(Rows.Count, 2).End(xlUp).Row).Copy [k2]
 For i = 2 To Cells(Rows.Count, 11).End(3).Row
 Range("k" & i & ":o" & i).Sort Orientation:=xlLeftToRight, Key1:=Rows(i), Order1:=xlAscending, Header:=xlGuess
 Next i
 Set m = CreateObject("Scripting.Dictionary")
 For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1
 z = Cells(i, 11) & Cells(i, 12) & Cells(i, 13) & Cells(i, 14) & Cells(i, 15)
 If Not m.Exists(z) Then m.Add z, z Else Rows(i).Delete
 Next i
Range("k2:o" & Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
End Sub

 

[chermiti]

Re : Supprimer les doublons de la combinaison

re, pas bien evident comme je comprends ????

essai avec cette macro assez brute

Sub es()
 Dim m As Object, i As Long, z As Variant
 Application.ScreenUpdating = 0
 Range("b2:f" & Cells(Rows.Count, 2).End(xlUp).Row).Copy [k2]
 For i = 2 To Cells(Rows.Count, 11).End(3).Row
 Range("k" & i & ":o" & i).Sort Orientation:=xlLeftToRight, Key1:=Rows(i), Order1:=xlAscending, Header:=xlGuess
 Next i
 Set m = CreateObject("Scripting.Dictionary")
 For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1
 z = Cells(i, 11) & Cells(i, 12) & Cells(i, 13) & Cells(i, 14) & Cells(i, 15)
 If Not m.Exists(z) Then m.Add z, z Else Rows(i).Delete
 Next i
Range("k2:o" & Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
End Sub

COMME vous l'avez dit c'est pas évident, je pense que c'est difficile de la réaliser merci Laetitia quand même 🙂

 

[laetitia90]

Re : Supprimer les doublons de la combinaison

re
cela donne quoi comme resultat ??? chez moi 32 lignes sans double

 

[chermiti]

Re : Supprimer les doublons de la combinaison

re
cela donne quoi comme resultat ??? chez moi 32 lignes sans double

laetitia je crois que cette macro est la bonne, je pense que je l'ai mal manipulé hier, mais maintenant ça donne ce que je veut merci énormément

 

[Bebere]

Re : Supprimer les doublons de la combinaison

bonjour Laetitia,Chemiti
un autre code en k le nbre

Public Sub SansDoublon()
'dans outils,références cocher microsoft scriping runtime
Dim dico As New Dictionary, tbl, L As Long, C As Long
Feuil1.Activate
tbl = Feuil1.Range("A1").CurrentRegion

For L = 1 To UBound(tbl, 1)
For C = 1 To UBound(tbl, 2)
dico(tbl(L, C)) = dico(tbl(L, C)) + 1
Next C
Next L

  [J2].Resize(dico.Count, 1) = Application.Transpose(dico.Keys)
  [K2].Resize(dico.Count, 1) = Application.Transpose(dico.Items)

End Sub

 

[chermiti]

Re : Supprimer les doublons de la combinaison

bonjour laetitia,chemiti
un autre code en k le nbre

public sub sansdoublon()
'dans outils,références cocher microsoft scriping runtime
dim dico as new dictionary, tbl, l as long, c as long
feuil1.activate
tbl = feuil1.range("a1").currentregion

for l = 1 to ubound(tbl, 1)
for c = 1 to ubound(tbl, 2)
dico(tbl(l, c)) = dico(tbl(l, c)) + 1
next c
next l

  [j2].resize(dico.count, 1) = application.transpose(dico.keys)
  [k2].resize(dico.count, 1) = application.transpose(dico.items)

end sub

c interessant aussi bebere :d