Detail courriel VBA excel

matrix

XLDnaute Occasionnel
Bonjour à tous,

J'ai crée un bouton VBA avec ce code:
Code:
'envoi email
Dim myadress(1 To 7)

 
 Set mylst = Sheets("DB").Range("B51")
Count = 1

For Each Envoi In mylst
If Len(Envoi) Then myadress(Count) = Envoi: Count = Count + 1
Next

ActiveWorkbook.SendMail Recipients:=Array(myadress(1), myadress(2), _
myadress(3), myadress(4), myadress(5), myadress(6), myadress(7)), Subject:="Request"

Je voudrais ajouter une fonction qui détail se qu'il y a dans les différentes feuilles, s'il y a des données d'inscrits.

Ex:

Feuille "Etape 1" : 3 nouveaux records

Feuille "Étape 2" : 1 nouveaux records


il conterait le nombre de données à partir de la ligne 3, colonne B de chaque feuilles, et s'il i a une donné, il sera écrit dans le courriel.

Est-ce possible? si oui, comment faire s.v.p?

Merci pour votre aide.
 
Dernière édition:

Statistiques des forums

Discussions
312 505
Messages
2 089 070
Membres
104 017
dernier inscrit
annboi19