Aficher la date la plus récente

Bonjour,

J'ai un fichier Excel avec un userform, dans cet userform il y a plusieurs DTPicker, chacun renseigne une date à laquelle un élément a été remplacé.

Le problème c'est que dès que je valide ma saisie, la date s'enregistre bien, mais lors de son affichage, il m'affiche la dernière saisie, au lieu de la date la plus récente, comment faire ?

PS : je ne peux vous joindre de fichier pour le moment...

Bonjour,

Ok. Mais sans fichier pour le moment, difficile d'aider pour le moment.

Je ne peux vous transférer de fichier depuis ce poste, cependant voila le bout de code (La combobox vient choisir une machine, il faut savoir que dès que l'utilisateur enregistre une saisie, une nouvelle ligne est crée (donc il peut y avoir x fois la meme machine dans le tableau, c'est pourquoi il faut choisir la date la plus récente et non pas la dernière saisie) :

'II) Lire les informations quand machine sélectionnée
Private Sub ComboBox_Change()
        For I = 1 To 250
                    'Trouve la date la plus récente pour chaque élément (element 1, element 2,3,4,5...9)

                    'Si valeur de la combobox = valeur dans le tableau
                    If Worksheets("Feuil1").Cells(I, 1) = ComboBox Then
                    'Alors retrouver la date la plus récente de :
                        'élement 1
                        [CODE]
                            'afficher cette date
                            DTPicker1 = Worksheets("Feuil1").Cells(I, 2)

                        'élement 2
                        [CODE]
                            'afficher date

                    End If
         Next I
End Sub

Bonjour,

à tester :

remplacer

If Worksheets("Feuil1").Cells(I, 1) = ComboBox Then 

par

If Worksheets("Feuil1").Cells(I, 1) = ComboBox.Text Then