VBA_Gestion listbox | Suppression de date infructueuse

Bonjour à vous,

Je suis en train de passer du temps sur une version3 de mon fichier réservation, auquel j'ai ajouté un ruban.

Je vous laisse me redire

D'ailleurs pour ouvrir l'userform sur lequel j'ai un souci, il faut cliquer sur les engrenages de paramétrages.

Donc, je ne parviens pas supprimer une date de ma liste de dates de fermetures.

Pourtant je passe par une txtbox_ferm pour que la recherche se fasse par ce biais.

De fait, la recherche ne donne rien.

J'ai l'impression que j'ai un souci de format de date???

Merci pour votre soutien.

Leakim

Bonjour

Essaie comme ça :

        ...
        If Me.ListBox_Ferm.ListIndex > -1 Then
            'Me.TextBox_ferm.Value = CDate(Me.ListBox_Ferm.Value)
            Set c = ws.Columns("A:A").Find(CDate(Me.TextBox_ferm.Value), LookIn:=xlValues, LookAt:=xlWhole)
        ....

En effet, écrire :

Me.TextBox_ferm.Value = CDate(Me.ListBox_Ferm.Value)

ne sert à rien : un textbox reste du texte.

En revanche, ecrire

...Find(CDate(Me.TextBox_ferm.Value), 

recherchera bien une date.

C'est du moins mon explication.

Bye !

Salut Gmb,

Je te remercie, je regarde et te redis.

Leakim

Re,

Je viens de faire le test et c'est concluant

Merci pour cet ajustement du code.

Cordialement,

Leakim