Bonjour,

Je ne comprends pas mon erreur sur ce petit bout de code, je m'explique.

J’ai une collection Word que je récupère avec une Class Words où j'ai ListWords pour récupérer l'ensemble de ma collection. ça c'est bon.
Le problème c'est quand je fais un test pour supprimer les mauvais enregistrements après j'ai des problèmes d'index. Comment puis-je rafraichir ma collection pour qu'elle prenne en compte les changements ?



Dim i As Integer
With MyWords.ListWords
For i = 0 To .Count - 1
MsgBox(.Item(i).French.ToString())
If .Item(i).French.ToString() = "" And .Item(i).English.ToString() = "" Then
.RemoveAt(i)
End If
Next
End With

MyWords.SaveData() 'là j'ai une erreur d'index
Merci d'avance