Discussion :

[Cordonny]

Bonjour,

Je suis débutant en VBA et j'aimerai pour le travail faire une macro qui me permettrait d'envoyer toutes les lignes d'un fichier en fonction des adresses mails remplies dans une cellules de ces ligne.

En gros dans mes cellules "C2", "C4" j'ai l'adresse XXXXX.XXXXX@gmail.com donc j'aimerai envoyer ma ligne 2 et 4 dans le corps d'un message à l'adresse XXXXX.XXXXX@gmail.com

Dans mes cellules "C3", "C5", "C6", "C7" j'ai l'adresse ZZZZZ.ZZZZZ@gmail.com donc j'aimerai envoyer ma ligne 2 et 4 dans le corps d'un message à l'adresse ZZZZZ.ZZZZZ@gmail.com

Je vous joins mon fichier pour que vous puissiez avoir un support visuel.

Merci de m'avoir lu et merci à toutes les personnes qui prendront du temps pour régler mon problème

[Fred.dz]

Je suppose que tu t'es trompé et que ce sont les lignes 3,5,6 et 7 que tu veux envoyer a ZZZZZZ.

Du coup la structure ressemblerais à quelque chose comme ça:

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
21
22
23
Dim adresse As Collection
Dim i As Integer
Dim j As Integer
Dim dernligne As Integer
 
Set adresse = New Collection
 
i = 1
 
While Cells(i, 3) <> ""
    adresse.Add Cells(i, 3), Cells(i, 3)
    i = i + 1
Wend
 
For i = 1 To adresse.Count
    For j = 1 To dernligne - 1
        If Cells(j, 3) = adresse(i) Then
 
 
 
        End If
    Next j
Next i

Après pour envoyer un bout de classeur Excel il me semble que c'est assez chiant car il faut passer par la création d'un tableau en HTML mais je gère pas très bien cette partie là.