Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA Excel : supprimer les doublons dans une feuille

VBA Excel : supprimer les doublons dans une feuille

3 réponses
Avatar
ymer.hyseni
Bonjour tout le monde,

Dans une feuille Excel j'ai toute une liste que j'aimerais supprimer
uniquement si il y a des doublons.

Pour ca je me base sur la colonne qui contien les num=E9ros personnel
des assur=E9s, 8 caract=E8res num=E9riques.

Comment dois-je faire pour supprimer d=E8s qu'il y a deux lignes qui
contiennent le m=EAme num=E9ro personnel? (il faut qu'il garde l'une
d'elle bien-sur)

Merci =E0 vous et =E0 bient=F4t.
Signaler un problème avec ce contenu

3 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
Bonjour,


http://boisgontierjacques.free.fr/pages_site/cellules.htm#Suppression
de doublons

JB

On 29 nov, 12:14, wrote:
Bonjour tout le monde,

Dans une feuille Excel j'ai toute une liste que j'aimerais supprimer
uniquement si il y a des doublons.

Pour ca je me base sur la colonne qui contien les numéros personnel
des assurés, 8 caractères numériques.

Comment dois-je faire pour supprimer dès qu'il y a deux lignes qui
contiennent le même numéro personnel? (il faut qu'il garde l'une
d'elle bien-sur)

Merci à vous et à bientôt.


Avatar
JB
Les clés sont dans la colonne A à partir de A2:

Sub supDoublonsTradi()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[A1].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
For i = [A65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

JB




On 29 nov, 12:18, JB wrote:
Bonjour,

http://boisgontierjacques.free.fr/pages_site/cellules.htm#Suppression
de doublons

JB

On 29 nov, 12:14, wrote:



Bonjour tout le monde,

Dans une feuille Excel j'ai toute une liste que j'aimerais supprimer
uniquement si il y a des doublons.

Pour ca je me base sur la colonne qui contien les numéros personnel
des assurés, 8 caractères numériques.

Comment dois-je faire pour supprimer dès qu'il y a deux lignes qui
contiennent le même numéro personnel? (il faut qu'il garde l'une
d'elle bien-sur)

Merci à vous et à bientôt.- Masquer le texte des messages préc édents -


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



Avatar
ymer.hyseni
On 29 nov, 12:25, JB wrote:
Les clés sont dans la colonne A à partir de A2:

Sub supDoublonsTradi()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[A1].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
For i = [A65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

JB

On 29 nov, 12:18, JB wrote:



Bonjour,

http://boisgontierjacques.free.fr/pages_site/cellules.htm#Suppression
de doublons

JB

On 29 nov, 12:14, wrote:

Bonjour tout le monde,

Dans une feuille Excel j'ai toute une liste que j'aimerais supprimer
uniquement si il y a des doublons.

Pour ca je me base sur la colonne qui contien les numéros personnel
des assurés, 8 caractères numériques.

Comment dois-je faire pour supprimer dès qu'il y a deux lignes qui
contiennent le même numéro personnel? (il faut qu'il garde l'une
d'elle bien-sur)

Merci à vous et à bientôt.- Masquer le texte des messages préc édents -


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


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


Bonjour,

ca joue super bien...

merci et à bientôt.

Ymer