Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Doublons ou pas doublon ?

Doublons ou pas doublon ?

13 réponses
Avatar
Julien FROGER
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y arrive pas

J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une colonne remplie de
10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux fichiers et savoir
les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la feuille A il n'y est
pas les valeurs de la colonne de la feuille B. Si il y a doublon alors qu'il
les mettent en valeur ou qu'il me les montre pour que je puisse les
supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.
Signaler un problème avec ce contenu

10 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
1 2
Avatar
anomymousA
bonjour,

aujourd'hui, 3 fils qui traitent fondamentalement de la même chose. Pour ce
type de problème, ma réponse perso est qu'il faut utiliser dans la mesure du
possible, quand on le maitrise correctement et qu'on en connait les limites,
la fonction d'Excel recherchev puis filtrer sur les eventuels doublons ou non
correspondances.
Si tu veux ensuite faire des choses automatiques utlises l'enregistreur de
macros pour connaitre la fonction en question.

A+



bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y arrive pas

J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une colonne remplie de
10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux fichiers et savoir
les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la feuille A il n'y est
pas les valeurs de la colonne de la feuille B. Si il y a doublon alors qu'il
les mettent en valeur ou qu'il me les montre pour que je puisse les
supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.




Avatar
Thierry
Bonjour,

Tu fais ALT + F11 pour lancer VBE/ Nouveau module et tu copies ce code:

'Quand il y a un ' devant une ligne, cette ligne est considérée comme un
commentaire et n'altère pas le code (coloration en vert)
'Il faut ensuite que tu affecte cette macro à un bouton ou autre objet (clic
droit Barre d'outils Boîte à outils contrôles)

Sub doublons()
'Variables pour définir le titre, le message ainsi que le style de boite de
dialogue à afficher
Dim Message, Style, Titre, Reponse
'Définit le ou les messages à gèrer
Message = "Il n'y a pas ou plus de doublons. Veuillez aussi vérifier que les
données ont bien été saisies dans la première colonne !" ' Définit le
message.
Style = vbExclamation ' Définit les boutons.
Titre = "Suppression des doublons... " ' Définit le titre.
On Error GoTo ERREUR 'Renvoi au message d'erreur...
ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(1)
'on supprime les doublons dans la première colonne
'si vous désirez changer de colonne exemple: "LIGNE = Columns(2)" et ainsi
de suite
LIGNE = Columns(1).Find("*", , , , , xlPrevious).Row
RechercheDoublons:
keep = False
For col = 1 To Rows(LIGNE).Find("*", , , , , xlPrevious).Column
If Cells(LIGNE, col) <> Cells(LIGNE - 1, col) Then keep = True
Next col
If keep = False Then Rows(LIGNE).Delete
LIGNE = LIGNE - 1
If LIGNE > 1 Then GoTo RechercheDoublons
ERREUR: 'Message d'erreur
Reponse = MsgBox(Message, Style, Titre) 'réponse de ce que l'on a définit
plus haut
End Sub

@+

Thierry

"Julien FROGER" a écrit dans le message de news:
BE083971.CFC0%
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y arrive pas

J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une colonne remplie
de

10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux fichiers et
savoir

les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la feuille A il n'y
est

pas les valeurs de la colonne de la feuille B. Si il y a doublon alors
qu'il

les mettent en valeur ou qu'il me les montre pour que je puisse les
supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.



Avatar
Julien FROGER
Merci enormement
Avant que je teste, puis-je avoir le menu qui equivaut à ALT+F11 ? Je suis
sous mac et c pas les memes racourcis.

Merci vraiment

Le 10/01/05 14:26, dans #S$V4$, « Thierry »
a écrit :

Bonjour,

Tu fais ALT + F11 pour lancer VBE/ Nouveau module et tu copies ce code:

'Quand il y a un ' devant une ligne, cette ligne est considérée comme un
commentaire et n'altère pas le code (coloration en vert)
'Il faut ensuite que tu affecte cette macro à un bouton ou autre objet (clic
droit Barre d'outils Boîte à outils contrôles)

