Discussion :

[bizjet]

Bonjour à tous et à toutes
Mon problème : je possède un fichier excel avec plusieurs dizaines de milliers
d'adresses email. Toutes dans colonne A. je voudrais en supprimer sous condition, à savoir toutes celles qui auraient une extension précise, du style @truc.com. Pour l'instant, je le fais à la main et c'est long. Merci d'avance pour un truc qui me faciliterait la vie.

[Krovax]

bonjour,
un code brute pour la colonne A les adresse commence en ligne2. (j'avais du temps a tuer ca arrive )

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 suppression()
Dim texte As String
Dim i As Long
Dim DerniereLigne As Long
deb::
texte = InputBox("Entrer le type d'addresse a supprimer")
If texte = "" Then Exit Sub
Select Case MsgBox("Les addresses finissant par " & texte & " seront définitivement supprimer." & Chr(13) & "Voulez-vous confirmer cette action?", vbYesNoCancel + vbExclamation)
Case vbNo
    GoTo deb
Case vbCancel
    Exit Sub
Case vbYes
    DerniereLigne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
    For i = DerniereLigne To 2 Step -1
        If Right(Cells(i, 1), Len(texte)) = texte Then
            Rows(i).Delete
        End If
    Next i
End Select
End Sub

Si jusqu'a présent tu le faisais a la main cela devrais t'aider.

[drakkar_agfa]

Bonjour bizjet,

Ce n'est pas réellement compliqué.

Est-ce que tu as déja commencé un bout de code?
Sinon, il faudrait commencer par créer une boucle qui parcour la colonne A. (Avec un "For" ou un "While")
Ensuite, pour comparer une chaine, tu peux utiliser "InStr" pour trouver le "@truc.com" et "EntireRow.Delete" pour supprimer si la condition du InStr est remplise.
Regarde l'aide en ligne pour ces functions pour avec des exemples.

N'hésites pas à revenir nous voir si tu as des questions pour ton code!

[Krovax]

Désolé drakkar_agfa j'avais 5min a tuer du coup j'ai pondu un code tout fait (je sais c'est mal)

[drakkar_agfa]

Et oui,
C'est souvent tentant de donner un bout de code directement (moins long pour nous , moins de questions à répondre ) mais l'apprenti apprend moins!

Mais si bizjet, tu as encore des questions, n'hésites pas!