Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub bouton() Dim MonOutlook As Object Dim MonMessage As Object Dim chantier chantier = Range("D14").Value Dim date_cr date_cr = Range("D9").Value Dim client client = Range("J14").Value Dim mail_client mail_client = Range("J20").Value Dim cdp cdp = Range("d8").Value Dim mail_cdp mail_cdp = Range("d10").Value Dim date_livraison date_livraison = Range("g26").Value Dim avt_mes avt_mes = Range("h27").Value Dim txt_mes txt_mes = Range("i27").Value Dim ligne1 ligne1 = Range("c25").Value Dim ligne2 ligne2 = Range("c26").Value Dim ligne3 ligne3 = Range("c27").Value Dim ligne4 ligne4 = Range("c28").Value Dim ligne5 ligne5 = Range("c29").Value Dim ligne6 ligne6 = Range("c30").Value Dim ligne7 ligne7 = Range("c31").Value Dim ligne8 ligne8 = Range("c32").Value Dim ligne9 ligne9 = Range("c33").Value Dim ligne10 ligne10 = Range("c34").Value Dim ligne11 ligne11 = Range("c35").Value Dim ligne12 ligne12 = Range("c36").Value Dim ligne13 ligne13 = Range("c37").Value Dim ligne14 ligne14 = Range("c38").Value Dim ligne15 ligne15 = Range("c39").Value Dim ligne16 ligne16 = Range("c40").Value Dim ligne17 ligne17 = Range("c41").Value Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.To = mail_client MonMessage.Cc = mail_cdp MonMessage.Subject = "CR de réunion de démarrage du " & date_cr & " pour le chantier " & chantier Corps = "Mr " & client & "," & vbCrLf & vbCrLf & "Veuillez trouver ci-après la liste des éléments que je vous ai fourni ainsi que les sujets abordés lors de notre réunion du " & date_cr & ":" & vbCrLf If Range("t25").Value = True Then Corps = Corps & " - " & ligne1 & vbCrLf 'MsgBox "ligne 1 sélectionnée" End If If Range("t26").Value = True Then Corps = Corps & " - " & ligne2 & date_livraison & vbCrLf End If If Range("t27").Value = True Then Corps = Corps & " - " & ligne3 & " " & avt_mes & " " & txt_mes & vbCrLf End If If Range("t28").Value = True Then Corps = Corps & " - " & ligne4 & vbCrLf End If If Range("t29").Value = True Then Corps = Corps & " - " & ligne5 & vbCrLf End If If Range("t30").Value = True Then Corps = Corps & " - " & ligne6 & vbCrLf End If If Range("t31").Value = True Then Corps = Corps & " - " & ligne7 & vbCrLf End If If Range("t32").Value = True Then Corps = Corps & " - " & ligne8 & vbCrLf End If If Range("t33").Value = True Then Corps = Corps & " - " & ligne9 & vbCrLf End If If Range("t34").Value = True Then Corps = Corps & " - " & ligne10 & vbCrLf End If If Range("t35").Value = True Then Corps = Corps & " - " & ligne11 & vbCrLf End If If Range("t36").Value = True Then Corps = Corps & " - " & ligne12 & vbCrLf End If If Range("t37").Value = True Then Corps = Corps & " - " & ligne13 & vbCrLf End If If Range("t38").Value = True Then Corps = Corps & " - " & ligne14 & vbCrLf End If If Range("t39").Value = True Then Corps = Corps & " - " & ligne15 & vbCrLf End If If Range("t40").Value = True Then Corps = Corps & " - " & ligne16 & vbCrLf End If If Range("t41").Value = True Then Corps = Corps & " - " & ligne17 & vbCrLf End If Corps = Corps & vbCrLf & vbCrLf & "Cordialement," & vbCrLf & cdp & ", Chef de projets" & vbCrLf MonMessage.body = Corps MonMessage.display 'MonMessage.send Set MonOutlook = Nothing End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'code déclenché à chaque sélection de cellule If (Target.Row 1 And Target.Column 1) And Calendar1.Visible = False Then 'Si on sélectionne une A1 Calendar1.Visible = True 'l’objet calendrier apparait Else 'si on sélectionne une autre cellule If Calendar1.Visible = True Then 'si le calendrier est là Calendar1.Visible = False 'on le retire End If End If End Sub Private Sub Calendar1_Click() 'code déclenché à la sélection d’une date sur le calendrier ActiveCell = Calendar1.Value 'La cellule active prend la date sélectionnée sur le calendrier Calendar1.Visible = False 'on ferme le calendrier End Sub