XL 2016 Remplir une feuil avec un userform

[gothc]

Bonjour le forum j'ai besoin d'un pro
je vous laisse un fichier avec userform déjà fait
je cherche à remplir mon onglet visite avec des dates à laide de mon userform et avoir le nombre de jours entre deux dates
Voir mon fichier
Merci de votre aide

 

[JM27]

Bonsoir

 

[youky(BJ)]

Bonsoir Gothc,
Voici à ma façon avec un dateur perso
Tout est ok
Bruno

 

[gothc]

Merci super boulot
Bonne soirée JM

 

[gothc]

re bonjour le forum je complète mon fichier mais je rencontre un problème je viens de créer un userform qui me renseigne les dates d'échéance que je calcul avec une formule
le problème quand je rajoute des dates ma formule ne correspond plus a la dernière date de ma colonne
je sais pas si une solution en vb reste possible ou formule
merci de votre aide

 

[JM27]

Bonjour
peut être pas tout compris

 

[gothc]

Bonjour
oups non je n’ai pas le bon résultat J'ai beaucoup de mal à m'exprimer de façon clair et précisè-je pense je laisse le fichier avec des explications
Merci D'avance

 

[JM27]

Bonsoir
comme cela ?

 

[gothc]

re Bonsoir super j'ai fait des modifications pour avoir le bon résultat je te laisse voir le fichier
j'ai aussi modifié mon userform visite échéance
Merci bonne soirée

 

[JM27]

Bonsoir
C'est pas mal , mais moi je n'aurai pas autorisé un saisie de date supérieure à la date du jour .
A moins que tu anticipes les passages
Une question :
tu fais une visite le 30/09/2020 ( par anticipation)
L'échéance est de 120 jours
La date de la prochaine échéance est le 28/01/2021
Donc par rapport à aujourd’hui 186 jours
et non pas comme tu le trouves:54 jours

J'ai peut être pas tout compris
Regardes mon fichier

 

[gothc]

OUI tu peux le faire car mon fichier est un fichier test effectivement une date supérieure à la date du jour reste impossible

 

[JM27]

A tester

 

[gothc]

Je regarde comment je peux faire pour avoir une alerte par email quand j'ai une échéance à 5 jours j'utilise cette macro pour envoyer des email qui fonctionne super bien

Sub Mail_gmail()
Application.ScreenUpdating = False
Dim iMsg As Object, iConf As Object, strbody$, fichier$
Dim Flds As Variant, t, Destinataires$

fichier = ThisWorkbook.Path & Application.PathSeparator & "feuil1.xls"
ActiveWorkbook.Sheets("feuil1").Copy
ActiveWorkbook.SaveAs Filename:=fichier
Workbooks("feuil1.xls").Close True 'sans sauvegarde (True si sauvegarde)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ".......@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
Sheets("feuil2").Select  'liste des emails'
    Range("G1").Select
t = Range("G1:G10")
Destinataires = Join(Application.Transpose(t), ";")
strbody = "Bonjour, ............ Merci!"
With iMsg
Set .Configuration = iConf
.To = "mon email"
.cc = Destinataires
.BCC = ""
.From = """nom"" <mon email>"
.Subject = "test"
.TextBody = strbody
.AddAttachment fichier
.Send
Kill fichier



    Sheets("---   ACCES AU PROGRAMME   ---").Select
    Range("a1").Select
  MsgBox "Email bien envoyé Merci "
End With
End Sub

 

[JM27]

Tu n'as pas répondu au calcul du nb de jours pour la prochaine visite#10

 

[gothc]

oui super je viens de faire le test sa fonction super bien merci JM