Effacer toutes les lignes
pietro1980
-
Raymond PENTIER Messages postés 71871 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 71871 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je voudrais savoir comment effacer tous les lignes excel contenant un meme nom (sachant qu'il y a plusieurs noms qui se repetent)
Ex.
1er ligne: Pierre Martin 2eme colonne: 09/08/69 Paris
2eme ligne: Pierre Martin/ 09/03/65 Bordeaux
3eme ligne: François Coupé/ 05/09/90 Paris
4eme ligne: François Coupé/ 09/03/65 Lyon
Voila je voudrais une fonction qui me permette d'effacer tous les lignes où le nom Pierre martin se repete, ainsi d'avoir :
Pierre Martin 09/08/69 Paris
François Coupé/ 05/09/90 Paris
Merci d'avance!
Je voudrais savoir comment effacer tous les lignes excel contenant un meme nom (sachant qu'il y a plusieurs noms qui se repetent)
Ex.
1er ligne: Pierre Martin 2eme colonne: 09/08/69 Paris
2eme ligne: Pierre Martin/ 09/03/65 Bordeaux
3eme ligne: François Coupé/ 05/09/90 Paris
4eme ligne: François Coupé/ 09/03/65 Lyon
Voila je voudrais une fonction qui me permette d'effacer tous les lignes où le nom Pierre martin se repete, ainsi d'avoir :
Pierre Martin 09/08/69 Paris
François Coupé/ 05/09/90 Paris
Merci d'avance!
A voir également:
- Effacer toutes les lignes
- Effacer les données de navigation sur android - Guide
- Comment effacer les messages sur google - Guide
- Effacer iphone - Guide
- Comment effacer une page word - Guide
- Filtre excel ne fonctionne pas sur toutes les lignes ✓ - Forum Excel
3 réponses
Salut,
J'ai une petite astuce ça vaut ce que ça vaut..
Ctrl H et là en haut tu tapes le nom que tu veux effacer
en dessous tu ne mets rien, fais suivant..Si ça ne marche pas bien
Fais : Ctrl Z :)
J'ai une petite astuce ça vaut ce que ça vaut..
Ctrl H et là en haut tu tapes le nom que tu veux effacer
en dessous tu ne mets rien, fais suivant..Si ça ne marche pas bien
Fais : Ctrl Z :)
Salut,
Colle ce code dans un module et assicie le à un bouton (si tu ne sais pas faire, reviens sur la discussion)
Sub Supp_Doublons()
Dim n As Integer
Dim nodoublons As Collection
Set nodoublons = New Collection
Dim Doublons As Collection
Set Doublons = New Collection
For n = 2 To Range("A65536").End(xlUp).Row
On Error Resume Next
nodoublons.Add Range("A" & n), CStr(Range("A" & n))
If Err.Number <> 0 Then Doublons.Add n
On Error GoTo 0
Next n
For n = Doublons.Count To 1 Step -1
Rows(Doublons(n)).Delete
Next n
End Sub
Colle ce code dans un module et assicie le à un bouton (si tu ne sais pas faire, reviens sur la discussion)
Sub Supp_Doublons()
Dim n As Integer
Dim nodoublons As Collection
Set nodoublons = New Collection
Dim Doublons As Collection
Set Doublons = New Collection
For n = 2 To Range("A65536").End(xlUp).Row
On Error Resume Next
nodoublons.Add Range("A" & n), CStr(Range("A" & n))
If Err.Number <> 0 Then Doublons.Add n
On Error GoTo 0
Next n
For n = Doublons.Count To 1 Step -1
Rows(Doublons(n)).Delete
Next n
End Sub
