Excel doublons
Résolu/Fermé
SuperFun
Messages postés
829
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
4 avril 2023
-
12 sept. 2012 à 10:26
mbodj Messages postés 2 Date d'inscription samedi 15 septembre 2012 Statut Membre Dernière intervention 15 septembre 2012 - 15 sept. 2012 à 21:57
mbodj Messages postés 2 Date d'inscription samedi 15 septembre 2012 Statut Membre Dernière intervention 15 septembre 2012 - 15 sept. 2012 à 21:57
A voir également:
- Excel doublons
- Liste déroulante excel - Guide
- Supprimer les doublons excel - Guide
- Formule excel - Guide
- Doublons photos - Guide
- Si et excel - Guide
9 réponses
Apatik
Messages postés
5304
Date d'inscription
mercredi 28 janvier 2009
Statut
Contributeur
Dernière intervention
29 mai 2016
782
12 sept. 2012 à 10:42
12 sept. 2012 à 10:42
Salut,
J'ai pas de solution hyper rapide, mais en 5 minutes, voila comment je ferrais:
- Un tri sur la colonne dans laquelle tu veux repérer les doublons. (mettons "A ").
- Tu insère une colonne B
- En B1, tu insères la formule "=SI(A1=B1;VRAI;FAUX), puis tu étires jusqu'en bas.
- Puis tu insères une colonne C
- En C2 tu insères la formule "=SI(OU(B2=VRAI;ET(B2=FAUX;B1=VRAI));VRAI;FAUX), puis tu étire jusqu'en bas.
- Il reste la cellule C1 à remplir: "=B1"
-Tu copie la colonne C, puis tu fait un collage spécial "valeur".
- Tu fais un tri sur la colonne C, puis tu supprime toutes les lignes ou "Vrai" apparait dans la colonne C
Voila!
J'ai pas de solution hyper rapide, mais en 5 minutes, voila comment je ferrais:
- Un tri sur la colonne dans laquelle tu veux repérer les doublons. (mettons "A ").
- Tu insère une colonne B
- En B1, tu insères la formule "=SI(A1=B1;VRAI;FAUX), puis tu étires jusqu'en bas.
- Puis tu insères une colonne C
- En C2 tu insères la formule "=SI(OU(B2=VRAI;ET(B2=FAUX;B1=VRAI));VRAI;FAUX), puis tu étire jusqu'en bas.
- Il reste la cellule C1 à remplir: "=B1"
-Tu copie la colonne C, puis tu fait un collage spécial "valeur".
- Tu fais un tri sur la colonne C, puis tu supprime toutes les lignes ou "Vrai" apparait dans la colonne C
Voila!
pépé35530
Messages postés
2942
Date d'inscription
vendredi 1 mai 2009
Statut
Membre
Dernière intervention
19 mars 2016
1 382
12 sept. 2012 à 10:45
12 sept. 2012 à 10:45
Bonjour,
Créer une colonne avec la formule suivante :
=NB.SI($A$2:$A$10;A2)
A adapter en fonction de la plage des données
recopier vers le bas
Créer une autre colonne avec la formule suivante :
=SI(B2>=2;"";A2)
Recopier vers le bas
Dans cette colonne n'apparaîtront que les éléments en 1 exemplaire.
On peut ensuite faire un copier-collage spécial, valeurs des données de cette colonne si on veut une nouvelle liste avec simplement ces données.
A+
pépé
Créer une colonne avec la formule suivante :
=NB.SI($A$2:$A$10;A2)
A adapter en fonction de la plage des données
recopier vers le bas
Créer une autre colonne avec la formule suivante :
=SI(B2>=2;"";A2)
Recopier vers le bas
Dans cette colonne n'apparaîtront que les éléments en 1 exemplaire.
On peut ensuite faire un copier-collage spécial, valeurs des données de cette colonne si on veut une nouvelle liste avec simplement ces données.
A+
pépé
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
12 sept. 2012 à 10:57
12 sept. 2012 à 10:57
Bonjour à tous,
On peut éviter la 2nde colonne.
Filtrer automatique sur la colonne ayant =NB.SI($A$2:$A$10;A2) avec pour critère > 1,
et supprimer les lignes.
eric
On peut éviter la 2nde colonne.
Filtrer automatique sur la colonne ayant =NB.SI($A$2:$A$10;A2) avec pour critère > 1,
et supprimer les lignes.
eric
SuperFun
Messages postés
829
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
4 avril 2023
37
Modifié par SuperFun le 12/09/2012 à 11:46
Modifié par SuperFun le 12/09/2012 à 11:46
Testé et je retrouve exactement la même chose en colonne C que dans la colonne a tester (A)
quand au filtrage auto avec critère >1 cela me dit Référence non valide
quand au filtrage auto avec critère >1 cela me dit Référence non valide
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
12 sept. 2012 à 11:27
12 sept. 2012 à 11:27
Salut le fil,
Peut être en VBA avec ce code qui ne conservera que les valeurs uniques
Sub Val_Unique()
Dim Finlig, i As Long
Dim c, plage As Range
Dim T() As String
Application.ScreenUpdating = False
ReDim T(1)
With ActiveSheet 'Sheets("Feuil3") 'à adapter
Finlig = .Cells(Rows.Count, "A").End(xlUp).Row
For Each c In .Range("A1:A" & Finlig)
If Application.CountIf(.Range("A1:A" & Finlig), c) > 1 Then
T(UBound(T)) = c.Address
ReDim Preserve T(UBound(T) + 1)
End If
Next c
If UBound(T) > 1 Then
Set plage = .Range(T(1))
For i = 2 To UBound(T) - 1
Set plage = Union(plage, .Range(T(i)))
Next i
plage.EntireRow.Delete
End If
End With
End Sub
Peut être en VBA avec ce code qui ne conservera que les valeurs uniques
Sub Val_Unique()
Dim Finlig, i As Long
Dim c, plage As Range
Dim T() As String
Application.ScreenUpdating = False
ReDim T(1)
With ActiveSheet 'Sheets("Feuil3") 'à adapter
Finlig = .Cells(Rows.Count, "A").End(xlUp).Row
For Each c In .Range("A1:A" & Finlig)
If Application.CountIf(.Range("A1:A" & Finlig), c) > 1 Then
T(UBound(T)) = c.Address
ReDim Preserve T(UBound(T) + 1)
End If
Next c
If UBound(T) > 1 Then
Set plage = .Range(T(1))
For i = 2 To UBound(T) - 1
Set plage = Union(plage, .Range(T(i)))
Next i
plage.EntireRow.Delete
End If
End With
End Sub
SuperFun
Messages postés
829
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
4 avril 2023
37
12 sept. 2012 à 11:48
12 sept. 2012 à 11:48
Dit tonton pourquoi tu tousse.... je suis loin d'être un As plutôt un Âne moi....
Je m'enfile ça ou et comment ???
Je m'enfile ça ou et comment ???
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
12 sept. 2012 à 11:52
12 sept. 2012 à 11:52
Re,
Je ne sais pas comment tu testes mais ça marche très bien...
Sur le fichier joint j'ai filtré sur 'est supérieur à' : 1
Il ne reste plus qu'à sélectionner les lignes visible, faire un clic-droit et 'supprimer la ligne'.
En enlevant le filtre il ne reste que les valeurs individuelles.
https://www.cjoint.com/?BImlXpaCq86
eric
Je ne sais pas comment tu testes mais ça marche très bien...
Sur le fichier joint j'ai filtré sur 'est supérieur à' : 1
Il ne reste plus qu'à sélectionner les lignes visible, faire un clic-droit et 'supprimer la ligne'.
En enlevant le filtre il ne reste que les valeurs individuelles.
https://www.cjoint.com/?BImlXpaCq86
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
12 sept. 2012 à 14:32
12 sept. 2012 à 14:32
Re,
pour répondre à ta demande, je site "Pour cela il existe une fonction supprimer les doublons et hop les doublons sont supprimés"
Il n'y a que le VBA sinon manuellement avec des formules proposées.
Maintenant si tu n'as pas de notion en VBA cela complique la démarche.
tout de même un fichier exemple que tu peux tester, tu saisis des données en colonne A avec des doublons et clic sur le bouton, toutes les données en doublons et comme tu le dis si bien et hop supprimées
https://www.cjoint.com/?BImoDMqQrHT
pour répondre à ta demande, je site "Pour cela il existe une fonction supprimer les doublons et hop les doublons sont supprimés"
Il n'y a que le VBA sinon manuellement avec des formules proposées.
Maintenant si tu n'as pas de notion en VBA cela complique la démarche.
tout de même un fichier exemple que tu peux tester, tu saisis des données en colonne A avec des doublons et clic sur le bouton, toutes les données en doublons et comme tu le dis si bien et hop supprimées
https://www.cjoint.com/?BImoDMqQrHT
pépé35530
Messages postés
2942
Date d'inscription
vendredi 1 mai 2009
Statut
Membre
Dernière intervention
19 mars 2016
1 382
12 sept. 2012 à 22:55
12 sept. 2012 à 22:55
Bonsoir,
Voici le lien vers le fichier de ma solution :
https://www.cjoint.com/?BImw2iNdC55
A+
pépé
Voici le lien vers le fichier de ma solution :
https://www.cjoint.com/?BImw2iNdC55
A+
pépé
SuperFun
Messages postés
829
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
4 avril 2023
37
Modifié par SuperFun le 13/09/2012 à 07:18
Modifié par SuperFun le 13/09/2012 à 07:18
Bonjour,
MERCI à tous, pépé35530, Mike-31, eriiic et Apatik aussi.
Tous marchent il suffisait de le faire comme il faut, n'étant pas un grand spécialiste il a fallu du temps et surtout VOS exemples qui sont une pure merveille.
Donc encore une fois MERCI à vous.
Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.
MERCI à tous, pépé35530, Mike-31, eriiic et Apatik aussi.
Tous marchent il suffisait de le faire comme il faut, n'étant pas un grand spécialiste il a fallu du temps et surtout VOS exemples qui sont une pure merveille.
Donc encore une fois MERCI à vous.
Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.
mbodj
Messages postés
2
Date d'inscription
samedi 15 septembre 2012
Statut
Membre
Dernière intervention
15 septembre 2012
15 sept. 2012 à 21:55
15 sept. 2012 à 21:55
bonsoir
mbodj
Messages postés
2
Date d'inscription
samedi 15 septembre 2012
Statut
Membre
Dernière intervention
15 septembre 2012
15 sept. 2012 à 21:57
15 sept. 2012 à 21:57
bonsoir comment sava quelle est sa maison
12 sept. 2012 à 11:42
Jean déduit et moi aussi marche pas bien mais ne désespère pas