Discussion :

[ftr33]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[EricDgn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ftr33]

Merci beaucoup EricDng

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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