Chaque fois qu'une ligne est remplie , VBA
Résolu/Fermé
Fahora
Messages postés
814
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
2 janvier 2023
-
22 févr. 2017 à 10:21
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 - 23 févr. 2017 à 08:29
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 - 23 févr. 2017 à 08:29
A voir également:
- Chaque fois qu'une ligne est remplie , VBA
- Aller à la ligne excel - Guide
- Partager photos en ligne - Guide
- Vente en ligne particulier - Guide
- Je suis une chose que les garçons utilisent deux fois par jour et les filles une fois toute leur vie - Forum Loisirs / Divertissements
- Apparaitre hors ligne instagram - Guide
1 réponse
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
22 févr. 2017 à 19:21
22 févr. 2017 à 19:21
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("XXXXXX@FREE.FR", "YYYYYY@FREE.FR"), Subject:="Données" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End If
Application.ScreenUpdating = True
End Sub
cdt
23 févr. 2017 à 08:29
Ca fonctionne pour envoyer un mail, je vais essayer de me débrouiller pour le destinataire et tout ce qui s'en suivra.