Salut
J'ai un fichier avec plusieurs adresses mail et j'ai donc integré un code VBA pour pouvoir envoyer un mail à plusieurs destinataires avec outlook.
Mon problème est que je n'arrive pas à selectionner plusieurs cellules (par exemple: de D1 jusqu'à D300)
et dans cette plage d'ignorer les cellules vides.
D'avance merci.
Voici le code:
 
Sub EnvoiMail_Outlook()
 'Creation de l'objet e-mail
 Dim ol As New Outlook.Application
 Dim olmail As MailItem
 Dim CurrFile As String
 Set ol = New Outlook.Application
 Set olmail = ol.CreateItem(olmailItem)
 'Caractéristiques de l'e-mail
 With olmail
 .To = Range("Feuil1!A1" ).Value & ";" & Range("Feuil1!A2" ).Value
 'Affiche le nom comme objet du message
 .Subject = "Alerte de Mean"
 .Body = "je vous informe que des modifcations ont été réalisées sur cette feuille ..."
 
  'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
 .Display
 End With
 End Sub

Bonjour,
 
Voici une petite macro ( à modifier) qui permet de sélectionner des noms dans la colonne D ( 300 noms)!
 
Sub Selection()
Dim i  As Integer
 For i = 1 To 300
  If Cells(i, 4) = "" Then
   Cells(i + 1, 4).Select
  ElseIf Cells(i, 4) <> "" Then
   MsgBox "Préparation de l'envoi des noms!"
  Else
  Cells(i + 1, 4).Select
  End If
  Next
End Sub