Suppressions valeurs multiples
Bonjour
J'ai actuellement une liste sous excel avec une colonne pour des adresses mail
Parmis cette liste il y a certaines que je dois effacer car elles on deja recu le courrier qui leur etait destiné
Donc tout betement je peux faire un rechercher->Remplacer et je supprime celle que je cherche , le probleme est que je dois eliminer plusieurs centaines d'adresses
Donc je cherche une formule un peu comme pour les doublons mais sauf qu'a la fin je ne conserve aucun des deux , je sais que c'est quelque chose de tout bete , mais je ne sais pas comment on appelle ce cas de figure chez excel donc je patauge un peu
Quelqu'un aurait une idée
Bonjour,
Et comment tu sais qu'il ont étés envoyés ? un mémo dans une colonne ?
A+
On utilise un service de mass mailing
Donc on a un listing des gens qui on recu la newsletter en question
Et tu sais importer cette liste dans Excel ?
Oui ce n'est pas un probleme
En gros d'un cotéj'ai la liste globale , complete avec tous les mails de nos contacts
Et d'un autre coté la liste des personnes qui on repondues ,
Ces personnes je veux les soustraire a la liste globale
Alors ça pose pas de problème, tu ne peu évidemment pas communiquer ton classeur mais faudrait savoir..
1°) Nom de la feuille et colonne de la liste globale, et commence à la ligne ?
2°) Si possible la liste mailing devrait être sur la même feuille mais juste une question de temps d'exécution.
3°) Nom de la feuille et colonne de la liste référence, et commence à la ligne ?
Tu dis
Ok
Jai tout mis sur la meme feuille que j'ai appellé liste
liste globale = liste complete = A1-->A2457
liste référence = liste de ceux qui ont recus = B1--->B227
Est ce complet ?
Un exemple suivant les renseignements que tu a donné.
Pour faire fonctionner tu recopie le Module1 dans ton classeur
Tu envoi avec F5 ou un bouton
Le bouton CréerListe est juste pour la démo et rétablir une liste test.
A+
Oui j'ai testé ca marche
J'ai visualisé le code pour essayer de comprendre mais , en fait il n'existe pas une fonction type pour ce genre de taches ni une fonction pré integrée comme suppression des doublons
En fait tu crée des boucles pour comparer et voir si l'adresse X , Y ou Z est presente , si oui tu la supprime , ainsi de suite en cherchant les 247 adresses de la colonne B dans les 3000 adresses de A
Et a la fin tu supprime pour de bon la colonne B
En revoyant ce code cela me rends presque nostalgique du c++
Beh pourquoi t'a pas fais ça en C++
Ça m'aurais éviter de pour m'avoir permis de me casser la tête sur ton problème.
Bonsoir,
Merci à Lermite pour la solution qui correspond presque à ce que je cherche. Mon cas un peu différent.
J'ai une liste de valeurs dans un fichier qu'on va appeler "Adresses n'existant plus.xlsm", et un fichier "Clientèle.xlsm" qui contient plusieurs feuilles, avec des adresses mails disséminées un peu partout.
Le but du jeu est, à partir de ma liste d'adresses du fichier "Adresses n'existant plus", de retrouver dans "Clientèle" les adresses et transformer le "@" par " AT ". (oui, je ne veux pas les faire disparaitre, juste les mettre en évidence).
J'avais pensé à ce code mais ça effectue les modification dans le fichier "Adresses......." et encore, une ligne sur 2 !!!! pas exactement ce que je veux....
Dim Ws As Worksheet
DernièreLigne = Workbooks("Adresses n'existant plus.xlsm").Worksheets("Feuil1").Range("A1000").End(xlUp).Row
For i = 1 To DernièreLigne
For Each Ws In Workbooks("Clientèle.xlsm").Worksheets
Cells.Find(What:=Workbooks("Adresses n'existant plus.xlsm").Worksheets("Feuil1").Range("A" & i).Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
With Selection
.Value = Replace(Selection.Value, "@", " AT ")
.Font.ThemeColor = xlThemeColorDark1
.Font.TintAndShade = 0
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
.Interior.Color = 255
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
End With
Next
i = i + 1
Next iMerci pour le fichier "Retour IFT". Il me manque quelques commentaires dans le code pour bien comprendre. Dommage, j'aurais aimé arriver à la modifier pour y arriver tout seul, mais je n'y arrive pas. A l'occasion, s'il est possible d'y mettre quelques petits commentaires, ce serait super.
Encore merci !
Bonjour,
Pour ce qui concerne tes sauts de lignes, supprime le i = i + 1 juste avant le Next.
Essaye ce code, je ne l'ai pas testé mais ce devrait être une bonne base.
Option Explicit
Option Compare Text 'avec cette option la comparaison ne fait pas de distinction entre Majuscule et minuscule
Public Sub ModifieMailAdresse()
Dim Ws As Worksheet
Dim L, Cel As Range
Dim Wks As Worksheet
Dim Lig As Long
Application.ScreenUpdating = False
Set Wks = Workbooks("Adresses n'existant plus.xlsm").Sheets("Feuil1")
For Lig = 1 To Wks.Cells(Rows.Count, 1).End(xlUp).Row
Set Cel = Wks.Cells(Lig, 1)
For Each Ws In Workbooks("Clientèle.xlsm").Worksheets
With Ws.Cells
Set L = .Find(Cel.Value, LookIn:=xlValues)
If Not L Is Nothing Then
'Une occurence a été trouvée
With L
.Value = Replace(L.Value, "@", " AT ")
.Font.ThemeColor = xlThemeColorDark1
.Font.TintAndShade = 0
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
.Interior.Color = 255
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
End With
Exit For
End If
End With
Next Ws
Next Lig
Application.ScreenUpdating = True
End SubSi une adresse peut se retrouver plusieurs fois dans le classeur client il faudra modifier (ajouter) un peu de code, tu dis.
A+
C'est non seulement une bonne base, mais surtout "pile" le bon code !
J'ai compris le mécanisme, ça me re-servira.
Vraiment un grand, grand merci !