j'ai un tableau de 4 colonnes sur environ 10000 lignes qui comporte des
doublons et je cherche une macro pour supprimer automatiquement toutes ces
lignes doublons parasites.
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
Daniel
Bonsoir, Peut-être, sans macro, un filtre élaboré avec une "extraction sans doublons". Cordialement. Daniel "eis" a écrit dans le message de news: u%
Bonjour à tous !
j'ai un tableau de 4 colonnes sur environ 10000 lignes qui comporte des doublons et je cherche une macro pour supprimer automatiquement toutes ces lignes doublons parasites.
Bonsoir,
Peut-être, sans macro, un filtre élaboré avec une "extraction sans
doublons".
Cordialement.
Daniel
"eis" <nospam-ychene@wanadoo.fr> a écrit dans le message de news:
u%23LDJywEGHA.3576@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
j'ai un tableau de 4 colonnes sur environ 10000 lignes qui comporte des
doublons et je cherche une macro pour supprimer automatiquement toutes ces
lignes doublons parasites.
Bonsoir, Peut-être, sans macro, un filtre élaboré avec une "extraction sans doublons". Cordialement. Daniel "eis" a écrit dans le message de news: u%
Bonjour à tous !
j'ai un tableau de 4 colonnes sur environ 10000 lignes qui comporte des doublons et je cherche une macro pour supprimer automatiquement toutes ces lignes doublons parasites.
JB
Bonjour,
http://cjoint.com/?bhg4vK0aEh
Sub sup_doublons() Range("A2").Select Do While ActiveCell <> "" If ActiveCell = ActiveCell.Offset(-1, 0) Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?bhg4vK0aEh
Sub sup_doublons()
Range("A2").Select
Do While ActiveCell <> ""
If ActiveCell = ActiveCell.Offset(-1, 0) Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Sub sup_doublons() Range("A2").Select Do While ActiveCell <> "" If ActiveCell = ActiveCell.Offset(-1, 0) Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub
Cordialement JB
AV
| j'ai un tableau de 4 colonnes sur environ 10000 lignes qui comporte des | doublons et je cherche une macro pour supprimer automatiquement toutes ces | lignes doublons parasites.
Je ne saurais trop te conseiller d'utiliser le filtrage élaboré même si les données sont triées et même si la comparaison ne doit se faire que sur un seul champ ! Sur un tel nombre de données, la différence de temp d'exécution entre cette solution et une boucle est très importante ! Exemple là : http://cjoint.com/?bhlabYWuyp
AV
| j'ai un tableau de 4 colonnes sur environ 10000 lignes qui comporte des
| doublons et je cherche une macro pour supprimer automatiquement toutes ces
| lignes doublons parasites.
Je ne saurais trop te conseiller d'utiliser le filtrage élaboré même si les
données sont triées et même si la comparaison ne doit se faire que sur un seul
champ !
Sur un tel nombre de données, la différence de temp d'exécution entre cette
solution et une boucle est très importante !
Exemple là :
http://cjoint.com/?bhlabYWuyp
| j'ai un tableau de 4 colonnes sur environ 10000 lignes qui comporte des | doublons et je cherche une macro pour supprimer automatiquement toutes ces | lignes doublons parasites.
Je ne saurais trop te conseiller d'utiliser le filtrage élaboré même si les données sont triées et même si la comparaison ne doit se faire que sur un seul champ ! Sur un tel nombre de données, la différence de temp d'exécution entre cette solution et une boucle est très importante ! Exemple là : http://cjoint.com/?bhlabYWuyp
AV
AV
Petit couic dans la transmission (nom de feuille erroné)...
Dans les macros remplacer "Test" par "Tests"
AV
Petit couic dans la transmission (nom de feuille erroné)...
