Private Sub UserForm_Activate()
ka = Sheets("Mail").Range("A1").Value
kb = Sheets("Mail").Range("A2").Value
kc = Sheets("Mail").Range("A3").Value
kd = Sheets("Mail").Range("A5").Value
kj = UserForm10.TextBox1.Value
With UserForm10.ListBox3
For i = 0 To (.ListCount - 1)
If .List(i, 4) > "" Then
Message = Message & .List(i, 1) & " - " & " " & .List(i, 2) & " " & "X" & " " & " " & .List(i, 4) & " - " & vbCrLf
Else
msgbox"Votre liste est vide vous ne pouvez pas envoyer une commande !"
exit sub
End If
Next
End With
Feuil9.Select
Feuil9.Range("B1:B5").ClearContents
Feuil9.Range("B7:B65536").ClearContents
Feuil9.Range("B1").Value = ka & " " & kb & " " & kc
Feuil9.Range("B3").Value = "Veuillez trouver une commande pour" & " " & kd
uz = Feuil9.Range("B65536").End(xlUp).Row + 1
Feuil9.Range("B" & uz).Value = Message
uw = Feuil9.Range("B65536").End(xlUp).Row + 1
Feuil9.Range("B" & uw).Value = kj
Feuil9.Range("B" & uw + 1).Value = "Cordialement" & " " & kd
With Feuil9.Range("A1")
ListBox1.ColumnWidths = 80 & ";" & 400
ListBox1.RowSource = Feuil9.Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
Feuil1.Select
End With
'ListBox1.ListIndex = -1
End Sub