Bonjour,

Voilà j'aimerais pouvoir supprimer une ligne de mon Hashtable quand la date est celle qui correspond à la plus ancienne.
Mais j'ai un message d'erreur dès le second passage, car il n'apprécie pas la modification.

Mon code:

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
18
19
20
21
22
23
24
Dim laDate As String = Nothing
 
                            For Each soins As DictionaryEntry In dateHashtable
 
                                laDate = dateDeSoin
 
                                If Not dateMajoration = elemt.Key Then
 
                                    For Each dates As DictionaryEntry In dateHashtable
 
                                        If (CType(dates.Key, Date)) < (CType(laDate, Date)) Then
 
                                            laDate = dates.Key
                                            dateMajoration = laDate
 
                                            dateHashtable.Remove(dates.Key)
 
                                        End If
 
                                    Next
 
                                End If
 
                            Next
EDIT:

Le message d'erreur:

La collection a été modifiée; l'opération d’énumération peut ne pas s'exécuter!
Merci!