Effacer toutes les lignes

Question

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!


Configuration: Windows 7 / Firefox 4.0.1

Misterdownload · Answer

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 :)

Mike-31 · Answer

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

Raymond PENTIER · Answer

Quelle version ?

Normalement il suffit de sélectionner "Données/Supprimer les doublons" !

Effacer toutes les lignes

3 réponses

Discussions similaires

Newsletters