Erreur de date dans Combobox

Bonjour le forum,

Je viens vers vous car un soucis avec mon UserForm de mon planning. En fait j'appelle celui-ci de deux façons, soit par un bouton ou en sélectionnant une date. Lors de son ouverture, soit il faut sélectionner la date dans une combobox ou elle est saisie automatiquement par sélection mais le soucis est que la date entre la section et celle dans la combobox ne correspond pas. Exemple si je sélectionne le 02/02/2020 ça me met 02/01/2020.

J'ai mis un fichier en pièce jointe pour mieux comprendre mon problème.

Bonjour Thunder23

A tester

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B12:AF12")) Is Nothing Then
        Cancel = True
        UserForm1.Show
        Load UserForm1
        'UserForm1.Label_date.Caption = ActiveCell
        UserForm1.ComboBox_date.ListIndex = ActiveCell.Column - 2 ' fallait rajouter ça pr actualiser les autres textes
        'Le combobox prend la valeur de la cellule active
        UserForm1.ComboBox_date.Value = ActiveCell.Value
   End If
End Sub

Salutation

AS

Bonsoir As226,

J'ai testé le code, la date est bonne mais le soucis est que les valeurs du reste de l'UserForm ne sont plus bonne, ça ne mets que les en-têtes des colonnes.

@+