Copier coller plage nommée (xl2003)
Résolu
Bonjour,
Je voudrais copier une plage nommée "AdresMail" de la feuille Base dans la Feuil1
les adresses mail sont :
aaa@gmail.com
bbb@gmail.com
-
ccc@hotmail.fr
-
-
-
-
ddd@gmail.com
eee@club-internet.fr
Il faudrait lors du coller que les lignes comportant un "-" soient supprimées.
En vous remerciant
Je voudrais copier une plage nommée "AdresMail" de la feuille Base dans la Feuil1
les adresses mail sont :
aaa@gmail.com
bbb@gmail.com
-
ccc@hotmail.fr
-
-
-
-
ddd@gmail.com
eee@club-internet.fr
Il faudrait lors du coller que les lignes comportant un "-" soient supprimées.
En vous remerciant
7 réponses
-
Bonjour
Pour faire simple
Tu copies ta plage dans Feuil1
Tu fais un tri de la copie
Tu supprimes les lignes qui contiennent "-"
Cdlmnt -
Bonjour ccm81
Je te remercie de me répondre, mais je souhaite un code Vba car j'ai environ 300 adresses mail.
C'est pour inclure cette action dans un autre code. -
Bon, avec une macro
http://www.cjoint.com/c/GIuuG1eGo7B
Cdlmnt -
Bonjour ccm81,
Je te remercie beaucoup c'est parfait.
Bonne journée. -
Désolé, il y a un os pour moi, ton code fonctionne très bien de Feuil1 à Feuil2, mais je voudrai que ça me colle le résultat dans la Feuille Mail à partir de E4
J'ai réussi à changer "Feuil2" par "Mail" mais comment lui dire à partir de E4 ?
En te remerciant. -
Il te faut modifier les valeurs des constantes
' feuille source
Const FS = "Feuil1"
Const coadrFS As String * 1 = "A"
Const lidebFS As Byte = 2
'feuille but
Const FB As String = "Feuil2" ' ici tu mets "Mail"
Const coadrFB As String * 1 = "A" ' ici tu mets "E"
Const lidebFB As Byte = 2 ' ici tu mets 4
Cdlmnt -
Bonjour ccm81,
Tous mes remerciements.
Je met en résolu.
