Colonne non vide -> envoie mail

Bonjour,

Je souhaite pouvoir envoyer un mail à un préparateur à partir du moment ou je met son nom dans un cellule

(les noms sont dans un tableau sur une autre feuille 'listes')

Tant qu'il n'y a rien dans la case, il ne se passe rien, dès que je mets le nom, ça enverrait un mail (le mail apparait dans la colonne à coté du nom)

Onglet listes :

J'ai tenté différentes choses mais rien de cohérent vu que j'ai pas les bases :)

Merci pour votre grande aide

Cdlt

Bonjour,

Tu devrais pouvoir t'en sortir avec ça en complément de ton dernier sujet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
    DerPrepa = Cells(Rows.Count, 3).End(xlUp).Row
    For Preparateur = 3 To DerPrepa
        If Cells(Preparateur, 3) <> "" Then DestinataireMail = Cells(Preparateur, 4)
        EnvoiMail
    Next Preparateur
End If

'Sub EnvoiMail()
'    .To = DestinataireMail
'End Sub

A+

Désolé mon message n'était pas passé : Merci

ça marche pas encore mais je creuse :')

Bonjour,

J'essaie de comprendre pourquoi ça marche pas, j'ai mis des commentaires de ce que j'aimerais bien que ça fasse

'Si qqchose bouge en colonne 3

If Target.Column = 3 Then

'Je localise la ligne

DerPrepa = Cells(250, 3).End(xlUp).Row

'Si la case colonne 3 n'est pas vide, prendre l'adresse en colonne 4 et envoyer le mail

If Cells(DerPrepa, 3) <> "" Then DestinataireMail = Range(Cells(Target.Row, 1), Cells(Target.Row, 18)).Value

EnvoyerMail DestinataireMail

'si possible rajouter un sinon ou else if "vide" ne rien faire car c'est pas encore attribué

End If

Y'a forcement des erreurs qui vont vous piquer les yeux :D

Bonjour,

Tu peux joindre ton fichier sans info confidentielles / personnelles ?

Ton code, tu devrait le mettre dans

Pour plus de lisibilité.

A+