Reconnaitre une adresse e-mail

[microd]

Bonjour a toutes et a tous,

Je me permets de faire appel à vous tous car je cale .....je suis en train de réaliser un petit programme pour envoyer des mails sans quitter Excel ,mais il me manque une instruction : Mes adresses se trouve dans une plages de cellules type F10-F30, mais dans cette même plage se trouve également du Texte !!! ........ Comment puis je dire a Excel dans une boucle si : F (n) est une adresse email alors ..

Si quelqu'un connait la réponse !!!

Merci a toutes et a tous

Microd

 

[MJ13]

Re : Reconnaitre une adresse e-mail

Bonjour,

Normalement une adresse Email possède un @.
Donc tu peux faire une recherche de ce caractère.

 

[Catrice]

Re : Reconnaitre une adresse e-mail

Bonjour,

par exemple :

Sub test()
For Each X In Range([A1], [A1].End(xlDown))
If X Like "*@*" Then MsgBox X & " est une adresse Email"
Next
End Sub


Voir le fichier joint.

 

[microd]

Re : Reconnaitre une adresse e-mail

Bonjour a vous deux ( et merci pour vos réponses ) et au forum !!

Catrice merci pour la commande Like que je ne connaissais pas mais en tout cas ca marche !!! Tu m'as fait gagner du temps .....

Bon Apres-Midi.

Microd.

Je mets fin donc a cette discussion.