Excel doublons
Résolu
SuperFun
Messages postés
842
Date d'inscription
Statut
Membre
Dernière intervention
-
mbodj Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
mbodj Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Excel doublons
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Doublons photos - Guide
- Supprimer les doublons excel - Guide
- Déplacer colonne excel - Guide
9 réponses
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!
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é
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
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
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
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.
Jean déduit et moi aussi marche pas bien mais ne désespère pas