Discussion :

[merymad69]

Bonjour,

J'ai un tableau avec 12 colonnes, de A à L.
Quand je rempli la ligne x dans la colonne L, Je souhaite envoyer par mail les 5 cellules de la ligne x correspondant aux colonnes de A à E.

Je gère l’envoi du mail avec le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim ol As Object, myItem As Object
Dim des As String
Dim cop As String
 
Set ol = CreateObject("outlook.application")
 
Set myItem = ol.CreateItem(olMailItem)
myItem.To = InputBox("Destinataire : ", "Destinataire", "toto@gmail.com")
myItem.CC = InputBox("Destinataire copie : ", "Destinataire", "toto@gmail.com")
myItem.Subject = "Envoi des tâches hebdo ..... " & Sheets("Taches récurentes").Range("B2").Value
myItem.Body = "Vous trouverez ci-joint le fichier contenant les taches hebdomadaires ...... " & Sheets("Taches récurentes").Range("B2").Value & " à traiter." 'je dois mettre les cellules à envoyer ici elles 
'doivent correspondre à la ligne dont la cellule de la colonne L est concernée par le remplissage et uniquement lors de cette action, pas les autres lignes dont la colonne L est déjà remplie.......
 
myItem.Attachments.Add ActiveWorkbook.FullName 'fichier en cours d'utilisation envoyé en attaché:
CommandButton2.Caption = "Rapport envoyé le " & Now()
CommandButton2.Enabled = False
myItem.Send
Set ol = Nothing
MsgBox ("Message envoyé")

Comment faire pour que ce mail soit envoyé automatiquement quand la cellule de la colonne L de cette ligne est remplie et seulement avec les bonnes infos ?

Merci pour vos réponses....

[halaster08]

Bonjour,

Comment faire pour que ce mail soit envoyé automatiquement quand la cellule de la colonne L de cette ligne est remplie

En déclenchant la macro quand une cellule de la colonne L est modifié, voir https://silkyroad.developpez.com/VBA...Feuille/#LII-E

et seulement avec les bonnes infos

C'est quoi les bonnes infos ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if les_bonnes_infos = true then ...

[merymad69]

En fait les bonnes infos sont simplement quand la cellule de la colonne L est "non vide"...

Je viens de regarder le lien fournis mais comment l'appliquer uniquement à la colonne L et retrouver l'index pour n'extraire que la ligne concernée ?

Edit :

En rajoutant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    If Target.Count > 1 Then Exit Sub
 If Target.Column = 12 Then
    MsgBox "Vous venez de modifier la cellule " & Target.Address & " (" & Target.Value & ")"
 End If

Je ne prend en compte que les changement dans la colonne L, comment extraire la ligne ?

Edit :

Je viens de trouver il suffit de prendre comme référence:

target.row !

[halaster08]

Je viens de regarder le lien fournis mais comment l'appliquer uniquement à la colonne L et retrouver l'index pour n'extraire que la ligne concernée ?

Il faut utiliser la variable Target (qui est de type Range), regarde les différents exemples proposés
Pour l'appliquer uniquement à la colonne L, il suffit de vérifier quel est la colonne de Target si c'est la bonne on continue, sinon on arrête la macro

edit:

comment extraire la ligne ?

Comme tu l'a compris, Target.column te donne la colonne de Target, Target.row te donnera la ligne

edit2:
Donc pour ta plage de A à E de mémoire, ça donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("A" & Target.row &":E" & Target.row )

[merymad69]

Merci Halaster08, j'avais pas vu ta réponse.

J'ai trouvé une autre écriture mais cela fonctionne. Merci.