A voir également:
- Fusion, doublon et extraction.
- Doublon photo - Guide
- Display fusion - Télécharger - Divers Utilitaires
- Supprimer doublon excel - Guide
- Fusion pdf - Guide
- Tirage au sort excel aléatoire sans doublon - Forum LibreOffice / OpenOffice
10 réponses
Bonjour
Copier vos différentes liste sur une même feuille et mettre cette formule
=SI(ESTERREUR(RECHERCHEV(A1;$F$1:$F$50;1;0));SI(NB.SI(A1:$A$100;A1);NB.SI(A1:$A$100;A1));2)
En supposant que les adresses sont en colonne A1:A100
la liste des adresses à bannir en colonne F1:F50
Puis filtrer sur la colonne ou vous avez mis cette formule
toutes les lignes supérieur à 1 sont à supprimer
Copier vos différentes liste sur une même feuille et mettre cette formule
=SI(ESTERREUR(RECHERCHEV(A1;$F$1:$F$50;1;0));SI(NB.SI(A1:$A$100;A1);NB.SI(A1:$A$100;A1));2)
En supposant que les adresses sont en colonne A1:A100
la liste des adresses à bannir en colonne F1:F50
Puis filtrer sur la colonne ou vous avez mis cette formule
toutes les lignes supérieur à 1 sont à supprimer
Bonjour,
Essaie de mettre ce code dans un module VBA, puis utilise la fonction liste_mail(), avec comme 4 premiers arguments les plages comprenant les mails et comme dernier argument la plage des bannis
Function Liste_mail(Plage1 As Range, Plage2 As Range, Plage3 As Range, Plage4 As Range, Plage_bannis As Range) As String
Dim Mail_col As Collection
Dim c As Variant
Dim output As Variant
Set Mail_col = New Collection
On Error Resume Next
For Each c In Plage1
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage2
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage3
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage4
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage4
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage_bannis
Mail_col.Remove CStr(c)
Next c
On Error GoTo 0
For Each c In Mail_col
output = output & CStr(c) & ";"
Next c
Liste_mail = output
End Function
Essaie de mettre ce code dans un module VBA, puis utilise la fonction liste_mail(), avec comme 4 premiers arguments les plages comprenant les mails et comme dernier argument la plage des bannis
Function Liste_mail(Plage1 As Range, Plage2 As Range, Plage3 As Range, Plage4 As Range, Plage_bannis As Range) As String
Dim Mail_col As Collection
Dim c As Variant
Dim output As Variant
Set Mail_col = New Collection
On Error Resume Next
For Each c In Plage1
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage2
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage3
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage4
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage4
Mail_col.Add c, CStr(c)
Next c
For Each c In Plage_bannis
Mail_col.Remove CStr(c)
Next c
On Error GoTo 0
For Each c In Mail_col
output = output & CStr(c) & ";"
Next c
Liste_mail = output
End Function
Bonjour
Tout simplement si la version Excel >=2007
copier les adresses des 4 feuilles dans l'onglet maître
Sélectionner le tout
données- outils de données-supprimer les doublons
Tout simplement si la version Excel >=2007
copier les adresses des 4 feuilles dans l'onglet maître
Sélectionner le tout
données- outils de données-supprimer les doublons
Merci pour vos réponses,
Le copier coller n'est pas une option car en fait les 4 premières feuilles sont des extractions de ma bdd qui se réactualises à chaque ouverture...
Le copier coller n'est pas une option car en fait les 4 premières feuilles sont des extractions de ma bdd qui se réactualises à chaque ouverture...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
en fait les 4 premières feuilles sont des extractions de ma bdd qui se réactualises à chaque ouverture...
Pourquoi ne l'avoir pas dit ? Pour nous faire bosser pour rien ?
pendant qu'on y est:
j'ai des adresses mails d'utilisateurs bannis.
comment sait on qu'ils sont bannis ?
Michel
Pourquoi ne l'avoir pas dit ? Pour nous faire bosser pour rien ?
pendant qu'on y est:
j'ai des adresses mails d'utilisateurs bannis.
comment sait on qu'ils sont bannis ?
Michel
en fait les 4 premières feuilles sont des extractions de ma bdd qui se réactualises à chaque ouverture...
Pourquoi ne l'avoir pas dit ? Pour nous faire bosser pour rien ?
J'ai oublié de le préciser dsl...
En fait j'ai 3 feuilles de requetes sur ma bdd, une feuille de saisie manuel avec des adresses suplémentaire, et une feuille avec une liste d'adresse de bannis en saisie manuel également.
Pourquoi ne l'avoir pas dit ? Pour nous faire bosser pour rien ?
J'ai oublié de le préciser dsl...
En fait j'ai 3 feuilles de requetes sur ma bdd, une feuille de saisie manuel avec des adresses suplémentaire, et une feuille avec une liste d'adresse de bannis en saisie manuel également.
Normalement la solution que je t'ai donné précédemment devrait te permettre de ressortir les adresses mail dans une cellule, en reprenant les 4 plages de sélection en premiers arguments et la plage d'exclusion en dernier argument.
Insérère la fonction dans un module et utilise la fonction liste_mail dans une cellule
Insérère la fonction dans un module et utilise la fonction liste_mail dans une cellule
