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.
Je vois que la réponse n'a pas été postée. Voici une explication:
Tu dois insérer un bouton sur ta feuille ou dans le menu ex:
1/ Clic droit souris sur la barre d'outils Ecel et sélectionner "Boîte à outils contrôles" 2/ Clic sur l'icône "Bouton de commande (le n°4 en bas à gauche) 3/ Clic gauche sur ta feuille et tout en restant appuyé, tire vers le bas et à droite pour insérer le bouton sur ta feuille 4/ Double clic sur le bouton
Tu es maintenant dans VBE et tu vois:
Private Sub CommandButton1_Click()
End Sub
Tu dois saisir le nom de la macro comme ceci:
Private Sub CommandButton1_Click() doublons End Sub
Donc tu as dans ton module ( dans VBE double clic sur le module) ta macro) :
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
Et sur ta feuille (dans VBE double clic sur le nom de la feuille ou est inséré le bouton) :
Private Sub CommandButton1_Click() doublons End Sub
Si tu change le nom de ton bouton, il faut en faire autant dans ces propriétés:
1/ Sur ta feuille ou se trouve ton bouton, fais un clic droit souris sur lui même et sélectionne "Propriétés" 2/ En haut de la liste se trouve la propriété "Name" et en face à droite son nom 3/ Séléctionne le et modifie le comme ceci "NouveauNomDuBouton" (doit être le même sinon, la macro ne peur pas trouvé le bouton puisque le nom est érronné)
Private Sub NouveauNomDuBouton_Click() doublons End Sub
Pour tester, il faut désactiver le mode création en cliquant sur son icône en haut à gauche "Désactiver le mode création "
Ensuite 1 clic sur le bouton pour supprimer les doublons...
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.
Bonsoir,
Je vois que la réponse n'a pas été postée. Voici une explication:
Tu dois insérer un bouton sur ta feuille ou dans le menu ex:
1/ Clic droit souris sur la barre d'outils Ecel et sélectionner "Boîte à
outils contrôles"
2/ Clic sur l'icône "Bouton de commande (le n°4 en bas à gauche)
3/ Clic gauche sur ta feuille et tout en restant appuyé, tire vers le bas et
à droite pour insérer le bouton sur ta feuille
4/ Double clic sur le bouton
Tu es maintenant dans VBE et tu vois:
Private Sub CommandButton1_Click()
End Sub
Tu dois saisir le nom de la macro comme ceci:
Private Sub CommandButton1_Click()
doublons
End Sub
Donc tu as dans ton module ( dans VBE double clic sur le module) ta macro) :
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
Et sur ta feuille (dans VBE double clic sur le nom de la feuille ou est
inséré le bouton) :
Private Sub CommandButton1_Click()
doublons
End Sub
Si tu change le nom de ton bouton, il faut en faire autant dans ces
propriétés:
1/ Sur ta feuille ou se trouve ton bouton, fais un clic droit souris sur lui
même et sélectionne "Propriétés"
2/ En haut de la liste se trouve la propriété "Name" et en face à droite son
nom
3/ Séléctionne le et modifie le comme ceci "NouveauNomDuBouton" (doit être
le même sinon, la macro ne peur pas trouvé le bouton puisque le nom est
érronné)
Private Sub NouveauNomDuBouton_Click()
doublons
End Sub
Pour tester, il faut désactiver le mode création en cliquant sur son icône
en haut à gauche "Désactiver le mode création "
Ensuite 1 clic sur le bouton pour supprimer les doublons...
Thierry
"Julien FROGER" <julien@antique-wine.com> a écrit dans le message de news:
BE083971.CFC0%julien@antique-wine.com...
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.
Je vois que la réponse n'a pas été postée. Voici une explication:
Tu dois insérer un bouton sur ta feuille ou dans le menu ex:
1/ Clic droit souris sur la barre d'outils Ecel et sélectionner "Boîte à outils contrôles" 2/ Clic sur l'icône "Bouton de commande (le n°4 en bas à gauche) 3/ Clic gauche sur ta feuille et tout en restant appuyé, tire vers le bas et à droite pour insérer le bouton sur ta feuille 4/ Double clic sur le bouton
Tu es maintenant dans VBE et tu vois:
Private Sub CommandButton1_Click()
End Sub
Tu dois saisir le nom de la macro comme ceci:
Private Sub CommandButton1_Click() doublons End Sub
Donc tu as dans ton module ( dans VBE double clic sur le module) ta macro) :
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
Et sur ta feuille (dans VBE double clic sur le nom de la feuille ou est inséré le bouton) :
Private Sub CommandButton1_Click() doublons End Sub
Si tu change le nom de ton bouton, il faut en faire autant dans ces propriétés:
1/ Sur ta feuille ou se trouve ton bouton, fais un clic droit souris sur lui même et sélectionne "Propriétés" 2/ En haut de la liste se trouve la propriété "Name" et en face à droite son nom 3/ Séléctionne le et modifie le comme ceci "NouveauNomDuBouton" (doit être le même sinon, la macro ne peur pas trouvé le bouton puisque le nom est érronné)
Private Sub NouveauNomDuBouton_Click() doublons End Sub
Pour tester, il faut désactiver le mode création en cliquant sur son icône en haut à gauche "Désactiver le mode création "
Ensuite 1 clic sur le bouton pour supprimer les doublons...
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.
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.
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.
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.
News pour elie
Bonjour, et merci à Thierry Je ne suis pas du tout intéressé par le problème évoqué, mais j'aimerai avoir toujours les mêmes explications de chacun. C'est tellement clair, qu'on croit lire un livre de vulgarisation. On aura du mal ensuite à ne pas savoir faire comment utiliser un bouton et le reste. J'ai dit "aucun intérêt pour moi", MAIS je conserve dans un coin cette explication. Merci à tous ceux qui en feront de même ( encore que beaucoup prennent de leur temps pour diriger les explications) La lecture de ces messages me fait perdre énormément de temps, mais quel enseignement !! Salut à tous et merci "Thierry" a écrit dans le message de news:Os$
Bonsoir,
Je vois que la réponse n'a pas été postée. Voici une explication:
Tu dois insérer un bouton sur ta feuille ou dans le menu ex:
1/ Clic droit souris sur la barre d'outils Ecel et sélectionner "Boîte à outils contrôles" 2/ Clic sur l'icône "Bouton de commande (le n°4 en bas à gauche) 3/ Clic gauche sur ta feuille et tout en restant appuyé, tire vers le bas et
à droite pour insérer le bouton sur ta feuille 4/ Double clic sur le bouton
Tu es maintenant dans VBE et tu vois:
Private Sub CommandButton1_Click()
End Sub
Tu dois saisir le nom de la macro comme ceci:
Private Sub CommandButton1_Click() doublons End Sub
Donc tu as dans ton module ( dans VBE double clic sur le module) ta macro) :
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
Et sur ta feuille (dans VBE double clic sur le nom de la feuille ou est inséré le bouton) :
Private Sub CommandButton1_Click() doublons End Sub
Si tu change le nom de ton bouton, il faut en faire autant dans ces propriétés:
1/ Sur ta feuille ou se trouve ton bouton, fais un clic droit souris sur lui
même et sélectionne "Propriétés" 2/ En haut de la liste se trouve la propriété "Name" et en face à droite son
nom 3/ Séléctionne le et modifie le comme ceci "NouveauNomDuBouton" (doit être le même sinon, la macro ne peur pas trouvé le bouton puisque le nom est érronné)
Private Sub NouveauNomDuBouton_Click() doublons End Sub
Pour tester, il faut désactiver le mode création en cliquant sur son icône en haut à gauche "Désactiver le mode création "
Ensuite 1 clic sur le bouton pour supprimer les doublons...
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.
Bonjour,
et merci à Thierry
Je ne suis pas du tout intéressé par le problème évoqué, mais j'aimerai
avoir toujours les mêmes explications de chacun. C'est tellement clair,
qu'on croit lire un livre de vulgarisation. On aura du mal ensuite à ne pas
savoir faire comment utiliser un bouton et le reste.
J'ai dit "aucun intérêt pour moi", MAIS je conserve dans un coin cette
explication. Merci à tous ceux qui en feront de même ( encore que
beaucoup prennent de leur temps pour diriger les explications)
La lecture de ces messages me fait perdre énormément de temps, mais quel
enseignement !!
Salut à tous et merci
"Thierry" <tbaroux@wanadoo.fr> a écrit dans le message de
news:Os$XMS29EHA.3856@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Je vois que la réponse n'a pas été postée. Voici une explication:
Tu dois insérer un bouton sur ta feuille ou dans le menu ex:
1/ Clic droit souris sur la barre d'outils Ecel et sélectionner "Boîte à
outils contrôles"
2/ Clic sur l'icône "Bouton de commande (le n°4 en bas à gauche)
3/ Clic gauche sur ta feuille et tout en restant appuyé, tire vers le bas
et
à droite pour insérer le bouton sur ta feuille
4/ Double clic sur le bouton
Tu es maintenant dans VBE et tu vois:
Private Sub CommandButton1_Click()
End Sub
Tu dois saisir le nom de la macro comme ceci:
Private Sub CommandButton1_Click()
doublons
End Sub
Donc tu as dans ton module ( dans VBE double clic sur le module) ta macro)
:
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
Et sur ta feuille (dans VBE double clic sur le nom de la feuille ou est
inséré le bouton) :
Private Sub CommandButton1_Click()
doublons
End Sub
Si tu change le nom de ton bouton, il faut en faire autant dans ces
propriétés:
1/ Sur ta feuille ou se trouve ton bouton, fais un clic droit souris sur
lui
même et sélectionne "Propriétés"
2/ En haut de la liste se trouve la propriété "Name" et en face à droite
son
nom
3/ Séléctionne le et modifie le comme ceci "NouveauNomDuBouton" (doit être
le même sinon, la macro ne peur pas trouvé le bouton puisque le nom est
érronné)
Private Sub NouveauNomDuBouton_Click()
doublons
End Sub
Pour tester, il faut désactiver le mode création en cliquant sur son icône
en haut à gauche "Désactiver le mode création "
Ensuite 1 clic sur le bouton pour supprimer les doublons...
Thierry
"Julien FROGER" <julien@antique-wine.com> a écrit dans le message de news:
BE083971.CFC0%julien@antique-wine.com...
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.
Bonjour, et merci à Thierry Je ne suis pas du tout intéressé par le problème évoqué, mais j'aimerai avoir toujours les mêmes explications de chacun. C'est tellement clair, qu'on croit lire un livre de vulgarisation. On aura du mal ensuite à ne pas savoir faire comment utiliser un bouton et le reste. J'ai dit "aucun intérêt pour moi", MAIS je conserve dans un coin cette explication. Merci à tous ceux qui en feront de même ( encore que beaucoup prennent de leur temps pour diriger les explications) La lecture de ces messages me fait perdre énormément de temps, mais quel enseignement !! Salut à tous et merci "Thierry" a écrit dans le message de news:Os$
Bonsoir,
Je vois que la réponse n'a pas été postée. Voici une explication:
Tu dois insérer un bouton sur ta feuille ou dans le menu ex:
1/ Clic droit souris sur la barre d'outils Ecel et sélectionner "Boîte à outils contrôles" 2/ Clic sur l'icône "Bouton de commande (le n°4 en bas à gauche) 3/ Clic gauche sur ta feuille et tout en restant appuyé, tire vers le bas et
à droite pour insérer le bouton sur ta feuille 4/ Double clic sur le bouton
Tu es maintenant dans VBE et tu vois:
Private Sub CommandButton1_Click()
End Sub
Tu dois saisir le nom de la macro comme ceci:
Private Sub CommandButton1_Click() doublons End Sub
Donc tu as dans ton module ( dans VBE double clic sur le module) ta macro) :
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
Et sur ta feuille (dans VBE double clic sur le nom de la feuille ou est inséré le bouton) :
Private Sub CommandButton1_Click() doublons End Sub
Si tu change le nom de ton bouton, il faut en faire autant dans ces propriétés:
1/ Sur ta feuille ou se trouve ton bouton, fais un clic droit souris sur lui
même et sélectionne "Propriétés" 2/ En haut de la liste se trouve la propriété "Name" et en face à droite son
nom 3/ Séléctionne le et modifie le comme ceci "NouveauNomDuBouton" (doit être le même sinon, la macro ne peur pas trouvé le bouton puisque le nom est érronné)
Private Sub NouveauNomDuBouton_Click() doublons End Sub
Pour tester, il faut désactiver le mode création en cliquant sur son icône en haut à gauche "Désactiver le mode création "
Ensuite 1 clic sur le bouton pour supprimer les doublons...
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.
