Chaque fois qu'une ligne est remplie , VBA
Résolu Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention -
Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention - 23 févr. 2017 à 08:29
Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention - 23 févr. 2017 à 08:29
A voir également:
- Chaque fois qu'une ligne est remplie , VBA
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Site de vente en ligne particulier - Guide
- Forum Loisirs / Divertissements
1 réponse
Bonsoir
A premiére vue d'oeil et surtout si j'ai bien compris ta demande
essaies ce code .
A mettre dans les événements de la feuille active .
cdt
A premiére vue d'oeil et surtout si j'ai bien compris ta demande
essaies ce code .
A mettre dans les événements de la feuille active .
Private Sub Worksheet_Change(ByVal Target As Range)
COMPT_A = Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & COMPT_A) <> "" And Range("A" & COMPT_A).Offset(0, 1) <> "" And Range("A" & COMPT_A).Offset(0, 2) <> "" And Range("A" & COMPT_A).Offset(0, 1) <> "" And Range("A" & COMPT_A).Offset(0, 3) <> "" And Range("A" & COMPT_A).Offset(0, 4) <> "" And Range("A" & COMPT_A).Offset(0, 5) <> "" And Range("A" & COMPT_A).Offset(0, 6) <> "" And Range("A" & COMPT_A).Offset(0, 7) <> "" And Range("A" & COMPT_A).Offset(0, 8) <> "" Then
ThisWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:=Array("[email protected]", "[email protected]"), Subject:="Données" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End If
Application.ScreenUpdating = True
End Sub
cdt
Ca fonctionne pour envoyer un mail, je vais essayer de me débrouiller pour le destinataire et tout ce qui s'en suivra.