Envoi mail si Cellule avec données

Bonjour,

Je souhaiterais faire un envoi de mail avec certain élément dans le contenu du mail venant de certaines cellules, pour cela j'ai trouvais la solution. Ce qui ne va pas en revanche c'est que le mail envoyé avec les informations de la mauvaise ligne.

Je souhaite que lorsque la cellule E(x) soit renseignée cela envoi le mail avec les infos de la ligne.

Pour le moment c'est la ligne d'en dessous qui m’envoie les infos, exemple je rentre une date sur E2, je fais flèche du bas pour passer a la suite le mail envoyé contient les infos de la ligne 3 et non celle de la 2 que je vient de remplir.

Cordialement Arnaud

Bonjour,

Tu peux remplacer les 3 :

Cells(ActiveCell.Row

par

Cells(ActiveCell.Row-1

Bonjour à tous,

Un essai ...

En haut du Module1, ajouter Public LigneInfos as integer

Dans la "Feuil1" :

Private Sub Worksheet_Change(ByVal Target As Range)
   LigneInfos = Target.Row   ' << Ajout
   If Target.Column = 5 Then Call EnvoiMail
End Sub

Puis enfin, dans le Module1, remplacer les ActiveCell.Row par LigneInfos

Ainsi, quelle que soit la direction que tu prends après la saisie dans la cellule de la colonne 5, la ligne sera la bonne.

ric

Bonjour,

Merci à vous deux pour les réponses si rapide.

@oxydum, ta réponse aurait pu convenir si cela gardait la bonne ligne même après un clic n'importe ou dans la feuille.

@ric, ta réponse convient parfaitement merci.

Petite question est il possible d’éviter que le mail s’envoie alors que l'on remet la cellule vide?

Bonjour,

Un essai ...

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value = "" Then Exit Sub   ' <<< Ajout
   LigneInfos = Target.Row
   If Target.Column = 5 Then Call EnvoiMail
End Sub

ric

Merci à toi @ric pour ton aide cela fonctionne impeccable.

Sujet résolu