Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment trouver des doublons ?

Comment trouver des doublons ?

8 réponses
Avatar
Bastan
Bonjour,

Je ne maitrise que les fonctions "de base" d'excel, et je suis confronté à
un petit pb...

J'ai environ 1500 "valeurs" (chiffres, lettres, et combinaison des deux)
dans une colonne, et je souhaiterais trouver ceux qui sont en double.
Et pourquoi pas... Les afficher dans une colonne suivante, mais ça, je peux
m'en passer ;-)

Y a t il un moyen à ma portée (très légères notions de macros, et de vba) ??

Merci d'avance de votre aide ;-)
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
JB
Bonsoir,

Avec la MEFC par exemple:

-Sélectionner A2:A1500
-Format/Mise en forme conditionnelle
-Choisir la formule Est:
=NB.SI($A$2:$A$1500;A2)>1

http://boisgontierjacques.free.fr/pages_site/mfc.htm#Doublons

JB


On 30 oct, 21:08, "Bastan" wrote:
Bonjour,

Je ne maitrise que les fonctions "de base" d'excel, et je suis confront é à
un petit pb...

J'ai environ 1500 "valeurs" (chiffres, lettres, et combinaison des deux)
dans une colonne, et je souhaiterais trouver ceux qui sont en double.
Et pourquoi pas... Les afficher dans une colonne suivante, mais ça, je peux
m'en passer ;-)

Y a t il un moyen à ma portée (très légères notions de macros, et de vba) ??

Merci d'avance de votre aide ;-)


Avatar
Tatanka
Bonsoir,

Un petit exemple avec des données en A1:A10 :

Sub Doublons()
Dim liste(1 To 10, 1 To 1)
For i = 1 To 10
n = Application.CountIf([a1:a10], Cells(i, 1))
If n >= 2 Then
k = k + 1
liste(k, 1) = Cells(i, 1)
End If
Next i
[b1:b10] = liste
End Sub

Est-ce que le résultat te convient ?

Serge



"Bastan" a écrit dans le message de news: 47278f4f$0$27397$
Bonjour,

Je ne maitrise que les fonctions "de base" d'excel, et je suis confronté à un petit pb...

J'ai environ 1500 "valeurs" (chiffres, lettres, et combinaison des deux) dans une colonne, et je souhaiterais trouver ceux qui
sont en double.
Et pourquoi pas... Les afficher dans une colonne suivante, mais ça, je peux m'en passer ;-)

Y a t il un moyen à ma portée (très légères notions de macros, et de vba) ??

Merci d'avance de votre aide ;-)





Avatar
Bastan
Merci,

Impeccable, MAIS, cette formule me marque la cellule PRECEDENTE aux
doublons ...
Si le doublon est dans A10 et A25, ce sont A9 et A24 qui seront
surlignées.....

N'y a t il pas moyen de ... viser juste ?

Et accessoirement, pourrais tu me "traduire" cette formule ?
Elle n'est pas aussi explicite que les autres fonctions....


"JB" a écrit dans le message de news:

Bonsoir,

Avec la MEFC par exemple:

-Sélectionner A2:A1500
-Format/Mise en forme conditionnelle
-Choisir la formule Est:
=NB.SI($A$2:$A$1500;A2)>1
Avatar
JB
http://cjoint.com/?kEw0FrXzjM

JB


On 30 oct, 22:17, "Bastan" wrote:
Merci,

Impeccable, MAIS, cette formule me marque la cellule PRECEDENTE aux
doublons ...
Si le doublon est dans A10 et A25, ce sont A9 et A24 qui seront
surlignées.....

N'y a t il pas moyen de ... viser juste ?

Et accessoirement, pourrais tu me "traduire" cette formule ?
Elle n'est pas aussi explicite que les autres fonctions....

"JB" a écrit dans le message de news:

Bonsoir,

Avec la MEFC par exemple:

-Sélectionner A2:A1500
-Format/Mise en forme conditionnelle
-Choisir la formule Est:
=NB.SI($A$2:$A$1500;A2)>1


Avatar
Bastan
Merci Serge, mais le résultat ne me convient pas trop, car cela ne me marque
pas les données dans la liste de base,
et le résultat dans la deuxième colonne est assez fouillis.

