السلام عليكم
ماذا أقول أستاذ كيماس
الله يحفظ و يرعاك و يرضي عنك الولدين و جزاك الجنة
على الجهد الكبير الذي تبدله
معلومة وجدت هذا الكود و لم يضبط مع ملفي
جربته مع ورقة جديدة كان مضبوط 100/100
هذا الكود
Private Sub userForm_Initialize()
With Sheets("Feuil1")
For Each cel In .Range(.Cells(1, 1), .Cells(1, 256).End(xlToLeft))
Me.ComboBox1.AddItem cel.Value
Next cel
End With
ComboBox1.ListIndex = 0
End Sub