خطأ في كود VBA

[insyoucef]

اين الخطأ بارك الله فيكم 

avis de virment.xlsm

[AbuuAhmed]

لم أرى إلا نطاق tbl فاستخدمته بدلا من ListView1
كما أنه في آخر سطر مناداة لإجراء غير موجنود فعطلته actualistion.
 

Private Sub UserForm_Initialize()
   'With ListView1
    With tbl
       .Gridlines = True 'affiche ou pas les lignes
       .View = lvwReport ' style de rapport
       .FullRowSelect = True ' permet de sélectionner une ligne dans la liste
       'création des en-tétes personnalisées avec leur largeur
       .ColumnHeaders.Add Text:="الرقم", Width:=1
       .ColumnHeaders.Add Text:="إسم المستفيد", Width:=60
       .ColumnHeaders.Add Text:="حساب المستفيد", Width:=90
       .ColumnHeaders.Add Text:="البنك", Width:=60
       .ColumnHeaders.Add Text:="المبلغ", Width:=60
       .ColumnHeaders.Add Text:="رقم الصك", Width:=60
       .ColumnHeaders.Add Text:="تاريخ إجراء المعاملة", Width:=60
    End With
    
    'Call actualistion 'on appelle la procédure qui actualise la listview
End Sub

 

[insyoucef]

أخي AbuuAhmed جزاك الله خيرا يظهر لي هذا الخطأ بعد ما وضعت الكود الذي عدلته 

[AbuuAhmed]

تقريبا الخطأ شبيها للخطأ السابق، ولكن لو رفعت الصورة كالأولى عندما تنهي هذه الرسالة سيشير المؤشر على السطر والكائن المفقود أو اسم الكائن الخاطئ.
كذلك لو تعطيني السيناريو أي الخطوات التي أدت لظهور هذا الخطأ حتى يحدث معي وأقوم بتتبعه.
يبدو لي أنت مستقطع الكود من ملف آخر.

[AbuuAhmed]

كذلك اسم النموذج مختلف فالاسم في الكود UserForm وأنت مسميه UserForm1
فالتعديل بيكون بتبديل أول سطرين من:
 

Private Sub UserForm_Initialize()
   With ListView1

إلى:
 

Private Sub UserForm1_Initialize()
    With tbl