Excel VBA
mikactus
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour à vous, je suis nouveau sur le forum parce que jusqu'a présent j'arrivais à me débrouiller à partir des réponses à certains fils, mais la je suis en galère.
Je vous explique ce que je veux faire : j'ai un tableau ou il y a l'ensemble des informations relatives au personnel de mon association. J'aimerai pouvoir, en cliquant sur un bouton, envoyer un mail à l'ensemble des personnels dont la ligne est visible (j'utilise des fitres pour cibler les personnels à qui envoyer les mails).
Les adresses mails se trouvent dans la colonne N, de la ligne 2 à ... (nombre de membres indéterminé).
J'ai déjà réussi à coder ça, qui qui permet d'envoyer un mail à la première personne :
J'ai trouvé ce bout de code qui permet de répéter une action pour chaque cellule visible :
J'aimerai, pour chaque cellule visible, ajouter l'adresse séparée par un " ; ".
Je pensais au code suivant :
Je suis à votre écoute pour toute piste... Je ne demande pas un code tout prêt car je veux comprendre son fonctionnement...
Merci d'avance.
Je vous explique ce que je veux faire : j'ai un tableau ou il y a l'ensemble des informations relatives au personnel de mon association. J'aimerai pouvoir, en cliquant sur un bouton, envoyer un mail à l'ensemble des personnels dont la ligne est visible (j'utilise des fitres pour cibler les personnels à qui envoyer les mails).
Les adresses mails se trouvent dans la colonne N, de la ligne 2 à ... (nombre de membres indéterminé).
J'ai déjà réussi à coder ça, qui qui permet d'envoyer un mail à la première personne :
Dim listemails As String
listemails = Range("N2")
ThisWorkbook.FollowHyperlink ("mailto:" & listemails & "?subject=sujet :&body=Saisir ici le contenu du mail")
J'ai trouvé ce bout de code qui permet de répéter une action pour chaque cellule visible :
For Each cel In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
'action
Next
J'aimerai, pour chaque cellule visible, ajouter l'adresse séparée par un " ; ".
Je pensais au code suivant :
listemails = listemails + Range("NX")ou X correspond à la ligne...
Je suis à votre écoute pour toute piste... Je ne demande pas un code tout prêt car je veux comprendre son fonctionnement...
Merci d'avance.
A voir également:
- Excel VBA
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide