Optimisation de l'envoi mails via Excel

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai besoin de votre expertise concernant ma problématique.

Pour faire simple, je cherche à envoyer un mail à deux personnes (accompagnant et accompagné), les adresses mail de ces personnes sont dans 2 colonnes différentes.

En suivant les tutos ici et sur internet, voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub envoimail() Dim lemail As Variant Dim ligne As Integer Set lemail = CreateObject("Outlook.Application") For ligne = 2 To 4 With lemail.createitem(olMailItem) .To = Range("C" & ligne) & ";" & Range("I" & ligne) .display End With Next ligne End Sub
Pas de soucis , cela s'exécute et fonctionne.

J'aimerai optimiser ce code en n'ayant plus à saisir

Citation:

For ligne = 2 To X

Si le code pouvez identifier de lui même le nombre de ligne avec une adresse sur les colonnes C et I , cela serait parfait !

Pouvez-vous m'apporter votre aide ?

J'ai essayé pas mal de chose sur internet mais je n'arrive jamais à une solution optimale.

Par avance, merci !
Pas en PJ mon fichier

Bonjour,

En supposant que l'on parcourt le tableau à partir de la ligne 2 et que l'on s'arrête dès qu'une cellule est vide en colonne C:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub envoimail()
    Dim lemail As Variant
    Dim ligne As Integer
    Set lemail = CreateObject("Outlook.Application")
    ligne = 2
    While Range("C" & ligne) <> ""          '--- tant qu'il y a une adresse mail
        With lemail.createitem(olMailItem)
            .To = Range("C" & ligne) & ";" & Range("I" & ligne)
            .display
        End With
        ligne = ligne + 1
    Wend
End Sub

Cordialement.

28/08/2021, 17h31
ftr33

Merci beaucoup EricDng
28/08/2021, 19h39
Philippe Tulliez
Bonjour,
En utilisant les tableaux structurés, vous vous affranchissez
- du nombre de lignes
- de l'endroit où se trouve votre tableau dans le classeur
- de la position de la colonne à condition d'en connaître son nom
Exemple
On parcourt ici toutes les lignes de la colonne nommée Mail du tableau ayant pour nom t_Montableau
Code:

1 2 3 4 5 6 7 8 Sub t() Dim r As Long With Range("t_Montableau") For r = 1 To .Rows.Count Debug.Print .Cells(r, .ListObject.ListColumns("Mail").Index).Value Next End With End Sub
Un peu de lecture
- Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
- Excel: Les tables de données en VBA