Bonjour,
Sur chaque élément d'un ListView, je regarde si les éléments ont changé ou non, et redéfinis leurs images en fonction de ça:
Sur la ligne ImageIndex = 3, voici l'erreur retournée:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub Check() Dim NoChange = False For Each Item In TableItems For I = 0 To ListFiles.Items.Count - 1 If TableItems.Contains(ListFiles.Items(I).Text) Then NoChange = True End If Next If (Form5.Report.Contains(Item.Text)) Or NoChange = True Then NoChange = False ListFiles.Items(Item.Text).ImageIndex = 3 Form5.Report.Remove(Item.Text) Else ListFiles.Items(Item.Text).ImageIndex = 2 End If Next End Sub
Je ne comprends pas ce que ça veut dire, sachant que tout est bien défini.Variable objet ou variable d'un bloc With non définie.
Merci
Partager