est ce que quelqu'un saurait comment dedoublonner mon tableau : il contient
une ligne par participant, une colone mentionne le numero de facture, facture
qui peut inclure plusieurs participants, cad :
participant 1 2005-001
participant 2 2005-001...
je voudrais qu'au final il me reste une ligne par facture. (nimporte
laquelle) Comment faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
docm
Bonsoir Aline.
Sub TrierEtEliminerDoublonsEnColonne2() colonne = 2 ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(colonne) lin = Columns(colonne).Find("*", , , , , xlPrevious).Row encore: Garder = False If Cells(lin, colonne) <> Cells(lin - 1, colonne) Then Garder = True If Garder = False Then Rows(lin).Delete lin = lin - 1 If lin > 1 Then GoTo encore End Sub
docm
"Aline" a écrit dans le message news:
Bonsoir bonsoir,
est ce que quelqu'un saurait comment dedoublonner mon tableau : il contient
une ligne par participant, une colone mentionne le numero de facture, facture
qui peut inclure plusieurs participants, cad :
participant 1 2005-001 participant 2 2005-001...
je voudrais qu'au final il me reste une ligne par facture. (nimporte laquelle) Comment faire ?
Merci bien ! Aline
Bonsoir Aline.
Sub TrierEtEliminerDoublonsEnColonne2()
colonne = 2
ActiveSheet.UsedRange.EntireRow.Sort
Key1:¬tiveSheet.UsedRange.Cells(colonne)
lin = Columns(colonne).Find("*", , , , , xlPrevious).Row
encore:
Garder = False
If Cells(lin, colonne) <> Cells(lin - 1, colonne) Then Garder = True
If Garder = False Then Rows(lin).Delete
lin = lin - 1
If lin > 1 Then GoTo encore
End Sub
docm
"Aline" <Aline@discussions.microsoft.com> a écrit dans le message news:
4131CB98-7477-4AB4-80B2-E7F4DDD0C045@microsoft.com...
Bonsoir bonsoir,
est ce que quelqu'un saurait comment dedoublonner mon tableau : il
contient
une ligne par participant, une colone mentionne le numero de facture,
facture
qui peut inclure plusieurs participants, cad :
participant 1 2005-001
participant 2 2005-001...
je voudrais qu'au final il me reste une ligne par facture. (nimporte
laquelle) Comment faire ?
Sub TrierEtEliminerDoublonsEnColonne2() colonne = 2 ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(colonne) lin = Columns(colonne).Find("*", , , , , xlPrevious).Row encore: Garder = False If Cells(lin, colonne) <> Cells(lin - 1, colonne) Then Garder = True If Garder = False Then Rows(lin).Delete lin = lin - 1 If lin > 1 Then GoTo encore End Sub
docm
"Aline" a écrit dans le message news:
Bonsoir bonsoir,
est ce que quelqu'un saurait comment dedoublonner mon tableau : il contient
une ligne par participant, une colone mentionne le numero de facture, facture
qui peut inclure plusieurs participants, cad :
participant 1 2005-001 participant 2 2005-001...
je voudrais qu'au final il me reste une ligne par facture. (nimporte laquelle) Comment faire ?
Merci bien ! Aline
docm
Adapté de http://www.excelabo.net/xl/comparer.php#doublonsfusion
"docm" a écrit dans le message news:
Bonsoir Aline.
Sub TrierEtEliminerDoublonsEnColonne2() colonne = 2 ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(colonne) lin = Columns(colonne).Find("*", , , , , xlPrevious).Row encore: Garder = False If Cells(lin, colonne) <> Cells(lin - 1, colonne) Then Garder = True If Garder = False Then Rows(lin).Delete lin = lin - 1 If lin > 1 Then GoTo encore End Sub
docm
"Aline" a écrit dans le message news:
Bonsoir bonsoir,
est ce que quelqu'un saurait comment dedoublonner mon tableau : il contient
une ligne par participant, une colone mentionne le numero de facture, facture
qui peut inclure plusieurs participants, cad :
participant 1 2005-001 participant 2 2005-001...
je voudrais qu'au final il me reste une ligne par facture. (nimporte laquelle) Comment faire ?
Merci bien ! Aline
Adapté de
http://www.excelabo.net/xl/comparer.php#doublonsfusion
"docm" <docmarti@spamcolba.net> a écrit dans le message news:
OLj9xuV8FHA.1032@TK2MSFTNGP11.phx.gbl...
Bonsoir Aline.
Sub TrierEtEliminerDoublonsEnColonne2()
colonne = 2
ActiveSheet.UsedRange.EntireRow.Sort
Key1:¬tiveSheet.UsedRange.Cells(colonne)
lin = Columns(colonne).Find("*", , , , , xlPrevious).Row
encore:
Garder = False
If Cells(lin, colonne) <> Cells(lin - 1, colonne) Then Garder = True
If Garder = False Then Rows(lin).Delete
lin = lin - 1
If lin > 1 Then GoTo encore
End Sub
docm
"Aline" <Aline@discussions.microsoft.com> a écrit dans le message news:
4131CB98-7477-4AB4-80B2-E7F4DDD0C045@microsoft.com...
Bonsoir bonsoir,
est ce que quelqu'un saurait comment dedoublonner mon tableau : il
contient
une ligne par participant, une colone mentionne le numero de facture,
facture
qui peut inclure plusieurs participants, cad :
participant 1 2005-001
participant 2 2005-001...
je voudrais qu'au final il me reste une ligne par facture. (nimporte
laquelle) Comment faire ?
Adapté de http://www.excelabo.net/xl/comparer.php#doublonsfusion
"docm" a écrit dans le message news:
Bonsoir Aline.
Sub TrierEtEliminerDoublonsEnColonne2() colonne = 2 ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(colonne) lin = Columns(colonne).Find("*", , , , , xlPrevious).Row encore: Garder = False If Cells(lin, colonne) <> Cells(lin - 1, colonne) Then Garder = True If Garder = False Then Rows(lin).Delete lin = lin - 1 If lin > 1 Then GoTo encore End Sub
docm
"Aline" a écrit dans le message news:
Bonsoir bonsoir,
est ce que quelqu'un saurait comment dedoublonner mon tableau : il contient
une ligne par participant, une colone mentionne le numero de facture, facture
qui peut inclure plusieurs participants, cad :
participant 1 2005-001 participant 2 2005-001...
je voudrais qu'au final il me reste une ligne par facture. (nimporte laquelle) Comment faire ?