Tu me demandes... Je te réponds ;-)))

Mais comme j'aime bien "bidouiller", je vais essayer de modifier ton code...

Merci encore ;-)




"Tatanka" a écrit dans le message de news:

Bonsoir,

Un petit exemple avec des données en A1:A10 :

Sub Doublons()
Dim liste(1 To 10, 1 To 1)
For i = 1 To 10
n = Application.CountIf([a1:a10], Cells(i, 1))
If n >= 2 Then
k = k + 1
liste(k, 1) = Cells(i, 1)
End If
Next i
[b1:b10] = liste
End Sub

Est-ce que le résultat te convient ?

Serge



"Bastan" a écrit dans le message de news:
47278f4f$0$27397$
Bonjour,

Je ne maitrise que les fonctions "de base" d'excel, et je suis confronté
à un petit pb...

J'ai environ 1500 "valeurs" (chiffres, lettres, et combinaison des deux)
dans une colonne, et je souhaiterais trouver ceux qui sont en double.
Et pourquoi pas... Les afficher dans une colonne suivante, mais ça, je
peux m'en passer ;-)

Y a t il un moyen à ma portée (très légères notions de macros, et de vba)
??

Merci d'avance de votre aide ;-)










Avatar
JB
Afficher la liste des doublons:

http://boisgontierjacques.free.fr/pages_site/FiltreElabore.htm#ListeNomsSan sDoublons

JB
On 30 oct, 22:52, JB wrote:
http://cjoint.com/?kEw0FrXzjM

JB

On 30 oct, 22:17, "Bastan" wrote:



Merci,

Impeccable, MAIS, cette formule me marque la cellule PRECEDENTE aux
doublons ...
Si le doublon est dans A10 et A25, ce sont A9 et A24 qui seront
surlignées.....

N'y a t il pas moyen de ... viser juste ?

Et accessoirement, pourrais tu me "traduire" cette formule ?
Elle n'est pas aussi explicite que les autres fonctions....

"JB" a écrit dans le message de news:

Bonsoir,

Avec la MEFC par exemple:

-Sélectionner A2:A1500
-Format/Mise en forme conditionnelle
-Choisir la formule Est:
=NB.SI($A$2:$A$1500;A2)>1- Masquer le texte des messages précéden ts -


- Afficher le texte des messages précédents -



Avatar
Bastan
Ok ça y est !
Mulet que je suis, je recopiais simplement la formule en incluant la cellule
A1, alors que la formule part de A2, d'où le décalage !
Ca marche impec. Tout à fait ce que je cherchais.
Et plein d'infos sur ton site !!!

Merci à tous.
Avatar
Tatanka
Après l'avoir réessayé, il ne me convient pas non plus ;-)

A+

Serge



"Bastan" a écrit dans le message de news: 4727a7ed$0$5111$
Merci Serge, mais le résultat ne me convient pas trop, car cela ne me marque pas les données dans la liste de base,
et le résultat dans la deuxième colonne est assez fouillis.

Tu me demandes... Je te réponds ;-)))

Mais comme j'aime bien "bidouiller", je vais essayer de modifier ton code...

Merci encore ;-)




"Tatanka" a écrit dans le message de news:
Bonsoir,

Un petit exemple avec des données en A1:A10 :

Sub Doublons()
Dim liste(1 To 10, 1 To 1)
For i = 1 To 10
n = Application.CountIf([a1:a10], Cells(i, 1))
If n >= 2 Then
k = k + 1
liste(k, 1) = Cells(i, 1)
End If
Next i
[b1:b10] = liste
End Sub

Est-ce que le résultat te convient ?

Serge



"Bastan" a écrit dans le message de news: 47278f4f$0$27397$
Bonjour,

Je ne maitrise que les fonctions "de base" d'excel, et je suis confronté à un petit pb...

J'ai environ 1500 "valeurs" (chiffres, lettres, et combinaison des deux) dans une colonne, et je souhaiterais trouver ceux qui
sont en double.
Et pourquoi pas... Les afficher dans une colonne suivante, mais ça, je peux m'en passer ;-)

Y a t il un moyen à ma portée (très légères notions de macros, et de vba) ??

Merci d'avance de votre aide ;-)