Sub doublons()
'Variables pour définir le titre, le message ainsi que le style de boite de
dialogue à afficher
Dim Message, Style, Titre, Reponse
'Définit le ou les messages à gèrer
Message = "Il n'y a pas ou plus de doublons. Veuillez aussi vérifier que les
données ont bien été saisies dans la première colonne !" ' Définit le
message.
Style = vbExclamation ' Définit les boutons.
Titre = "Suppression des doublons... " ' Définit le titre.
On Error GoTo ERREUR 'Renvoi au message d'erreur...
ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(1)
'on supprime les doublons dans la première colonne
'si vous désirez changer de colonne exemple: "LIGNE = Columns(2)" et ainsi
de suite
LIGNE = Columns(1).Find("*", , , , , xlPrevious).Row
RechercheDoublons:
keep = False
For col = 1 To Rows(LIGNE).Find("*", , , , , xlPrevious).Column
If Cells(LIGNE, col) <> Cells(LIGNE - 1, col) Then keep = True
Next col
If keep = False Then Rows(LIGNE).Delete
LIGNE = LIGNE - 1
If LIGNE > 1 Then GoTo RechercheDoublons
ERREUR: 'Message d'erreur
Reponse = MsgBox(Message, Style, Titre) 'réponse de ce que l'on a définit
plus haut
End Sub

@+

Thierry

"Julien FROGER" a écrit dans le message de news:
BE083971.CFC0%
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y arrive pas

J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une colonne remplie
de

10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux fichiers et
savoir

les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la feuille A il n'y
est

pas les valeurs de la colonne de la feuille B. Si il y a doublon alors
qu'il

les mettent en valeur ou qu'il me les montre pour que je puisse les
supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.







Avatar
GVentre
Re,

Outils>Macro>Visual basic editor

Cdlt,

GVentre




Merci enormement
Avant que je teste, puis-je avoir le menu qui equivaut à ALT+F11 ? Je suis
sous mac et c pas les memes racourcis.

Merci vraiment

Le 10/01/05 14:26, dans #S$V4$, « Thierry »



Bonjour,

Tu fais ALT + F11 pour lancer VBE/ Nouveau module et tu copies ce code:

'Quand il y a un ' devant une ligne, cette ligne est considérée comme un
commentaire et n'altère pas le code (coloration en vert)
'Il faut ensuite que tu affecte cette macro à un bouton ou autre objet (clic
droit Barre d'outils Boîte à outils contrôles)

Sub doublons()
'Variables pour définir le titre, le message ainsi que le style de boite de
dialogue à afficher
Dim Message, Style, Titre, Reponse
'Définit le ou les messages à gèrer
Message = "Il n'y a pas ou plus de doublons. Veuillez aussi vérifier que les
données ont bien été saisies dans la première colonne !" ' Définit le
message.
Style = vbExclamation ' Définit les boutons.
Titre = "Suppression des doublons... " ' Définit le titre.
On Error GoTo ERREUR 'Renvoi au message d'erreur...
ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(1)
'on supprime les doublons dans la première colonne
'si vous désirez changer de colonne exemple: "LIGNE = Columns(2)" et ainsi
de suite
LIGNE = Columns(1).Find("*", , , , , xlPrevious).Row
RechercheDoublons:
keep = False
For col = 1 To Rows(LIGNE).Find("*", , , , , xlPrevious).Column
If Cells(LIGNE, col) <> Cells(LIGNE - 1, col) Then keep = True
Next col
If keep = False Then Rows(LIGNE).Delete
LIGNE = LIGNE - 1
If LIGNE > 1 Then GoTo RechercheDoublons
ERREUR: 'Message d'erreur
Reponse = MsgBox(Message, Style, Titre) 'réponse de ce que l'on a définit
plus haut
End Sub

@+

Thierry

"Julien FROGER" a écrit dans le message de news:
BE083971.CFC0%


bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y arrive pas

J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une colonne remplie


de



10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux fichiers et


savoir



