السلام عليكم
عمل جميل جازاك الله خيرا
وأن لم يكن فيها مانع وللافادة لا غير هذا اختصار للكود دون الحاجة للمعادلات التي على الملف ضعه في حدث Initialize
Private Sub UserForm_Initialize()
Dim lr As Long
Dim Te
lr = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
Te = "يوم " & Feuil1.Range("a" & lr) & " الكمية : " & Feuil1.Range("c" & lr) & " الصنف : " & Feuil1.Range("b" & lr)
Me.WebBrowser1.Navigate _
"about:<html><body scroll='no'><font color= " & LaCouleur & " size='4' face='NEW'>" & _
"<marquee direction=right>" & Te & "</marquee></font></body></html>"
End Sub
تقبل تحياتي