J'ai une base structurée en 4 colonnes:
A adresse email
B Nom
C Prénom
D Pays
En E j'ai isolé une liste extraite de A comportant des adresse érronées.
Comment puis-je "nettoyer" ma base A,B,C,D en enlevant les lignes comportant
la même adresse mail que celles qui sont isolée en E et qui sont donc
érronnées?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christophe Mathon
Bonjour Valerie,
Ceci devrait faire ton bonheur
<><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><> Sub CheckAndDeleteRow() For Each addMailPerso In Range(Cells(1, 5), Cells(65536, 5)) If addMailPerso <> "" Then Rowp = 1 Do While Rowp < 65537 If Cells(Rowp, 1) <> "" Then If (Cells(Rowp, 1) = addMailPerso) Then Range("A" & Rowp & ":D" & Rowp).Select Selection.ClearContents End If End If Rowp = Rowp + 1 Loop End If Next MsgBox "End" End Sub <><><><><><><><><><><><><><><><> <><><><><><><><><><><><><><><><> "Valerie" wrote in message news:484cff3f$0$863$
Bonjour,
Avec le printemps un peu de nettoyage...
Sous Excel 2007.
J'ai une base structurée en 4 colonnes: A adresse email B Nom C Prénom D Pays
En E j'ai isolé une liste extraite de A comportant des adresse érronées.
Comment puis-je "nettoyer" ma base A,B,C,D en enlevant les lignes comportant la même adresse mail que celles qui sont isolée en E et qui sont donc érronnées?
Merci de votre aide.
Valérie
Bonjour Valerie,
Ceci devrait faire ton bonheur
<><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><>
Sub CheckAndDeleteRow()
For Each addMailPerso In Range(Cells(1, 5), Cells(65536, 5))
If addMailPerso <> "" Then
Rowp = 1
Do While Rowp < 65537
If Cells(Rowp, 1) <> "" Then
If (Cells(Rowp, 1) = addMailPerso) Then
Range("A" & Rowp & ":D" & Rowp).Select
Selection.ClearContents
End If
End If
Rowp = Rowp + 1
Loop
End If
Next
MsgBox "End"
End Sub
<><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><>
"Valerie" <valeriebordas66@wanadoo.fr> wrote in message
news:484cff3f$0$863$ba4acef3@news.orange.fr...
Bonjour,
Avec le printemps un peu de nettoyage...
Sous Excel 2007.
J'ai une base structurée en 4 colonnes:
A adresse email
B Nom
C Prénom
D Pays
En E j'ai isolé une liste extraite de A comportant des adresse érronées.
Comment puis-je "nettoyer" ma base A,B,C,D en enlevant les lignes
comportant la même adresse mail que celles qui sont isolée en E et qui
sont donc érronnées?
<><><><><><><><><><><><><><><><> Sub CheckAndDeleteRow() For Each addMailPerso In Range(Cells(1, 5), Cells(65536, 5)) If addMailPerso <> "" Then Rowp = 1 Do While Rowp < 65537 If Cells(Rowp, 1) <> "" Then If (Cells(Rowp, 1) = addMailPerso) Then Range("A" & Rowp & ":D" & Rowp).Select Selection.ClearContents End If End If Rowp = Rowp + 1 Loop End If Next MsgBox "End" End Sub <><><><><><><><><><><><><><><><> <><><><><><><><><><><><><><><><> "Valerie" wrote in message news:484cff3f$0$863$
Bonjour,
Avec le printemps un peu de nettoyage...
Sous Excel 2007.
J'ai une base structurée en 4 colonnes: A adresse email B Nom C Prénom D Pays
En E j'ai isolé une liste extraite de A comportant des adresse érronées.
Comment puis-je "nettoyer" ma base A,B,C,D en enlevant les lignes comportant la même adresse mail que celles qui sont isolée en E et qui sont donc érronnées?
Merci de votre aide.
Valérie
Valerie
Merci Christophe,
Pour le nettoyage vous êtes un champion, dommage que je ne puisse pas tout automatiser comme cela... dommage également pour vous car votre fortune serait faite...
Encore merci et bonne journée.
Valérie.
"Christophe Mathon" a écrit dans le message de news:
Bonjour Valerie,
Ceci devrait faire ton bonheur
<><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><> Sub CheckAndDeleteRow() For Each addMailPerso In Range(Cells(1, 5), Cells(65536, 5)) If addMailPerso <> "" Then Rowp = 1 Do While Rowp < 65537 If Cells(Rowp, 1) <> "" Then If (Cells(Rowp, 1) = addMailPerso) Then Range("A" & Rowp & ":D" & Rowp).Select Selection.ClearContents End If End If Rowp = Rowp + 1 Loop End If Next MsgBox "End" End Sub <><><><><><><><><><><><><><><><> <><><><><><><><><><><><><><><><> "Valerie" wrote in message news:484cff3f$0$863$
Bonjour,
Avec le printemps un peu de nettoyage...
Sous Excel 2007.
J'ai une base structurée en 4 colonnes: A adresse email B Nom C Prénom D Pays
En E j'ai isolé une liste extraite de A comportant des adresse érronées.
Comment puis-je "nettoyer" ma base A,B,C,D en enlevant les lignes comportant la même adresse mail que celles qui sont isolée en E et qui sont donc érronnées?
Merci de votre aide.
Valérie
Merci Christophe,
Pour le nettoyage vous êtes un champion, dommage que je ne puisse pas tout
automatiser comme cela... dommage également pour vous car votre fortune
serait faite...
Encore merci et bonne journée.
Valérie.
"Christophe Mathon" <csmathon@hotmail.com> a écrit dans le message de news:
O2axVEiyIHA.1768@TK2MSFTNGP03.phx.gbl...
Bonjour Valerie,
Ceci devrait faire ton bonheur
<><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><>
Sub CheckAndDeleteRow()
For Each addMailPerso In Range(Cells(1, 5), Cells(65536, 5))
If addMailPerso <> "" Then
Rowp = 1
Do While Rowp < 65537
If Cells(Rowp, 1) <> "" Then
If (Cells(Rowp, 1) = addMailPerso) Then
Range("A" & Rowp & ":D" & Rowp).Select
Selection.ClearContents
End If
End If
Rowp = Rowp + 1
Loop
End If
Next
MsgBox "End"
End Sub
<><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><>
"Valerie" <valeriebordas66@wanadoo.fr> wrote in message
news:484cff3f$0$863$ba4acef3@news.orange.fr...
Bonjour,
Avec le printemps un peu de nettoyage...
Sous Excel 2007.
J'ai une base structurée en 4 colonnes:
A adresse email
B Nom
C Prénom
D Pays
En E j'ai isolé une liste extraite de A comportant des adresse érronées.
Comment puis-je "nettoyer" ma base A,B,C,D en enlevant les lignes
comportant la même adresse mail que celles qui sont isolée en E et qui
sont donc érronnées?
Pour le nettoyage vous êtes un champion, dommage que je ne puisse pas tout automatiser comme cela... dommage également pour vous car votre fortune serait faite...
Encore merci et bonne journée.
Valérie.
"Christophe Mathon" a écrit dans le message de news:
Bonjour Valerie,
Ceci devrait faire ton bonheur
<><><><><><><><><><><><><><><><>
<><><><><><><><><><><><><><><><> Sub CheckAndDeleteRow() For Each addMailPerso In Range(Cells(1, 5), Cells(65536, 5)) If addMailPerso <> "" Then Rowp = 1 Do While Rowp < 65537 If Cells(Rowp, 1) <> "" Then If (Cells(Rowp, 1) = addMailPerso) Then Range("A" & Rowp & ":D" & Rowp).Select Selection.ClearContents End If End If Rowp = Rowp + 1 Loop End If Next MsgBox "End" End Sub <><><><><><><><><><><><><><><><> <><><><><><><><><><><><><><><><> "Valerie" wrote in message news:484cff3f$0$863$
Bonjour,
Avec le printemps un peu de nettoyage...
Sous Excel 2007.
J'ai une base structurée en 4 colonnes: A adresse email B Nom C Prénom D Pays
En E j'ai isolé une liste extraite de A comportant des adresse érronées.
Comment puis-je "nettoyer" ma base A,B,C,D en enlevant les lignes comportant la même adresse mail que celles qui sont isolée en E et qui sont donc érronnées?
