For each sans fin

Bonjour Forum,

Je voudrais envoyer des emails en fonction du nombre de destinataire dans mon fichier maître. Le code dans le fichier fonctionne bien sauf que après le dernier envoie, la boucle ne s’arrête pas. Pourriez-vous m'aidez s'il vous plait?

Merci d'avance.

Bonjour,

Dans ta macro tu fais un For Each pour toutes les cellules de ton classeur.

Mais les cellules sont infinies ! Donc il te faut un moyen de sortir lorsque les cellules ne correspondent plus à une adresse mail !

Pour ça tu peux rajouter ça avant ton End If :

Else
    Exit For

Ceci te permettra de sortir du For Each lorsque la cellule étudiée n'est pas une adresse email.

Bonsoir Brodyeva,

Ton code me parait correct mais ta boucle parcourt la totalité des ligne de la colonne "X" soit 1 048 576 lignes.

Je te propose de remplacer :

For Each cell In Worksheets("Sheets1").Columns("X").Cells

Par

For Each cell In Worksheets("Sheets1").UsedRange.Columns("X").Cells

sans objet car la bonne réponse est déjà donnée par GVIALLES

Merci à tous, effectivement la solution de GVIALLES a résolu le problème.