les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la feuille A il n'y


est



pas les valeurs de la colonne de la feuille B. Si il y a doublon alors


qu'il



les mettent en valeur ou qu'il me les montre pour que je puisse les
supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.















Avatar
Vincnet.
Outils/Macro/Visual Basic Editor


-----Message d'origine-----
Merci enormement
Avant que je teste, puis-je avoir le menu qui equivaut à
ALT+F11 ? Je suis

sous mac et c pas les memes racourcis.

Merci vraiment

Le 10/01/05 14:26, dans #S$V4
$, « Thierry »


Bonjour,

Tu fais ALT + F11 pour lancer VBE/ Nouveau module et tu
copies ce code:



'Quand il y a un ' devant une ligne, cette ligne est
considérée comme un


commentaire et n'altère pas le code (coloration en vert)
'Il faut ensuite que tu affecte cette macro à un bouton
ou autre objet (clic


droit Barre d'outils Boîte à outils contrôles)

Sub doublons()
'Variables pour définir le titre, le message ainsi que
le style de boite de


dialogue à afficher
Dim Message, Style, Titre, Reponse
'Définit le ou les messages à gèrer
Message = "Il n'y a pas ou plus de doublons. Veuillez
aussi vérifier que les


données ont bien été saisies dans la première
colonne !" ' Définit le


message.
Style = vbExclamation ' Définit les boutons.
Titre = "Suppression des doublons... " ' Définit le
titre.


On Error GoTo ERREUR 'Renvoi au message d'erreur...
ActiveSheet.UsedRange.EntireRow.Sort
Key1:¬tiveSheet.UsedRange.Cells(1)


'on supprime les doublons dans la première colonne
'si vous désirez changer de colonne exemple: "LIGNE =
Columns(2)" et ainsi


de suite
LIGNE = Columns(1).Find("*", , , , , xlPrevious).Row
RechercheDoublons:
keep = False
For col = 1 To Rows(LIGNE).Find("*", , , , ,
xlPrevious).Column


If Cells(LIGNE, col) <> Cells(LIGNE - 1, col) Then keep
= True


Next col
If keep = False Then Rows(LIGNE).Delete
LIGNE = LIGNE - 1
If LIGNE > 1 Then GoTo RechercheDoublons
ERREUR: 'Message d'erreur
Reponse = MsgBox(Message, Style, Titre) 'réponse de ce
que l'on a définit


plus haut
End Sub

@+

Thierry

"Julien FROGER" a écrit dans
le message de news:


BE083971.CFC0%
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y
arrive pas




J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont
une colonne remplie



de
10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les
deux fichiers et



savoir
les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de
la feuille A il n'y



est
pas les valeurs de la colonne de la feuille B. Si il y
a doublon alors



qu'il
les mettent en valeur ou qu'il me les montre pour que
je puisse les



supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.







.





Avatar
Ellimac
Bonjour,

Tu copies les adresses de la 2nde feuille à la suite de
celles de la 1ère. Puis en te positionnant sur cette liste
(qui doit avoir un titre), tu vas dans
Données/Filtre/Filtre élaboré :
Tu peux filtrer vers un autre emplacement
Indiquer à partir de quelle cellule tu veux le résultat
Et cocher "Extraction sans doublon"

Camille

-----Message d'origine-----
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y
arrive pas


J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une
colonne remplie de

10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux
fichiers et savoir

les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la
feuille A il n'y est

pas les valeurs de la colonne de la feuille B. Si il y a
doublon alors qu'il

les mettent en valeur ou qu'il me les montre pour que je
puisse les

supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.

.



Avatar
Thierry
Outils/Macro/Visual Basic Editoe...
Thiery

"Julien FROGER" a écrit dans le message de news:
BE0843B1.D35B%
Merci enormement
Avant que je teste, puis-je avoir le menu qui equivaut à ALT+F11 ? Je suis
sous mac et c pas les memes racourcis.

Merci vraiment

Le 10/01/05 14:26, dans #S$V4$, « Thierry »

Bonjour,

Tu fais ALT + F11 pour lancer VBE/ Nouveau module et tu copies ce code:

'Quand il y a un ' devant une ligne, cette ligne est considérée comme un
commentaire et n'altère pas le code (coloration en vert)
'Il faut ensuite que tu affecte cette macro à un bouton ou autre objet
(clic


droit Barre d'outils Boîte à outils contrôles)

Sub doublons()
'Variables pour définir le titre, le message ainsi que le style de boite
de


dialogue à afficher
Dim Message, Style, Titre, Reponse
'Définit le ou les messages à gèrer
Message = "Il n'y a pas ou plus de doublons. Veuillez aussi vérifier que
les


données ont bien été saisies dans la première colonne !" ' Définit le
message.
Style = vbExclamation ' Définit les boutons.
Titre = "Suppression des doublons... " ' Définit le titre.
On Error GoTo ERREUR 'Renvoi au message d'erreur...
ActiveSheet.UsedRange.EntireRow.Sort
Key1:¬tiveSheet.UsedRange.Cells(1)


'on supprime les doublons dans la première colonne
'si vous désirez changer de colonne exemple: "LIGNE = Columns(2)" et
ainsi


de suite
LIGNE = Columns(1).Find("*", , , , , xlPrevious).Row
RechercheDoublons:
keep = False
For col = 1 To Rows(LIGNE).Find("*", , , , , xlPrevious).Column
If Cells(LIGNE, col) <> Cells(LIGNE - 1, col) Then keep = True
Next col
If keep = False Then Rows(LIGNE).Delete
LIGNE = LIGNE - 1
If LIGNE > 1 Then GoTo RechercheDoublons
ERREUR: 'Message d'erreur
Reponse = MsgBox(Message, Style, Titre) 'réponse de ce que l'on a
définit


plus haut
End Sub

@+

Thierry

"Julien FROGER" a écrit dans le message de
news:


BE083971.CFC0%
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y arrive pas

J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une colonne
remplie



de
10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux fichiers et
savoir

les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la feuille A il
n'y



est
pas les valeurs de la colonne de la feuille B. Si il y a doublon alors
qu'il

les mettent en valeur ou qu'il me les montre pour que je puisse les
supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.











Avatar
Julien FROGER
Salut

Ta solution aparait hyper facile à faire.
Mon probleme (j'ai essayé) c'est que dans ce fichier il y a 20 colonnes et
non pas une seule. La premiere colonne est la colonne "email". Si je filtre
celle là il va me supprimer ... L'email doublon mais pas la ligne non ?????

Merci


Le 10/01/05 14:50, dans 1a5d01c4f723$c7a657e0$, « Ellimac »
a écrit :

Bonjour,

Tu copies les adresses de la 2nde feuille à la suite de
celles de la 1ère. Puis en te positionnant sur cette liste
(qui doit avoir un titre), tu vas dans
Données/Filtre/Filtre élaboré :
Tu peux filtrer vers un autre emplacement
Indiquer à partir de quelle cellule tu veux le résultat
Et cocher "Extraction sans doublon"

Camille

-----Message d'origine-----
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y
arrive pas


J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une
colonne remplie de

10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux
fichiers et savoir

les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la
feuille A il n'y est

pas les valeurs de la colonne de la feuille B. Si il y a
doublon alors qu'il

les mettent en valeur ou qu'il me les montre pour que je
puisse les

supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.

.





Avatar
Julien FROGER
Thierry, merci bcp.
J'ai pu trifouiller un peu ca (c la 1ere fois que je vais dans VBA)
J'ai copié collé ton code mais quand j'essaye d'executer il me met un
message d'erreur. (il comprends pas le code...)

Un code VBA commence bien par :
Sub doublons() ?
Et finit bien par
End Sub ?

Merci bcp


Le 10/01/05 14:26, dans #S$V4$, « Thierry »
a écrit :

Bonjour,

Tu fais ALT + F11 pour lancer VBE/ Nouveau module et tu copies ce code:

'Quand il y a un ' devant une ligne, cette ligne est considérée comme un
commentaire et n'altère pas le code (coloration en vert)
'Il faut ensuite que tu affecte cette macro à un bouton ou autre objet (clic
droit Barre d'outils Boîte à outils contrôles)

Sub doublons()
'Variables pour définir le titre, le message ainsi que le style de boite de
dialogue à afficher
Dim Message, Style, Titre, Reponse
'Définit le ou les messages à gèrer
Message = "Il n'y a pas ou plus de doublons. Veuillez aussi vérifier que les
données ont bien été saisies dans la première colonne !" ' Définit le
message.
Style = vbExclamation ' Définit les boutons.
Titre = "Suppression des doublons... " ' Définit le titre.
On Error GoTo ERREUR 'Renvoi au message d'erreur...
ActiveSheet.UsedRange.EntireRow.Sort Key1:¬tiveSheet.UsedRange.Cells(1)
'on supprime les doublons dans la première colonne
'si vous désirez changer de colonne exemple: "LIGNE = Columns(2)" et ainsi
de suite
LIGNE = Columns(1).Find("*", , , , , xlPrevious).Row
RechercheDoublons:
keep = False
For col = 1 To Rows(LIGNE).Find("*", , , , , xlPrevious).Column
If Cells(LIGNE, col) <> Cells(LIGNE - 1, col) Then keep = True
Next col
If keep = False Then Rows(LIGNE).Delete
LIGNE = LIGNE - 1
If LIGNE > 1 Then GoTo RechercheDoublons
ERREUR: 'Message d'erreur
Reponse = MsgBox(Message, Style, Titre) 'réponse de ce que l'on a définit
plus haut
End Sub

@+

Thierry

"Julien FROGER" a écrit dans le message de news:
BE083971.CFC0%
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y arrive pas

J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une colonne remplie
de

10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux fichiers et
savoir

les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la feuille A il n'y
est

pas les valeurs de la colonne de la feuille B. Si il y a doublon alors
qu'il

les mettent en valeur ou qu'il me les montre pour que je puisse les
supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.







Avatar
Clément Marcotte
Bonjour,

Pour le filtre élaboré, il y a une marche à suivre par là:

http://www.excelabo.net/xl/filtris.php#filtreelaboréex

"Julien FROGER" a écrit dans le message de
news:BE084F3A.D5F7%
Salut

Ta solution aparait hyper facile à faire.
Mon probleme (j'ai essayé) c'est que dans ce fichier il y a 20
colonnes et

non pas une seule. La premiere colonne est la colonne "email". Si je
filtre

celle là il va me supprimer ... L'email doublon mais pas la ligne
non ?????


Merci


Le 10/01/05 14:50, dans 1a5d01c4f723$c7a657e0$, «
Ellimac »


Bonjour,

Tu copies les adresses de la 2nde feuille à la suite de
celles de la 1ère. Puis en te positionnant sur cette liste
(qui doit avoir un titre), tu vas dans
Données/Filtre/Filtre élaboré :
Tu peux filtrer vers un autre emplacement
Indiquer à partir de quelle cellule tu veux le résultat
Et cocher "Extraction sans doublon"

Camille

-----Message d'origine-----
bonjour

Je suis coincé j'ai un truc a faire sur excel et j'y
arrive pas


J'ai un classeur excel
Dedans j'ai deux feuilles de calcul qui chacunes ont une
colonne remplie de

10000 adresses email.

Mon probleme est que j'aimerai pouvoir comparer les deux
fichiers et savoir

les différences qu'il y a entre eux.

En fait la premiere feuille (A) a 12000 emails
La deuxieme (B) a 500 emails
J'aimerais que Excel verifie que dans la colonne de la
feuille A il n'y est

pas les valeurs de la colonne de la feuille B. Si il y a
doublon alors qu'il

les mettent en valeur ou qu'il me les montre pour que je
puisse les

supprimer.

En fait je veut juste rechercher les doublons...

Merci de votre aide.

.









1 2