Discussion :

[etiennep17]

Bonjour à tous,

dans le cadre d'un projet étudiant, j'aimerais trier une liste d'adresses mails en ne retenant que les .com. Pour cela, j'ai écris quelques lignes en VBA mais Excel plante dès que je lance le macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub suppr_mail()
 
Dim der_ligne As Integer
Dim ligne As Integer
 
der_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
ligne = 1
 
While (ligne <= der_ligne)
 
 If Not (Cells(ligne, 1) Like ("*.com*")) Then
    Cells(ligne, 1).EntireRow.Delete
    ligne = ligne - 1
End If
 
 
ligne = ligne + 1
 
Wend
End Sub

A noter que, lorsque je supprime la ligne "ligne = ligne - 1", le pgrm tourne correctement mais ne trie qu'un mail sur deux évidemment...

Avez-vous un avis sur la question ? Je précise que c'est mon 1er code VBA, donc l'erreur est sûrement évidente

Bonne journée !

[Patrice740]

Bonjour,

Lorsqu'on supprime des lignes il faut partir de la dernière vers la première sinon la ligne supprimée est remplacée par la suivante mais n'est pas testée puisqu'on passe à la ligne en dessous.

[patricktoulon]

bonjour
fait le en un coup avec autofilter et specialcells(xlvisible).entirerow.delete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
    With ActiveSheet    'with sheets(celui que tuveux)
        With .Range("A1", .Cells(Rows.Count, "A").End(xlUp))    'adapter ta plage
            .AutoFilter Field:=1, Criteria1:="<>**.com"
            .SpecialCells(xlVisible).EntireRow.Delete
        '.AutoFilter
        End With
    End With
End Sub